嗨，刚接触R遇到这种问题太正常啦，我来一步步帮你搞定这个折线图！你的核心问题应该是数据格式没调整对——ggplot2这类绘图工具需要「长格式」数据，而你的原始数据是「宽格式」，所以才会出现0条观测的情况。下面是完整的解决步骤：

1. 先加载必备的R包 #

我们需要用tidyverse套件（包含dplyr做数据整理，ggplot2绘图），如果还没安装的话先执行安装命令：

install.packages("tidyverse")

安装完成后加载包：

library(tidyverse)

2. 整理数据：计算平均贡献并转成绘图需要的格式 #

这一步是关键！我们要先把宽格式的数据转换成适合绘图的长格式，同时计算出每一列的平均贡献：

# 筛选目标列 → 计算每列平均值 → 转成长格式
avg_contribution <- Treatment1a %>%
  select(contains("T1a_PlantTree_")) %>%  # 精准筛选所有包含指定字段的列
  summarise(across(everything(), mean, na.rm = TRUE)) %>%  # 计算每列平均值，自动忽略缺失值
  pivot_longer(
    cols = everything(),
    names_to = "TimePoint",  # 生成X轴对应的变量：对应T1a_PlantTree_1至6
    values_to = "AverageContribution"  # 生成Y轴对应的变量：各时间点的平均贡献
  )

执行完这段代码后，你可以用head(avg_contribution)查看结果，应该会得到6行有效数据，这样就不会出现0条观测的问题啦！

3. 绘制符合需求的折线图 #

现在用整理好的数据绘图，严格按照你的要求设置轴刻度和样式：

ggplot(avg_contribution, aes(x = TimePoint, y = AverageContribution, group = 1)) +
  geom_line(color = "#2E86AB", size = 1.2) +  # 设置折线颜色和粗细，你可以随便换喜欢的颜色
  scale_y_continuous(
    breaks = c(0, 20, 40, 60, 80, 100),  # 完全按照你的要求设置Y轴刻度
    limits = c(0, 100)  # 锁定Y轴范围，确保所有刻度都能显示
  ) +
  labs(
    x = "T1a观测阶段",
    y = "参与者平均贡献值",
    title = "T1a阶段参与者平均贡献变化趋势"
  ) +
  theme_light()  # 用清爽的浅色主题，你也可以换成theme_minimal()这类其他主题

这里的group=1是必须的——ggplot需要明确知道哪些数据点属于同一条折线，我们只有一组平均数据，所以指定group=1就能画出完整的一条线。

小提醒： #

如果你的原始数据里有缺失值，代码里的na.rm=TRUE会帮你自动忽略这些无效值，避免计算出NA结果影响绘图。

内容的提问来源于stack exchange，提问作者Luca H.