[英]Label ggplot geom_bar with total stacked bar values
I am executing this code:我正在执行这段代码:
url <- 'http://pdet.mte.gov.br/images/Seguro-Desemprego/Segunda%20Quinzena%20de%20Maio/3-%20S%C3%A9rie%20Hist%C3%B3rica%20do%20Seguro-Desemprego%20-%202000%20a%202020%20-%20mensal.xlsx'
data <- rio::import(url, which = "Tabela 1")[-(1:4),] # import data from brazilian gov
# preparing the data
my_df <- t(data[(1),-1])
dates <- seq(as.Date('2000-01-01'), as.Date('2020-05-01'), by='1 month')
meses <- format(dates,"%b")
anos <- as.numeric(format(dates,"%Y"))
my_df <- data.frame(anos, meses, as.numeric(my_df))
colnames(my_df) <- c('year', 'month', 'amount')
my_df <- subset(my_df, month %in% c('jan', 'fev', 'mar', 'abr', 'mai'))
my_df$month <- factor(my_df$month, levels=c('jan', 'fev', 'mar', 'abr', 'mai'))
> str(my_df)
'data.frame': 105 obs. of 3 variables:
$ year : num 2000 2000 2000 2000 2000 ...
$ month : Factor w/ 5 levels "jan","fev","mar",..: 1 2 3 4 5 1 2 3 4 5 ...
$ amount: num 343398 375906 394778 347326 386524 ...
# plot
ggplot(my_df, aes(y = year, x = amount/100000)) +
geom_bar(aes(fill = month), stat = "identity", position = position_stack(reverse = TRUE)) +
labs(title='Seguro-Desemprego: nº de requerimentos por mês',
subtitle='Valores acumulados no ano (milhões), corte em maio',
color = '', x = '', y = '') +
theme(panel.background = element_blank(),
panel.grid.minor = element_blank(),
panel.grid.major = element_blank(),
plot.background = element_rect(fill='moccasin'),
plot.title = element_text(color = "red3", size = 19, face = "bold"),
plot.subtitle = element_text(color = "red4", size = 12, face = "bold"),
plot.caption = element_text(color = "red4", size = 11, face = "bold"),
axis.line = element_blank(),
axis.text.y = element_text(color = "red4", size = 11, face = "bold"),
axis.text.x = element_blank(),
axis.ticks=element_blank(),
legend.position = "none") +
scale_fill_brewer(palette="Set1", direction = -1) +
scale_y_continuous(trans = "identity",
breaks = seq(from = 2000, to = 2020, by = 1),
expand = c(0,0)) +
scale_x_continuous(expand = c(0,0)) +
geom_text(aes(label = month), size = 4.6, hjust = 1, vjust = .3, position = "stack", color = "white", fontface=2)
But I want to put the totals of amount
variable by year
at the end of each bar.但我想在每个条形图的末尾添加按
year
变化的总amount
。 That is, I want the total of the entire stacked bar on top of it (what in the case is on the right side).也就是说,我想要它上面的整个堆叠条的总数(在这种情况下是在右侧)。
I tried to use stat_summary
and geom_text
in several specifications but I did not get the desired result.我尝试在多个规范中使用
stat_summary
和geom_text
,但没有得到想要的结果。 Is there any way to do this without having to modify my data frame?有没有办法做到这一点而不必修改我的数据框?
EDIT编辑
Good news, I just got the expected result using stat_summary, like this:好消息,我刚刚使用 stat_summary 得到了预期的结果,如下所示:
stat_summary(aes(label = stat(x)/10), fun = 'sum', geom = 'text', col = 'red4', hjust = -.25, vjust =.45, fontface = 2, position = "identity", size = 3.6) stat_summary(aes(label = stat(x)/10), fun = 'sum', geom = 'text', col = 'red4', hjust = -.25, vjust =.45, fontface = 2, position = "身份”,大小 = 3.6)
Solution found:找到的解决方案:
+ stat_summary(aes(label = stat(x)/10),
fun = 'sum',
geom = 'text',
col = 'red4',
hjust = -.25,
vjust = .45,
fontface = 2,
position = "identity",
size = 3.6)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.