How to merge two true/false variables in R?

Using the package dplyr you can do this:

library(dplyr)
data <- data %>% mutate(
   OneTwo = as.logical(One + Two),
   ThreeFour = as.logical(Three + Four))

This works since TRUE and FALSE are actually saved as 1 and 0 by the computer. R then codes values larger 0 as TRUE. To be a bit more "correct", you could also use this code, to get back 0s and 1s before converting them to logicals:

library(dplyr)
data <- data %>%
   mutate(
    OneTwo = as.logical(pmax(One, Two)),
    ThreeFour = as.logical(pmax(One, Two)))

You can achieve this in a vectorized way:

tf <- c(TRUE, FALSE)
nm <- names(df)

# Merge
res <- cbind(df, df[tf] | df[rev(tf)])

# Set the names
names(res) <- c(nm, paste0(nm[tf], nm[rev(tf)]))

Gives:

     V1    V2    V3    V4    V5    V6 V1V2  V3V4  V5V6
1 FALSE  TRUE  TRUE  TRUE  TRUE FALSE TRUE  TRUE  TRUE
2  TRUE  TRUE  TRUE  TRUE FALSE  TRUE TRUE  TRUE  TRUE
3  TRUE  TRUE  TRUE FALSE  TRUE FALSE TRUE  TRUE  TRUE
4  TRUE FALSE FALSE FALSE  TRUE  TRUE TRUE FALSE  TRUE
5  TRUE  TRUE FALSE FALSE FALSE FALSE TRUE FALSE FALSE

Data:

set.seed(5)
df <- as.data.frame(matrix(sample(c(TRUE, FALSE), 30, replace = TRUE), 5))

A generalizable solution for many columns. Here, the final two column are the results from comparing each pair of columns.

cbind(df, do.call(cbind, lapply(seq(length(df)/2) * 2, function(i) df[[i-1]] | df[[i]])))
    One   Two Three  Four     1     2
1  TRUE  TRUE FALSE FALSE  TRUE FALSE
2 FALSE  TRUE  TRUE  TRUE  TRUE  TRUE
3  TRUE FALSE FALSE  TRUE  TRUE  TRUE
4  TRUE  TRUE  TRUE FALSE  TRUE  TRUE
5 FALSE  TRUE FALSE  TRUE  TRUE  TRUE
6 FALSE FALSE  TRUE FALSE FALSE  TRUE
7  TRUE FALSE FALSE  TRUE  TRUE  TRUE

Tags:

R

Recent Posts