geom_bar overlapping labels

Your graph does not correspond to the sample of data you are showing, so it is hard to be sure that the structure of your real data is actually the same.

Using a random example, I get the following plot:

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"))

EDIT: Using data provided by the OP

Here using your data, you should get the following plot:

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

Or if you want the count of each individual values of A, you can do:

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

Is it what you are looking for ?