geom_bar重叠标签

您的图形与所显示的数据样本不对应，因此很难确保实际数据的结构实际上是相同的。

使用一个随机示例，我得到以下图：

df <- data.frame(A = sample(1:3,20, replace = TRUE))

library(ggplot2)
ggplot(df, aes(x="A", y=A, fill=as.factor(A)))+
  geom_bar(width = 1, stat = "identity")  +
  scale_fill_discrete(labels = c("x","y","z"))

编辑：使用OP提供的数据

在这里，使用您的数据，您将获得以下图表：

ggplot(df, aes(x = "A",y = A, fill = as.factor(A)))+
  geom_col()

或者，如果您希望对A的每个单独值进行计数，则可以执行以下操作：

library(dplyr)
library(ggplot2)
df %>% group_by(A) %>% count() %>%
  ggplot(aes(x = "A", y = n, fill = as.factor(A)))+
  geom_col()

您在找什么吗？