在R中用ggplot绘制33个用户的日期-卡路里折线图求助

问题核心 #

你之前的尝试里，最关键的遗漏是没把用户Id作为分组依据，导致折线图把所有用户的数据混在一起；另外用柱状图的几次尝试都错选了图表类型——柱状图默认统计的是数据计数，不是你要展示的Calories数值。

基础易懂的解决方案 #

第一步：先处理日期格式 #

确保ActivityDate是R能识别的日期类型（如果你的数据里它是字符串的话）：

trimmed_dactivity$ActivityDate <- as.Date(trimmed_dactivity$ActivityDate)

第二步：绘制分用户折线图 #

直接用geom_line，在映射里加上color = Id，ggplot会自动按每个用户Id生成独立线条：

ggplot(data = trimmed_dactivity, aes(x = ActivityDate, y = Calories, color = Id)) +
  geom_line() +
  # 旋转X轴日期标签，避免重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  # 给图表加清晰的标签
  labs(title = "各用户每日卡路里消耗变化", 
       x = "日期", 
       y = "卡路里消耗量", 
       color = "用户ID")

代码说明 #

• color = Id：既让不同用户的线条显示不同颜色，又自动按用户Id分组，把每个用户的日期-卡路里数据单独连成线
• theme(...)：解决X轴日期文字重叠的问题，hjust=1让旋转后的文字靠右对齐，更易阅读
• labs()：给图表和坐标轴加明确的名称，不用猜含义

新手友好的进阶小技巧 #

如果33条线挤在一起看不清楚，可以把每个用户的折线图拆成单独小面板：

ggplot(data = trimmed_dactivity, aes(x = ActivityDate, y = Calories)) +
  geom_line(color = "#2E86AB") +
  # 按用户Id拆分出33个小图
  facet_wrap(~Id) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  labs(title = "各用户每日卡路里消耗变化", 
       x = "日期", 
       y = "卡路里消耗量")

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