ggplot2颜色标度及美学映射报错：绘制物品频率图失败

看起来你在绘制产品频率图时踩了个常见小坑，我来帮你拆解错误原因和解决办法：

错误原因分析 #

你遇到的两个提示是关联的：

• Don't know how to automatically pick scale for object of type data.frame. Defaulting to continuous.：这是因为你在美学映射（比如aes(x = ...)）里传入了整个数据框，而非具体的某一列（比如product_name），ggplot无法对整个数据框做刻度适配。
• Error: Aesthetics must be either length 1 or the same as the data (39123): x：数据框的“长度”指的是列数（你的数据有3列），但数据集有39123行，x美学的长度和数据行数不匹配，因此报错。

解决办法 #

你需要明确指定要统计频率的列（比如product_name），下面给你两种常用实现方式：

方法1：用geom_bar()自动统计频率 #

geom_bar()默认会帮你统计每个类别出现的次数，直接传入列名即可：

library(ggplot2)

# 假设你的数据框名为df
ggplot(df, aes(x = product_name)) +
  geom_bar() +
  # 产品名称过长时，旋转x轴标签方便阅读
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

方法2：先手动计数再用geom_col()绘制 #

如果你想先自行计算每个产品的频率（方便后续调整），可以用dplyr先汇总：

library(ggplot2)
library(dplyr)

# 统计每个产品的订单数
product_counts <- df %>%
  count(product_name, name = "frequency")

# 绘制柱状图
ggplot(product_counts, aes(x = product_name, y = frequency)) +
  geom_col() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

优化建议 #

你的数据集有39123行，产品种类可能极多，直接绘图会导致x轴标签挤成一团。建议筛选高频产品再绘制，比如只保留前20个最受欢迎的产品：

# 优化版横向柱状图，更适配长标签
df %>%
  count(product_name) %>%
  arrange(desc(n)) %>%
  slice_head(n = 20) %>%
  ggplot(aes(x = reorder(product_name, n), y = n)) +
  geom_col() +
  coord_flip() +
  labs(x = "Product Name", y = "Frequency")

这样就能顺利画出清晰的频率图啦！

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