将每列中的所有单元格折叠为一个单元格并忽略NA

你可以简单地做,

sapply(a, function(i)toString(i[!is.na(i)]))

apply(a, 2, function(x) paste(na.omit(x), collapse=","))

这个 tidyverse 版本:

如果你想有一个像我一样干净的工作区,可能想写一个函数并将其应用于所有列。

library(dplyr)

a <- data.frame(col1 = c("A",NA,NA),
                col2 = c(NA,"B","C"),
                col3 = c(NA,NA,"D"))

collapseColumn <- function(x){
    paste(
        x[!is.na(x)]
        , collapse = ",")
}


a %>%
    summarise_all(collapseColumn)

一个选项 pivot_longer 和 summarise

library(dplyr)
library(tidyr)
a  %>% 
   pivot_longer(cols = everything(), values_drop_na = TRUE) %>% 
   group_by(name) %>% 
   summarise(value = toString(value))
# A tibble: 3 x 2
#  name  value
#  <chr> <chr>
#1 col1  A    
#2 col2  B, C 
#3 col3  D