Как преобразовать все нечетные значения в NA в R в фрейме данных?

Question

У меня есть dataframe, называемый return. Как сделать код ниже более кратким? Я пробовал использовать apply, lappply и sapply, но они, похоже, меняют структуру DataFrame таким образом, что я не могу создать корреляционную матрицу. Чтобы уточнить: приведенный ниже код работает, но я хотел бы сделать его более кратким. Благодаря!

returns$VIT <- as.numeric(as.character(returns$VIT)) 
returns$EFA <- as.numeric(as.character(returns$EFA)) 
returns$VWO <- as.numeric(as.character(returns$VWO)) 
returns$VIG <- as.numeric(as.character(returns$VIG)) 
returns$VNQ <- as.numeric(as.character(returns$VNQ)) 
returns$iPath.DJP <- as.numeric(as.character(returns$iPath.DJP)) 
returns$iShares.MUB <- as.numeric(as.character(returns$iShares.MUB)) 

cor(returns, use="pairwise.complete.obs") 

EDIT: Следующий тестовый код НЕ работает, я пытаюсь выяснить, как заставить его работать.

test <- data.frame(c(.04,.2,"blah"),c(.01,.24,"blah")) 
colnames(test) <- c("VIT", "EFA") 

new <- apply(test, 2, function(x) as.numeric(as.character(x))) 
cor(test, use="pairwise.complete.obs") 

Answer 1

test <- data.frame(a = rep("bob", 12), b = rep(c(1,23,4), times = 4)) 
Filter(is.numeric, test) 

Возвращает только числовые столбцы в test. Вы можете использовать lapply(test, is.numeric), чтобы получить истинные/ложные результаты самостоятельно и сделать что-то с этим.

Answer 2

Это вы что искали?

numeric.columns <- c('VIT','EFA','VWO','VIG','VNQ','iPath.DJP','iPath.DJP','iShares.MUB') 
returns[,numeric.columns] <- lapply(returns[,numeric.columns], function(x) as.numeric(as.character(x))) 
cor(returns, use="pairwise.complete.obs") 

Answer 3

Просто используйте plyr «s colwise.

returns = colwise(function(x) as.numeric(ifelse(is.numeric(x),x,NA)))(returns) 

Он принимает функцию и применяет ее ко всем столбцам. Конечный результат должен быть числовым. Обратите внимание, что это относится к значениям, таким как '1' как NA.