Показать сумму каждого столбца на гистограмме с накоплением в ggplot2 - PullRequest
Новая
       68

Показать сумму каждого столбца на гистограмме с накоплением в ggplot2

0 голосов
/ 09 июля 2020

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

    data <- read_csv("Book1.csv", col_types = cols(
  Year = col_factor(levels = c("2011", "2012", "2013", "2014", "2015", "2016", "2017", "2018", "2019")), 
  Equity = col_factor(levels = c("LSES", "NESB", "ATSI", "DIS", "REG/REM", "WINTA")),
  Count = col_integer()))
str(data)

Вывод (обобщенный): 

Year  : Factor w/ 9 levels "2011","2012",.. 
Equity: Factor w/ 6 levels "LSES","NESB",.. 
Count : int [1:54] 10 0 0 0 0 0 10 2 0 2 ...
Year = col_factor(levels = c("2011", "2012",..
Equity =col_factor(levels = c("LSES", "NESB", ..
Count = col_integer()_

таблица моих данных

I хотите иметь возможность сказать «N = 10» для 2011 года (сумма всех значений капитала за 2011 год) и повторить это для всех лет по графику.

Это код для моего графика: 

library(ggplot2)
library(readr)
p <- ggplot(data, aes(fill=Equity, y=Count, x=Year)) + 
  geom_bar(position="fill", stat="identity")+
  scale_fill_manual(values = c("#......"))+
  scale_y_continuous(labels = scales::percent)+
  ggtitle("Equity Distribution") +
  ylab("Percentage")+xlab("")+
  theme_bw() +
  theme(panel.border = element_blank(),
        legend.key = element_blank(),
        legend.background = element_blank(),
        axis.ticks = element_blank(),
        panel.grid = element_blank(),
        panel.grid.minor = element_blank(), 
        panel.grid.major = element_blank(),
        panel.background = element_blank(),
        plot.background = element_rect(fill = "transparent",colour = NA)
  )

p

ggsave("count3.png", bg = "transparent")

Я пробовал этот и этот здесь среди других, и, похоже, я никуда не денусь. ПОМОЩЬ!

...