在R Studio中使用ggplot2绘制特定类别产品折线图求助

嘿，很高兴看到你在R数据分析的路上越走越顺还乐在其中！针对特定品类绘制销售折线图其实是个非常常见的需求，用ggplot2就能轻松解决——我来给你一步步演示，我会先模拟一个和你场景类似的数据集，你可以直接替换成自己的数据来用。

假设你的数据集包含日期、品类、销售额三个核心字段，我先造一个样例数据：

# 模拟销售数据集
sales_data <- data.frame(
  date = rep(seq(as.Date("2024-01-01"), as.Date("2024-01-31"), by = "day"), 3),
  category = rep(c("电子产品", "服装", "食品"), each = 31),
  sales = c(rnorm(31, 500, 50), rnorm(31, 300, 40), rnorm(31, 200, 30))
)

如果你只想画某一个品类（比如「电子产品」）的销售趋势，先筛选对应数据再绘图就好：

library(ggplot2)

# 筛选出电子产品的销售数据
electronics_sales <- subset(sales_data, category == "电子产品")

# 绘制折线图，搭配点标记更清晰
ggplot(electronics_sales, aes(x = date, y = sales)) +
  geom_line(color = "#2E86AB", linewidth = 1) +
  geom_point(color = "#F24C3D", size = 2) +
  labs(title = "电子产品每日销售趋势", x = "日期", y = "销售额") +
  theme_minimal()

如果想同时看几个品类（比如「电子产品」和「服装」）的趋势对比，可以用dplyr的filter函数筛选，再让不同品类用不同颜色区分：

library(dplyr)

# 筛选多个目标品类
selected_sales <- sales_data %>%
  filter(category %in% c("电子产品", "服装"))

# 绘制对比折线图
ggplot(selected_sales, aes(x = date, y = sales, color = category)) +
  geom_line(linewidth = 1) +
  geom_point(size = 2) +
  labs(title = "电子产品与服装每日销售趋势对比", x = "日期", y = "销售额", color = "品类") +
  theme_minimal()

要是想一次性查看每个品类的独立趋势，用facet_wrap分面功能会非常直观：

ggplot(sales_data, aes(x = date, y = sales)) +
  geom_line(color = "#2E86AB", linewidth = 1) +
  geom_point(color = "#F24C3D", size = 1.5) +
  labs(title = "各品类每日销售趋势", x = "日期", y = "销售额") +
  theme_minimal() +
  facet_wrap(~category)  # 按品类自动分面

小提示 #

• 如果你习惯用基础R绘图（而非ggplot2），也可以先筛选数据，再用plot()+lines()组合实现，但ggplot2的语法更直观，后续调整样式也更灵活。
• 替换成你自己的数据时，只要把代码里的列名（比如date、category、sales）改成你数据集里对应的字段名就行。

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