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

Question

У меня есть кадр данных dd2 с сотнями столбцов и что мне нужно сделать, вставьте все эти значения столбца вместе, опуская любые значения NA. Если я что-то вроде этого

apply(a, 1, paste, collapse=",") 

это на самом деле включает в себя NA с, как "NA" строки. Я хочу этого избежать. Я мог бы также сделать так, как показано ниже, но это ожидало, что я буду работать для каждой отдельной колонки за раз, чтобы получить результат.

result <- cbind( 
    dd2, 
    combination = paste(dd2[,2], replace(dd2[,3], is.na(dd2[,3]), ""), sep = ",") 
) 

Есть ли эффективный способ сделать это? Вот образец данных:

dd2 <- structure(c("A", "B", "C", "D", "E", "AK2", "HFM1", NA, "TRR", 
"RTT", NA, "PPT", "TRR", "RTT", NA, "PPT", NA, NA, "GGT", NA), .Dim = c(5L, 
4L), .Dimnames = list(NULL, c("sample_id", "plant", "animal", 
"more"))) 

Answer 1

Вы можете попробовать na.omit() опустить значения, а затем вставить. Кроме того, вы можете использовать toString(), так как это в основном paste(..., collapse = ", ").

apply(dd2, 1, function(x) toString(na.omit(x))) 
# [1] "A, AK2, PPT"  "B, HFM1, PPT"  "C, TRR"   
# [4] "D, TRR, RTT, GGT" "E, RTT" 

Если у вас есть конкретные столбцы, которые вы используете, то

apply(dd2[, cols], 1, function(x) toString(na.omit(x)))