<div>Isto é o que acredito que da para fazer utilisando toda a informação.</div><br><br><div>df <- structure(list(Mes = c("Jan", "Fev", "Mar", "Abr", "Mai", "Jun", "Jul", "Ago", "Set", "Out", "Nov", "Dez", "Total"), `2016` = c(209L, 3959L, 8668L, 5448L, 4198L, 4042L, 4602L, 6969L, 3336L, 8580L, 6036L, 352L, 56399L), `2017` = c(314L, 2740L, 2758L, 2424L, 4138L,  2030L, 280L, 4552L, 2509L, 2847L, 6322L, 179L, 31093L), `2018` = c(778L, 3968L, 3092L, 2357L, 1333L, 895L, 5489L, 3598L, 4072L, 5562L, 6218L, 115L, 37477L), `2019` = c(246L, 2353L, 2905L, 4563L, 2791L, 493L, 3197L, 6463L, 1375L, 5626L, 10443L, 138L, 40593L), `2020` = c(76L, 2685L, 2062L, 0L, 0L, 0L, 0L, 1408L, 1554L, 3831L, 4573L, 1104L, 17293L)), class = "data.frame", row.names = c(NA, -13L)) </div><div>df[-13,]</div><br><div>#install.packages(tidyr)</div><div>#install.packaes(ggplot2)</div><div>#install.packages(dplyr)</div><br><div>library(tidyr)</div><div>library(ggplot2)</div><div>library(dplyr)</div><br><div>dados<-gather(df,key='Ano',value = 'Resp',-Mes)</div><br><div>dados1 <- dados%>%group_by(Mes,Ano)%>%summarize(Total=sum(Resp));</div><br><div>print(dados1,n=Inf)</div><br><div>ggplot(dados1, aes( fill=Ano,y=Total, x=Mes)) +</div><div>    geom_bar(position=position_dodge(), stat="identity")+</div><div>    theme_bw(base_size = 14,base_family = 'Sans' )+ylab("Resposta")+theme(legend.position="bottom",axis.text = element_text(colour = "black"))+    labs(fill="")+xlab("Cultivar")+scale_fill_grey(start=0.3,end=0.8)</div><br><div class="gmail_quote_attribution">On Feb 2 2021, at 12:07 pm, Olympio Neto por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:</div><blockquote><div><div class="gmail_default"><font style="font-family:georgia, serif">Pessoal, bom dia</font></div><div class="gmail_default"><br></div><div class="gmail_default"><font style="font-family:georgia, serif">Preciso fazer um gráfico que envolve o total acumulado anual dos anos de 2016-2020 em gráfico de barras e somente o resultado mensal de 2020 somente como gráfico de linhas no ggplot2. Não consegui fazer isso.  Alguém pode me dar uma luz? </font></div><div class="gmail_default"><br></div><div class="gmail_default"><font style="font-family:georgia, serif">Seria parecido com aqueles gráficos climatológicos, só que as barras representam o acumulado dos anos e a linha o resultado mensal de 2020. </font></div><div class="gmail_default"><font style="font-family:georgia, serif">Aqui está do dataframe:</font></div><div class="gmail_default"><br></div><div>structure(list(Mês = c("Jan", "Fev", "Mar", "Abr", "Mai", "Jun",</div><div>"Jul", "Ago", "Set", "Out", "Nov", "Dez", "Total"), `2016` = c(209L,</div><div>3959L, 8668L, 5448L, 4198L, 4042L, 4602L, 6969L, 3336L, 8580L,</div><div>6036L, 352L, 56399L), `2017` = c(314L, 2740L, 2758L, 2424L, 4138L,</div><div>2030L, 280L, 4552L, 2509L, 2847L, 6322L, 179L, 31093L), `2018` = c(778L,</div><div>3968L, 3092L, 2357L, 1333L, 895L, 5489L, 3598L, 4072L, 5562L,</div><div>6218L, 115L, 37477L), `2019` = c(246L, 2353L, 2905L, 4563L, 2791L,</div><div>493L, 3197L, 6463L, 1375L, 5626L, 10443L, 138L, 40593L), `2020` = c(76L,</div><div>2685L, 2062L, 0L, 0L, 0L, 0L, 1408L, 1554L, 3831L, 4573L, 1104L,</div><div class="gmail_default"><font style="font-family:georgia, serif"><font style="font-family:Arial, Helvetica, sans-serif">17293L)), class = "data.frame", row.names = c(NA, -13L))</font></font><font style="font-family:georgia, serif"> </font></div><div class="gmail_default"><br></div><div class="gmail_default"><font style="font-family:georgia, serif">Alguém pode me ajudar?</font></div><div class="gmail_default"><br></div><div class="gmail_default"><font style="font-family:georgia, serif">Muito obrigado.</font></div><div class="gmail_default"><br></div><div class="gmail_default"><font style="font-family:georgia, serif">Olympio</font></div></div><div>_______________________________________________</div><div>R-br mailing list</div><div>R-br@listas.c3sl.ufpr.br</div><div>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</div><div>Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.</div></blockquote>