Привет, дорогая, у меня проблема с NaN. Я работаю с большим набором данных со многими переменными, и у них есть NaN. Данные таковы:
z=list(a=c(1,2,3,NaN,5,8,0,NaN),b=c(NaN,2,3,NaN,5,8,NaN,NaN))
Я использовал эти команды, чтобы заставить список к кадру данных, но я получил это:
z=as.data.frame(z)
> is.list(z)
[1] TRUE
> is.data.frame(z)
[1] TRUE
> replace(z,is.nan(z),0)
Error en is.nan(z) : default method not implemented for type 'list'
Я заставил z на фрейм данных, но этого было недостаточно, возможно, есть форма для изменения NaN в списке. Спасибо за вашу помощь. Эти данные являются лишь примером того, что мои исходные данные имеют 36000 наблюдений и 40 переменных.
Ответ 1
Это идеальный вариант использования для rapply.
> rapply( z, f=function(x) ifelse(is.nan(x),0,x), how="replace" )
$a
[1] 1 2 3 0 5 8 0 0
$b
[1] 0 2 3 0 5 8 0 0
lapply тоже будет работать, но rapply правильно справляется с вложенными списками в этой ситуации.
Ответ 2
Как вы, кажется, не возражаете, что ваши данные в фреймворке данных, вы также можете сделать что-то очень векторизованное. Однако это будет работать, только если каждый элемент списка имеет равную длину. Я предполагаю в ваших данных (36000/40 = 900), что это так:
z <- as.data.frame(z)
dim <- dim(z)
y <- unlist(z)
y[ is.nan(y) ] <- 0
x <- matrix( y , dim )
# [,1] [,2]
# [1,] 1 0
# [2,] 2 2
# [3,] 3 3
# [4,] 0 0
# [5,] 5 5
# [6,] 8 8
# [7,] 0 0
# [8,] 0 0
Ответ 3
После редактирования OP: После вашего отредактированного заголовка это должно сделать это.
unstack(within(stack(z), values[is.nan(values)] <- 0))
# a b
# 1 1 0
# 2 2 2
# 3 3 3
# 4 0 0
# 5 5 5
# 6 8 8
# 7 0 0
# 8 0 0
unstack автоматически дает вам data.frame, если результирующий вывод имеет одинаковую длину (в отличие от первого примера, показанного ниже).
Старое решение (для непрерывности).
Попробуйте следующее:
unstack(na.omit(stack(z)))
# $a
# [1] 1 2 3 5 8 0
# $b
# [1] 2 3 5 8
Примечание 1: Кажется, из вашего сообщения, что вы хотите заменить NaN на 0. Вывод stack(z), его можно сохранить в переменной, а затем заменить на 0, а затем вы можете unstack.
Примечание 2: Кроме того, поскольку na.omit удаляет NA, а также NaN, я также предполагаю, что ваши данные не содержат NA (из ваших данных выше).
Ответ 4
z = do.call(data.table, rapply(z, function(x) ifelse(is.nan(x),0,x), how="replace"))
Если вы изначально имеете data.table и хотите 1-строчную замену.
Но имейте в виду, что после этого необходимо переопределить ключи:
> key(x1)
[1] "date"
> x1 = do.call(data.table, rapply(x1, function(x) ifelse(is.na(x), 0, x), how="replace"))
> key(x1)
NULL
