r - 如何折叠列表中的所有字符向量

Question

我有一个包含一个特定列的数据框，该列由如下字符列表组成:

a <- list("dyspla", c("dyspla", "dyspla"), "carcin",
          c("tumour", "dyspla"), character(0), character(0),
          c("carcin", "dyspla"), character(0), character(0), "dyspla")

我希望它是一个字符向量，列表中的字符向量折叠如下

c("dyspla","dyspla,dyspla","carcin","tumour,dyspla","carcin,dyspla","dyspla")

paste(a,collapse="") 将所有内容折叠在一起。如何在列表中按向量折叠？

Answer 1

可能的解决方案:

sapply(a[!!lengths(a)], toString)

或者使用 purrr 的 is_empty 函数:

sapply(a[!sapply(a, purrr::is_empty)], toString)

两者都给出:

[1] "dyspla"         "dyspla, dyspla" "carcin"         "tumour, dyspla" "carcin, dyspla" "dyspla"

或者使用paste:

sapply(a[!sapply(a, purrr::is_empty)], paste, collapse = ',')

---

回应您的评论:

如果你想保留空字符，你可以只做 sapply(a, toString) 或 sapply(a, paste, collapse = ',')。