Настраиваемая зависящая от данных перекодировка в логику в R

Сначала мы устанавливаем данные

meta <- data.frame(name=c('a.char.var', 'a.logical.var', 'another.logical.var', 'another.char.var'),
                   type=c('char', 'logical', 'logical', 'char'),
                   false=c(NA, NA, 1, NA),
                   true=c(NA, 7, 0, NA), stringsAsFactors = F)

data <- data.frame(a.char.var=c('aa', 'ab', 'ac', 'ad'),
                   a.logical.var=c(7, NA, 7, 4),
                   another.logical.var=c(0,1,NA,3),
                   another.char.var=c('ba', 'bb', 'bc', 'bd'), stringsAsFactors = F)

Затем мы выделяем только логические столбцы. Мы пройдемся по ним, используя столбец name, чтобы выбрать соответствующий столбец в data, и изменим значения в data_out с инициализированного NA на T или F в соответствии с соответствующими значениями в data.

Обратите внимание, что data[,logical_meta$name[1]] эквивалентно data[,'a.logical.var'] или data$a.logical.var, если logical_meta$name является символом. Если это фактор (например, если мы не указали stringsAsFactors=F), нам нужно преобразовать его в символ, после чего мы могли бы также дать ему имя - colname ниже.

Наличие NA для борьбы со средствами, использующими which, выгодно: c(0, 1,NA,3)==0 возвращает T,F,NA,F, но which затем игнорирует NA и возвращает только позицию 1. Подмножество логическим вектором, включающим NA, дает строки или столбцы NA, использование which устраняет это.

logical_meta <- meta[meta$type=='logical',]

data_out <- data #initialize


for(i in 1:nrow(logical_meta)) {
  colname <- as.character(logical_meta$name[i]) #only need as.character if factor
  data_out[,colname] <- NA
  #false column first
  if(is.na(logical_meta$false[i])) {
    data_out[is.na(data[,colname]),colname] <- FALSE
  } else {
    data_out[which(data[,colname]==logical_meta$false[i]),
             colname] <- FALSE
  }
  #true column next
  if(is.na(logical_meta$true[i])) {
    data_out[is.na(data[,colname]),colname] <- TRUE
  } else {
    data_out[which(data[,colname]==logical_meta$true[i]),
             colname] <- TRUE
  }
}

data_out

Я написал функцию, которая принимает индекс столбца data и пытается выполнить описанную вами операцию.

Функция сначала выбирает x в качестве интересующего нас столбца. Затем мы сопоставляем имя столбца в data с записями в первом столбце meta, это дает нашу интересующую строку.

Затем мы проверяем, является ли тип столбца logical, если это не так, мы просто возвращаем x, ничего менять не нужно. Если тип столбца logical, мы затем проверяем, соответствуют ли его значения столбцам true или false в meta.

convert_data <- function(colindex, dat, meta = meta){
    x <- dat[,colindex] #select our data vector

    #match the column name to the first column in meta
    find_in_meta <- match(names(dat)[colindex],
                          meta[,1])

    #what type of column is it
    type_col <- meta[find_in_meta,2]

    if(type_col != 'logical'){
        return(x)
    }else{
        #fix if logical is NA
        true_val <- ifelse(is.na(meta[find_in_meta,4]),'NA_val',
                           meta[find_in_meta,4])

        #fix if logical is NA
        false_val <- ifelse(is.na(meta[find_in_meta,3]), 'NA_val',
                            meta[find_in_meta, 3])

        #fix if logical is NA
        x <- ifelse(is.na(x), 'NA_val', x)
        x <- ifelse(x == true_val, TRUE,
               ifelse(x == false_val, FALSE, NA))
        return(x)
    }
}

Затем мы можем использовать lapply и немного поработать с данными, чтобы привести его в приемлемую форму:

res <- lapply(1:ncol(df1), function(ind) 
                      convert_data(colindex = ind, dat = df1, meta = meta))

setNames(do.call('cbind.data.frame', res), names(df1))

  a.char.var a.logical.var another.logical.var another.char.var
1         aa          TRUE                TRUE               ba
2         ab         FALSE               FALSE               bb
3         ac          TRUE                  NA               bc
4         ad            NA                  NA               bd

данные

meta <- structure(list(name = c("a.char.var", "a.logical.var", "another.logical.var", 
"another.char.var"), type = c("char", "logical", "logical", "char"
), false = c(NA, NA, 1L, NA), true = c(NA, 7L, 0L, NA)), .Names = c("name", 
"type", "false", "true"), class = "data.frame", row.names = c(NA, 
-4L))

df1 <- structure(list(a.char.var = c("aa", "ab", "ac", "ad"), a.logical.var = c(7L, 
NA, 7L, 4L), another.logical.var = c(0L, 1L, NA, 3L), another.char.var = c("ba", 
"bb", "bc", "bd")), .Names = c("a.char.var", "a.logical.var", 
"another.logical.var", "another.char.var"), class = "data.frame", row.names = c(NA, 
-4L))