Boa tarde
Gostaria de individualizar as escalas do eixo Y das barras e pontos ligados por linha do gráfico abaixo.
A ideia é poder aumentar o tamanho das barras e melhorar a visualização, mas os valores do plot de pontos+linhas são maiores deixando as colunas pequenas, uma vez que compartilham o mesmo eixo Y.
Mesmo na busca por soluções estou com muita dificuldade de montar o gráfico dessa maneira.
Segue abaixo o código utilizado e um exemplo do gráfico de como gostaria de deixa-lo.
dt <- data.frame(periodo = c ("junho", "julho"),
peso = c(14.1, 14.51, 12.25, 12.81),
atr = c(140.61, 130.29, 131.5, 146.23))
dt$ZONA <- rep(c("15", "17"), each = nrow(dt)/2)
# Ordena os níveis da variável período para serem plotados na ordem correta
dt$periodo <- factor(dt$periodo, levels = c("junho", "julho"))
ggplot(dt, aes(periodo, peso, fill = ZONA)) +
geom_col(position = "dodge")
# para linhas, a variável do eixo X precisa ser contínua
ggplot(dt, aes(as.integer (periodo), atr, color = ZONA)) +
geom_col(aes(periodo, peso, fill = ZONA, color = NULL),
position = "dodge") +
labs(x = "Período", y = "", title = "TCH",
subtitle = "Ganho de peso mensal") +
geom_line(
data = subset(dt, ZONA == "15"),
position = position_nudge(x = -.25)) +
geom_point(
data = subset(dt, ZONA == "15"),
position = position_nudge(x = -.25)) +
geom_line(
data = subset(dt, ZONA == "17"),
position = position_nudge(x = .25)) +
geom_point(
data = subset(dt, ZONA == "17"),
position = position_nudge(x = .25)) +
scale_color_manual(values = c("darkred", "darkblue")) recuar o texto pré-formatado em 4
espaços
