在R中: 我有数据帧测试，想要数据帧测试和.基本上获取列的文本，并按组删除NAS
test <- data.frame(
Group = c("A", "A", "B", "B", "C"),
Text = c("Apple", NA, "Cherry", NA, "Grape"),
Text2 = c(NA, "Banana", NA, "Cherry", NA)
)
testsumm<-data.frame(
Group = c("A","B","C"),
Text = c("Apple", "Cherry", "Grape"),
Text2 = c( "Banana", "Cherry", NA))
我的实际数据很大(>；5000行30列)，所以我需要一个自动解决方案.谢谢!
aggregate人的把戏
> aggregate(. ~ Group, test, na.omit, na.action = na.pass)
Group Text Text2
1 A Apple Banana
2 B Cherry Cherry
3 C Grape
或者，如果您想保留NA而不是空字符串""，可以try
aggregate(
. ~ Group,
test,
\(x) ifelse(all(is.na(x)), NA, na.omit(x)),
na.action = na.pass
)
这给了我们
Group Text Text2
1 A Apple Banana
2 B Cherry Cherry
3 C Grape <NA>