如何在R中通过循环动态生成查询语句绘制年度直方图？

这个问题我太熟啦！你踩的坑是把拼接出来的字符串直接传给hist()了，但R只会把它当成普通文本，不会自动解析成数据查询语句，自然就报错咯。给你几个实用的解决办法，按推荐程度排序：

方法一：直接循环年份数值（最推荐！） #

完全没必要拼接字符串，直接生成完整的年份序列来循环就好，既简洁又不容易出错：

# 先生成你需要的年份范围，比如2011到2020
target_years <- 2011:2020

for (year in target_years) {
  # 直接用年份变量过滤数据，R能完美识别
  hist(
    dados$Avg_Intervalo_DataInicio_DataFim[dados$Periodo == year],
    col = "gray",
    main = paste("直方图 - 年份", year) # 给每个图加标题，方便区分
  )
}

这样循环的是真实的年份数值，过滤逻辑和你手动写的dados$Periodo==2013完全一致，还能自动给每个直方图加上对应年份的标题，可读性拉满。

方法二：用eval(parse)解析字符串（仅作了解，不推荐） #

如果你非要用拼接字符串的思路实现，得让R把字符串转换成可执行的代码才行，这时候可以用eval(parse(text=...))组合：

for (i in 1:10) {
  # 拼接出查询语句的字符串
  query_str <- paste0("dados$Avg_Intervalo_DataInicio_DataFim[dados$Periodo==201", i, "]")
  # 把字符串解析成R代码并执行，拿到要绘图的数据
  plot_data <- eval(parse(text = query_str))
  # 绘制直方图
  hist(
    plot_data,
    col = "gray",
    main = paste("直方图 - 201", i, sep = "")
  )
}

不过要注意：这种方法尽量少用，一是可读性差，二是如果字符串里混入了不安全的代码（比如别人恶意输入的内容），eval()会直接执行，有安全风险。

方法三：用lapply实现批量处理（更简洁的R风格） #

如果你习惯R的函数式编程写法，用lapply可以省去循环的语法，代码更紧凑：

target_years <- 2011:2020
lapply(target_years, function(current_year) {
  hist(
    dados$Avg_Intervalo_DataInicio_DataFim[dados$Periodo == current_year],
    col = "gray",
    main = paste("直方图 -", current_year)
  )
})

本质上和第一种方法逻辑一样，只是写法更简洁，适合批量处理场景。

内容的提问来源于stack exchange，提问作者Máiron Chaves