Блог

У меня есть список фреймов данных, все из которых содержат числовые данные. Как бы я изменил внутренние data.frames таким образом, чтобы значения NA = 0 и что угодно > или = 1 равнялись 1. В основном, преобразовать в data.frames из нуля и единицы.

Краткий пример.

 x <- list()
x$a <- data.frame(c(NA, NA, 7, 7, NA), c(1,1,NA,NA,NA))
x$b <- data.frame(c(NA, NA, 7, 7, NA), c(1,1,NA,NA,NA))
x$c <- data.frame(c(NA, NA, 7, 7, NA), c(1,1,NA,NA,NA))
  

В общем, если бы я выполнял только одно, я бы сделал что-то вроде:

 x$a[x$a >= 1] <- 1
x[is.na(x$a)] <- 0
  

Теперь, как мне применить это ко всему списку?

ОБНОВЛЕНИЕ: Кто-нибудь хочет добавить решение с помощью ldply() для пущей убедительности?

Вероятно, есть более короткое / эффективное решение, но это работает:

 lapply(x, function(y) {y[y >= 1] <- 1; y[is.na(y)] <- 0; y})
  

Nest применяется в lapply:

 lapply(x, function(x) 
    apply(x, 2, function(y) ifelse(is.na(y), 0, ifelse(y >= 1, 1, y))
    )
)
  

Вот еще один действительно сложный способ сделать это. Это работает путем первой замены всех NAS на 0, а затем выбора минимального числа и 1. Это просто для иллюстрации и развлечения, и НЕ рекомендуется, поскольку это кошмарный код для поддержки!

 lapply(lapply(x, function(y) replace(y, is.na(y), 0)), sapply, pmin, 1)