перекрывающиеся ярлыки geom_bar

Question

для простоты предположим, что у нас есть база данных, подобная

# A    
1 1  
2 2   
3 2    
4 2
5 3   

У нас есть категориальная переменная "A" с 3 возможными значениями (1,2,3). И я ввожу этот код:

ggplot(df aes(x="", y=df$A, fill=A))+
   geom_bar(width = 1, stat = "identity")

Проблема в том, что метки перекрываются. Также я хочу изменить метки для 1,2,3 на x, y, z. Вот изображение того, что происходит

А вот ссылка на фактические данные, которые я использую. https://a.uguu.se/anKhhyEv5b7W_Data.csv

Answer 1

Ваш график не соответствует образцу данных, который вы показываете, поэтому трудно быть уверенным, что структура ваших реальных данных на самом деле такая же.

Используя случайный пример, я получаю следующий график:

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

Это то, что вы ищете?