R语言怎么用plot画按年折叠及按月折叠图

在R语言中，使用`ggplot2`库画出按年和按月折叠的时间序列图非常直观。假设你有一个包含时间戳和数值的数据框，比如`df`，其中有个列叫`total`表示消费零售总额，你可以按照以下步骤操作：

1. **按年折叠图**:

   library(ggplot2)  # 加载 ggplot2 库
   df$year <- format(as.Date(df$date), "%Y")  # 添加年份列
   annual_plot <- ggplot(df, aes(x = year, y = total)) +
       geom_line() +  # 绘制线图
       facet_wrap(~ year, ncol = 1, scales = "free_y")  # 按年折叠
   print(annual_plot)

2. **按月折叠图**:

   df$month <- format(as.Date(df$date), "%m")  # 添加月份列
   monthly_plot <- ggplot(df, aes(x = month, y = total)) +
       geom_line() +
       facet_wrap(~ month, ncol = 6, scales = "free_y")  # 按月折叠，ncol指定每行显示几个月份
   print(monthly_plot)

上述代码中，`geom_line()`用于绘制折线图，`facet_wrap()`则用于创建折叠图。`scales = "free_y"`让每个子图各自调整y轴范围。

**相关问题--:**
- 如何将日期列转换为适合做时间序列图的格式？
- `facet_wrap()`的其他参数有哪些？
- 如何在R中给图形添加标题和坐标标签？