如何用ggplot2在R中绘制三类会员十年演变趋势图？

第一步：数据格式转换（核心步骤） #

从你提供的数据截图来看，当前数据是宽格式（每类会员单独占一列），而ggplot2绘制趋势图需要长格式数据（会员类型作为一列，对应人数作为另一列）。用tidyr包的pivot_longer()函数就能快速转换：

# 加载所需包
library(ggplot2)
library(tidyr)

# 假设你的原始数据框名为membership_data（和截图结构一致）
membership_long <- pivot_longer(membership_data, 
                                cols = c(membershipgood, membershipbad, membershipneither),
                                names_to = "会员类型",
                                values_to = "人数")

第二步：绘制趋势折线图 #

用转换后的长格式数据，就能轻松生成十年演变趋势图：

ggplot(membership_long, aes(x = Year, y = 人数, color = 会员类型)) +
  geom_line(size = 1) +  # 绘制折线，加粗线条提升可读性
  geom_point(size = 2) + # 添加数据点，清晰标注每年数值
  labs(title = "三类会员十年演变趋势",
       x = "年份",
       y = "会员人数",
       color = "会员类型") +
  theme_minimal() # 使用简洁清爽的主题

可选优化建议 #

• 若不同类别人数差距过大，可将y轴改为对数刻度：+ scale_y_log10()
• 自定义会员类型颜色：+ scale_color_manual(values = c("#2E8B57", "#FF6347", "#6495ED"))
• 给数据点添加数值标签（数据量小时适用）：+ geom_text(aes(label = 人数), vjust = -0.5)

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