如何在图表中映射列唯一值与其出现次数？解决aes函数报错

问题说明 #

我想要创建带x轴和y轴的图表，把某一列的唯一值对应到该值的出现次数。示例数据如下：

column_name
1
1
2
4
1
2
2
3
3
4
2
1

期望的映射关系是：

x >> y
1 >> 4
2 >> 4
3 >> 2
4 >> 2

我试过用table函数统计每个唯一值的出现次数，这个函数本身能正常出结果，但把它放到aes函数里时，就弹出了错误：

Aesthetics must be either length 1 or the same as the data

解决办法 #

方法1：先预处理数据（推荐） #

先把原数据统计汇总成包含唯一值和对应次数的新数据集，再用新数据集绘图，就能避免长度不匹配的问题。

以R语言的ggplot2为例，代码如下：

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

# 构造示例数据
df <- data.frame(column_name = c(1,1,2,4,1,2,2,3,3,4,2,1))

# 统计每个值的出现次数
summary_df <- df %>%
  count(column_name, name = "count")

# 绘制柱状图
ggplot(summary_df, aes(x = column_name, y = count)) +
  geom_bar(stat = "identity")

方法2：用ggplot内置的stat_count自动统计 #

ggplot2自带stat_count功能，能在绘图时自动计算每个x值的出现次数，不用手动调用table：

示例代码：

library(ggplot2)

df <- data.frame(column_name = c(1,1,2,4,1,2,2,3,3,4,2,1))

# 直接绘制，y轴默认是出现次数
ggplot(df, aes(x = column_name)) +
  geom_bar()

也可以显式指定统计逻辑：

ggplot(df, aes(x = column_name, y = after_stat(count))) +
  geom_bar(stat = "count")

错误原因 #

table(df$column_name)返回的是4个值的统计结果（对应4个唯一值），但原数据集有12行。ggplot要求aes里的映射变量长度必须和数据集行数一致，直接把table结果放进去就会出现长度不匹配的报错。

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