Estou tentando reproduzir o gráfico "1" abaixo para o modelo "2", porem não estou tendo sucesso em meu comando utilizado.
A ideia é separar em plots diferentes para uma melhor visualização (geom_line + geom_point
parte superior e geom_col
parte inferior).
Segue o comando e figuras exemplificando os modelos.
library(ggplot2)
library(lubridate)
dt <- data.frame(periodo = c ("junho", "julho", "agosto"), peso = c(1, 5, 4, 3, 4, 3),
atr = c(0.95, 0.5, 0.7, 0.75, 0.6, 0.8))
dt$grupo <- rep(c("A", "B"), each = nrow(dt)/2)
dt$periodo <- factor(dt$periodo, levels = c("junho", "julho", "agosto"))
dtF <- rbind(
data.frame(when=dt$periodo, num=dt$peso, what="Peso"),
data.frame(when=periodo, num=dt$atr, what="ATR"))
secondFacet <- FALSE +
ggplot(data = dtF, mapping = aes(peso, atr, fill = grupo))+
geom_col(position = "dodge")
facet_grid(what~., scale = "free") +
geom_bar(data=dtF[dtF$what=="Peso",], stat = "identity", fill = "grey") +
geom_line(data=dtF[dtF$what=="ATR",], size = 2, color = "blue") +
scale_y_continuous(name = NULL, labels = function(b) {
if(!secondFacet) {secondFacet <<- TRUE
return(paste0(round(b * 100, 0), "%"))}else{return(b)}}) +
scale_x_date(name = "Day", labels = NULL)