如何在循环中为dataframe列绘图并将列名设为图表标题？

问题概述 #

需为DataFrame的72列分别生成独立图表，将列名设为对应图表标题，facet_wrap不适用当前场景。现有循环代码存在两个问题：

• 生成的图表标题为列的第一行值，而非列名；
• 调用names()提取列名时，触发Can't convert from to due to loss of precision错误。

测试数据子集 #

Wisconsin_GR <- read.table(header=TRUE, text="
  Species   Adams    Ashland    Barron    Bayfield    Brown
  Ash    -.5889    4.1211    5.6036    26.8347    NA
  Aspen    -.5867    15.82    .4329    1.1622    NA
")

错误代码示例 #

标题显示列第一行值的代码

for( i in Wisconsin_GR[2:6]){
  print(
  gf_point(i~Species, data = test)%>% 
  gf_labs(title=i,
    y = "Growth to Removal Ratio",
    x = "")+ 
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))+
  scale_y_continuous(expand = c(0,0), limit = c(-5,100)))
}

调用names()报错的代码

for( i in Wisconsin_GR[2:6]){
  print(
  gf_point(i~Species, data = test)%>% 
  gf_labs(title=names(Wisconsin_GR[i]),
    y = "Growth to Removal Ratio",
    x = "")+ 
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))+
  scale_y_continuous(expand = c(0,0), limit = c(-5,100)))
}

报错信息 #

Error:
x Can't convert from to due to loss of precision.
Caused by error in stop_vctrs():
! Can't convert from to due to loss of precision.

解决方案 #

问题核心是循环迭代了列的数值向量，而非列名。正确做法是迭代列名，通过列名引用数据并设置标题：

# 获取目标列的列名（第2至第6列）
target_cols <- names(Wisconsin_GR)[2:6]

# 循环遍历列名
for(col_name in target_cols){
  # 动态构造绘图公式
  plot_formula <- as.formula(paste(col_name, "~ Species"))
  
  print(
    gf_point(plot_formula, data = Wisconsin_GR) %>% 
      gf_labs(title = col_name,
              y = "Growth to Removal Ratio",
              x = "") + 
      theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) +
      scale_y_continuous(expand = c(0,0), limit = c(-5,100))
  )
}

关键修复点 #

• 迭代列名而非数值：直接获取列名用于标题，避免类型转换错误；
• 动态构造公式：用paste拼接列名与Species，转为公式对象让gf_point正确识别数据列；
• 修正数据源：原代码中data = test应为data = Wisconsin_GR（若test是自定义数据集需替换为对应名称）。

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