Tenho um gráfico de linhas e gostaria de por o rótulo do estado correspondente à linha, mas está saindo o rótulo em cada dado disponível e não somente o último:
Código que estou ulizando:
library(tidyverse)
dados <- read_delim("~/Downloads/arquivo_geral.csv",
";", escape_double = FALSE, trim_ws = TRUE)
dados <- dados[,-1]
dados %>%
filter(casosAcumulados > 9) %>%
ggplot(aes(x = data, y = log(casosAcumulados), col = estado)) +
geom_line() +
geom_text(aes(label = estado),
vjust = -1) +
theme(legend.box = "none") +
ggtitle("Casos confirmados - Brasil", "(Em log)")
Base de dados: https://covid.saude.gov.br/
geom_text(aes(label = estado, x = ultima_data_da_sua_tabela), vjust = -1)
meu_grafico + scale_y_log10()