Tenho um gráfico com marcas de escala muito longas entre si, gostaria de aumentar a quantidade, mas não sei como é possível.
Gostaria de aumentar a quantidade de valores no eixo Y, por exemplo, entre 32 e 256 e entre 2048 e 16384.
Código que estou utilizando:
library(tidyverse)
library(gghighlight)
url <- httr::GET("https://xx9p7hp1p7.execute-api.us-east-1.amazonaws.com/prod/PortalGeral",
httr::add_headers("X-Parse-Application-Id" =
"unAFkcaNDeXajurGB7LChj8SgQYS2ptm")) %>%
httr::content() %>%
'[['("results") %>%
'[['(1) %>%
'[['("arquivo") %>%
'[['("url")
dados <- utils::read.csv2(url, stringsAsFactors = FALSE, fileEncoding = "latin1")
dados$data <- lubridate::as_date(dados$data)
dados <- dados %>%
filter(data > as.Date("2020-02-29"))
rm(url)
dados %>%
filter(casosAcumulados > 9) %>%
group_by(estado) %>%
mutate(diasposdez = 1:n()) %>%
ggplot(aes(diasposdez, casosAcumulados)) +
geom_line(aes(color = estado)) +
scale_y_continuous(trans = 'log2') +
labs(x = "Dias depois do 10º caso confirmado", y = "Casos acumulados") +
gghighlight(estado == c("DF", "SP", "RJ", "AM", "CE")) +
ggthemes::scale_colour_economist() +
theme(panel.background = element_rect(fill = "white", colour = "grey10")) +
theme(panel.grid.major = element_line(colour = "gray", linetype = "dashed"), plot.subtitle = element_text(size = 11))