如何用ggplot绘制表格频数数据柱状图？解决报错与标签显示问题

1. 修正数据处理逻辑 #

你原来的代码在数据处理上有几个明显问题：

• 引用了不存在的对象UnnestQ3，应该用初始定义的UnnestGroupQ3
• summarise(Q3 = Q3)没有实际统计作用，要改成统计每个类别的出现次数
• table()后直接接view()会导致赋值失效——view()返回的是NULL，等于把UnnestGroupQ3清空了，而且table生成的不是标准数据框，得转成data.frame才能给ggplot用

修正后的代码：

# 初始数据
UnnestGroupQ3 <- data.frame(Q3 = c ("mail", "email", "mail", "mail", "Demonstration", "Videos (Ex: Youtube)", "Podcast", "Podcast", "mail"))

# 用dplyr统计频率并转成标准数据框
UnnestGroupQ3 <- UnnestGroupQ3 %>%
  group_by(Q3) %>%
  summarise(Freq = n()) %>% # 统计每个类别的出现次数
  ungroup() # 取消分组，避免后续麻烦

# 嫌dplyr麻烦的话，也可以用table直接转：
# UnnestGroupQ3 <- as.data.frame(table(UnnestGroupQ3$Q3)) %>%
#   rename(Q3 = Var1, Freq = Freq)

2. 修复ggplot报错并解决标签显示问题 #

你遇到的cannot coerce class...错误，核心原因有两个：

• 在aes()里直接写UnnestGroupQ3$Q3，ggplot会混淆数据来源，应该用数据框内的列名
• geom_bar()默认会自动统计x轴类别的数量，但你已经提前算出了Freq，必须加stat="identity"告诉ggplot直接使用y轴的值

另外针对barplot标签显示不全的问题，给ggplot的x轴标签加旋转即可解决空间不足：

# 这里可以直接用修正后的UnnestGroupQ3，无需额外创建GGplotData
GGplotData <- UnnestGroupQ3

# 绘制柱状图
Q3GraphGG <- ggplot(GGplotData, aes(x = Q3, y = Freq)) +
  geom_bar(stat = "identity", fill = "#2E86AB") + # stat="identity"是关键，避免重复统计
  labs(x = "沟通方式", y = "频率") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 旋转x轴标签，解决重叠问题

# 查看图表用print，view是用来查看数据的
print(Q3GraphGG)

错误根源总结 #

• view()放在赋值链末尾会让UnnestGroupQ3变成NULL，因为view()的返回值是空的
• ggplot的aes()要求使用当前数据框的列名，直接引用全局对象的列会导致数据类型混乱
• geom_bar()默认是计数模式，已有预计算频率时必须指定stat="identity"才能正确渲染

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