Estou tentando colocar a legenda embaixo de um conjunto de gráficos, mas o código não funciona. Mas costumava funcionar.
O meu DF é mais ou menos assim:
UTI | Faixa etária | Trimestre | Letalidade |
---|---|---|---|
Sim | 60 a 69 | Mar-Abr-Mai, 20 | 52,4 |
Sim | 70 a 79 | Jun-Jul-Ago, 21 | 48,5 |
Não | 90 ou + | Dez-Jan-Fev | 61,6 |
Não | 80 a 89 | Set-Out-Nov, 20 | 42,3 |
Sim | 60 a 69 | Mar-Abr-Mai, 21 | 45,0 |
Não | 70 a 79 | Jun-Jul-Ago, 20 | 57,1 |
NA | 90 ou + | Mar-Abr-Mai, 20 | 79,8 |
O código dos gráficos são assim:
fig.letal.uti.trim6 <- letal.uti %>%
filter(Trimestre == "Jun-Jul-Ago, 21", UTI != "NA") %>%
ggplot() +
aes(x = UTI, y = letalidade, fill = `Faixa etária`) +
geom_bar(stat="identity",position="stack") +
geom_text(aes(label=letalidade),position=position_stack(0.5),
hjust=0.5, family = "serif", size = 4)+
scale_fill_manual(values = met.brewer("NewKingdom", 4)) +
labs(y = "", subtitle = "Jun-Jul-Ago, 21",
fill = "Faixa etária"
) +
theme_bw() +
theme(legend.position = "bottom",
axis.title.x=element_blank(),
axis.text.y=element_blank())
Uso o seguinte comando pra juntar:
combined.letal.uti <- fig.letal.uti.trim1 + fig.letal.uti.trim2 +
fig.letal.uti.trim3 + fig.letal.uti.trim4 + fig.letal.uti.trim5 +
fig.letal.uti.trim6 + theme(legend.position = "bottom")
O resultado:
Eu queria que a legenda ficasse embaixo. Como faço?
theme(legend.spacing.x = unit(0.1, 'cm'), legend.position = c(0.1, 0.1))
.c(0.1,0.1)
é as coordenadas, se nao der certo vc ajustando as coordenadas