R for循环过滤和打印数据框的列

Question

我提出的类似问题似乎并不完全适用于我想要完成的工作，并且在最相似的问题之一中提供的答案中至少有一个没有正确提供实际有效的解决方案。

所以我有一个数据框，可以说类似于以下内容。

sn <- 1:6
pn <- letters[1:6]
issue1_note <- c(“issue”,”# - #”,NA,”sue”,”# - #”,”ISSUE”)
issue2_note <- c(“# - #”,”ISS”,”# - #”,NA,”Issue”,”Tissue”)
df <- data.frame(sn,pn,issue1_note,issue2_note)

这就是我想要做的。我希望能够快速轻松地直观地检查每个 _note 列。我知道我可以使用select() 和filter() 在每一列上执行此操作，如

df %>% select(issue1_note) %>%
filter(!is.na(issue1_note) & issue1_note != “# - #”)

但是，我的真实数据中有大约 30 列和 300 行，我不想每次都这样做。

我想编写一个 for 循环，它将在所有列中执行此操作。我还希望单独打印每一列。我尝试以下方法仅删除 NA，但它仅选择并打印列。就好像它完全跳过了过滤一样。

col_notes <- df %>% select(ends_with(“note”)) %>% colnames()

for(col in col_notes){
df %>% select(col) %>% filter(!is.na(col)) %>% print()
}

关于如何让这个也过滤的任何想法？

Answer 1

我能够通过更多研究找到解决方案，尽管它不涉及 for 循环。我创建了一个自定义函数，然后使用了 lapply。如果有人想知道，这是我的解决方案。

my_fn <- function(column){
tmp <- df %>% select(column)
tmp %>% filter(!is.na(.data[[column]]) & .data[[column]] != “# - #”)
}

lapply(col_notes, my_fn)

感谢您的考虑。

Answer 2

这可以通过filter/across 或filter/if_any/filter_if_all` 一次性完成，具体取决于所需的结果

library(dplyr)
df %>% 
   filter(across(ends_with('note'), ~ !is.na(.) & . != "# - #"))

这将在其列名中以“note”作为后缀的所有列中返回没有 NA 或“# - #”的行。如果我们要返回至少一列非 NA，请使用 if_any

df %>%
    filter(if_any(ends_with("note"), ~ !is.na(.) & . != "# - #"))