R语言新手求助：绘制分组随时间变化的Y值比例折线图

嘿，作为R新手遇到这类绘图问题完全不用慌！我来一步步带你搞定这个折线图，从数据处理到绘图全给你讲明白。

第一步：准备工具和模拟数据 #

首先咱们得加载常用的包：dplyr用来做数据处理，ggplot2用来绘图，lubridate能帮咱们轻松搞定日期转换（如果你的日期是字符型的话）。要是还没装这些包，先运行安装命令：

# 安装需要的包（仅第一次运行）
install.packages(c("dplyr", "ggplot2", "lubridate"))

# 加载包
library(dplyr)
library(ggplot2)
library(lubridate)

假设你的数据集大概是这样的（我模拟一份类似的数据，你直接替换成自己的就行）：

# 模拟数据集：date是月日字符，group是0/1分组，Y是每日对应数值
df <- data.frame(
  date = rep(c("01-01", "01-02", "01-03", "01-04", "01-05"), each = 2),
  group = rep(c(0, 1), times = 5),
  Y = c(12, 8, 15, 5, 9, 11, 7, 13, 10, 10)
)

第二步：处理日期格式（解决你提到的月份转换问题） #

你的X轴是月日，但R默认会把字符型的"01-01"当成普通字符串，排序很容易乱。咱们可以给它加一个默认年份（比如2024），转成标准的Date类型，这样X轴就能自动按时间顺序排列，之后还能轻松调整显示格式：

df <- df %>%
  # 把月日字符转成Date类型，加2024年不影响后续只显示月日
  mutate(date = dmy(paste0(date, "-2024")))

第三步：计算每日分组的Y值比例 #

接下来要计算每个分组每日的Y值占当日总Y值的比例（比如当天group0的Y值除以group0+group1的总Y值）。用dplyr的分组计算超方便：

df_proportion <- df %>%
  # 按日期分组，先算出当日的总Y值
  group_by(date) %>%
  mutate(total_Y = sum(Y)) %>%
  # 计算比例，保留两位小数方便查看
  mutate(Y_proportion = round(Y / total_Y, 2)) %>%
  ungroup()

第四步：绘制折线图 #

现在用ggplot2来画折线图，设置X轴为处理后的日期，Y轴为比例，用颜色区分两个分组：

ggplot(df_proportion, aes(x = date, y = Y_proportion, color = factor(group))) +
  # 画折线，加上数据点更清晰
  geom_line(linewidth = 1) +
  geom_point(size = 2) +
  # 调整X轴显示为月日格式，隐藏年份
  scale_x_date(date_labels = "%m-%d", date_breaks = "1 day") +
  # Y轴改成百分比格式，更直观
  scale_y_continuous(labels = scales::percent) +
  # 设置分组颜色和图例标签，让图更易懂
  scale_color_manual(values = c("#1f77b4", "#ff7f0e"), labels = c("Group 0", "Group 1")) +
  # 添加标题和轴标签
  labs(
    title = "每日分组Y值比例折线图",
    x = "日期（月-日）",
    y = "Y值比例",
    color = "分组"
  ) +
  # 用简洁的主题，新手友好
  theme_minimal() +
  # 调整X轴标签角度，避免重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

额外小提示 #

• 如果你的原始日期列已经是带年份的完整日期，直接用ymd()或者mdy()转换就行，不用额外加年份
• 如果比例是指每个分组自身的累计比例（比如group0每日Y值占group0总Y值的比例），只需要把分组逻辑改成group_by(group, date)，然后计算Y/sum(Y)（这里的sum(Y)是整个分组的总Y值）

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