基于标签与时间点绘制样本表达数据折线图求助

没问题，我来帮你搞定这个折线图！你的数据是宽格式，而要画每个样本对应时间点的折线，转成长格式会更方便处理，下面是具体步骤和代码：

步骤1：加载必要的R包 #

咱们用tidyverse包（包含数据处理的dplyr和绘图的ggplot2），如果没安装先装一下：

# 安装包（如果没装过）
install.packages("tidyverse")
# 加载包
library(tidyverse)

步骤2：把宽格式数据转成长格式 #

你的t0-t3对应时间点t=0到3，我们把这些列合并成“时间点”和“数值”两列，同时保留样本的label和行号（用来区分每个样本）：

# 先给数据加行号，用来区分每个样本
data$sample_id <- 1:nrow(data)

# 转成长格式
long_data <- data %>%
  pivot_longer(cols = starts_with("t"), # 选择t0-t3列
               names_to = "time_point", # 新列名：时间点
               values_to = "value") %>% # 新列名：数值
  # 把t0/t1/t2/t3转换成0/1/2/3的数字格式
  mutate(time_point = as.numeric(str_remove(time_point, "t")))

转完后的长数据前几行是这样的：

label sample_id time_point value
1     t         1          0     1
2     t         1          1     3
3     t         1          2     6
4     t         1          3     8
5     x         2          0     2

步骤3：绘制折线图 #

现在用ggplot2画每个样本的折线，按label区分颜色（或者线型），x轴是时间点，y轴是数值：

ggplot(long_data, aes(x = time_point, y = value, group = sample_id, color = label)) +
  geom_line(linewidth = 0.8) + # 画折线
  geom_point(size = 2) + # 加上数据点更清晰
  labs(title = "每个样本在不同时间点的数值变化",
       x = "时间点 (t)",
       y = "数值",
       color = "样本类型") +
  theme_minimal() + # 用简洁的主题
  scale_x_continuous(breaks = 0:3) # 强制显示所有时间点刻度

额外调整建议 #

• 如果想让同label的样本样式更统一，可以把color = label换成linetype = label，或者同时用颜色和线型区分
• 如果觉得折线太多太乱，可以给不同label的样本设置透明度，比如geom_line(alpha = 0.7)
• 要是想突出某个样本，可以单独给它设置样式（比如加粗颜色）

这样就能得到你想要的、每个样本对应四个时间点的折线图啦！

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