R语言for循环内调用filter()函数无打印输出如何解决？

问题原因 #

• R的for循环内部默认不会自动打印运算结果，你调用filter()得到匹配行后既没有赋值存储也没有主动打印，因此运行后无输出。
• 需提前确认已经加载dplyr包，否则filter()函数会调用R基础包的同名函数，无法实现数据集筛选效果。

解决方案 #

方案1：修改for循环主动打印结果 #

适合需要逐行输出的场景：

# 先加载dplyr包
library(dplyr)

mylines <- c(9, 8, 10, 3, 2, 4, 6, 1, 1, 9, 2, 3, 1, 6)
sonnet_print_vector <- function(user_vector){
  for (i in 1:length(user_vector)){
    # 提取匹配行后打印文本内容
    matched_line <- filter(sonnets, sonnet == user_vector[i], line == i)
    print(matched_line$text)
  }
}
sonnet_print_vector(mylines)

方案2：向量化操作一次性提取（更推荐的R风格写法） #

不用for循环，效率更高，还可以直接把结果保存为新向量后续使用：

library(dplyr)

mylines <- c(9, 8, 10, 3, 2, 4, 6, 1, 1, 9, 2, 3, 1, 6)
# 构造查询条件表，和原数据集关联匹配
new_sonnet <- tibble(sonnet = mylines, line = seq_along(mylines)) %>%
  inner_join(sonnets, by = c("sonnet", "line")) %>%
  pull(text)

# 逐行打印新十四行诗
cat(new_sonnet, sep = "\n")

内容的提问来源于stack exchange，提问作者Dylan Skinner