Replace logical values (TRUE / FALSE) with numeric (1 / 0)

by

For a data.frame, you could convert all logical columns to numeric with:

# The data
set.seed(144)
dat <- data.frame(V1=1:100,V2=rnorm(100)>0)
dat$V3 <- dat$V2 == 1
head(dat)
#   V1    V2    V3
# 1  1 FALSE FALSE
# 2  2  TRUE  TRUE
# 3  3 FALSE FALSE
# 4  4 FALSE FALSE
# 5  5 FALSE FALSE
# 6  6  TRUE  TRUE

# Convert all to numeric
cols <- sapply(dat, is.logical)
dat[,cols] <- lapply(dat[,cols], as.numeric)
head(dat)
#   V1 V2 V3
# 1  1  0  0
# 2  2  1  1
# 3  3  0  0
# 4  4  0  0
# 5  5  0  0
# 6  6  1  1

In data.table syntax:

# Data
set.seed(144)
DT = data.table(cbind(1:100,rnorm(100)>0))
DT[,V3 := V2 == 1]
DT[,V4 := FALSE]
head(DT)
#    V1 V2    V3    V4
# 1:  1  0 FALSE FALSE
# 2:  2  1  TRUE FALSE
# 3:  3  0 FALSE FALSE
# 4:  4  0 FALSE FALSE
# 5:  5  0 FALSE FALSE
# 6:  6  1  TRUE FALSE

# Converting
(to.replace <- names(which(sapply(DT, is.logical))))
# [1] "V3" "V4"
for (var in to.replace) DT[, (var):= as.numeric(get(var))]
head(DT)
#    V1 V2 V3 V4
# 1:  1  0  0  0
# 2:  2  1  1  0
# 3:  3  0  0  0
# 4:  4  0  0  0
# 5:  5  0  0  0
# 6:  6  1  1  0

More Related Contents:

  1. Aggregate / summarize multiple variables per group (e.g. sum, mean)
  2. How to convert a data frame column to numeric type?
  3. Fastest way to replace NAs in a large data.table
  4. Fastest way to add rows for missing time steps?
  5. Assign multiple columns using := in data.table, by group
  6. How to replace NA values in a table for selected columns
  7. Convert data.frame column to a vector?
  8. Convert Named Character Vector to data.frame
  9. Why is plyr so slow?
  10. Merge rows in a dataframe where the rows are disjoint and contain NAs
  11. Cleaning `Inf` values from an R dataframe
  12. write.csv for large data.table
  13. DT[!(x == .)] and DT[x != .] treat NA in x inconsistently
  14. Merge overlapping ranges into unique groups, in dataframe
  15. Convert a data frame to a data.table without copy
  16. What you can do with a data.frame that you can’t with a data.table?
  17. Sample random rows in dataframe
  18. Left join using data.table
  19. Subset / filter rows in a data frame based on a condition in a column
  20. Replacing character values with NA in a data frame
  21. Coerce multiple columns to factors at once
  22. Converting nested list to dataframe
  23. subsetting a data.table using != excludes NA too
  24. Comparing two vectors in an if statement
  25. How to delete rows where all the columns are zero
  26. Transposing a dataframe maintaining the first column as heading
  27. Filter data frame rows based on values in vector
  28. Replace empty values with value from other column in a dataframe
  29. Insert a row in a data.table
  30. R data table: update join

Leave a Comment