R ggplot绘制可变列数数据集折线图 循环覆盖仅显最后一条问题问询

你的代码存在3个核心问题：

• ggplot的美学映射aes()为延迟求值逻辑，不会在循环运行时即时捕获当前的Exposure变量值，只有最终绘图渲染时才会读取变量，此时Exposure已经是循环最后一次的赋值结果，所有折线共用该组值，因此只显示最后一条线
• assign()的用法冗余无意义，不符合ggplot基于数据集做映射的规范
• 没有提前过滤全零/无有效变化的列，会生成大量不可见的零值折线

ggplot2更推荐将宽表转换为长表后直接映射，适配动态列数的场景，代码更简洁不易出错：

library(ggplot2)
library(tidyr)
library(dplyr)

# 1. 宽表转长表
plottable_long <- plottable %>%
  pivot_longer(cols = -Date, names_to = "Zone", values_to = "Exposure") %>%
  # 2. 过滤掉全零无有效数据的分组
  group_by(Zone) %>%
  filter(sum(Exposure) != 0) %>%
  ungroup()

# 3. 直接绘制所有有效折线
plot <- ggplot(plottable_long, aes(x = Date, y = Exposure, color = Zone)) +
  geom_line()

plot

如果需要保留循环逻辑，可使用.data代词即时捕获当前列，避免延迟求值问题，同时提前过滤有效列：

library(ggplot2)

# 提前筛选出非全零的有效列
valid_cols <- colnames(plottable)[sapply(plottable[, -1], function(x) sum(x) != 0)]

plot <- ggplot(plottable, aes(x = Date))

for (col in valid_cols) {
  plot <- plot +
    geom_line(aes(y = .data[[col]], color = col))
}

plot

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