Boa tarde!!
Geração de multireport no Rmarkdown
Tenho dentro de uma estrutura de Loop
for (trib in siglasTrib$Sigla) {…
varias tabelas :
Tabela 6: Florestas Nacionais com maior área (km²) de desmatamento dentro do Estado pela metodologia Prodes/DETER no r trib
ft <- flextable(tabtrib_Florestas)
ft <- set_header_labels(ft, siglaTribunal = "Tribunal",NM_MUN = "Município",Area = "Área(km²)")
set_table_properties(ft, width = .5, layout = "autofit")
``` que rodam perfeitamente.
Já o Gráfico :
```{r echo=FALSE, message=FALSE, warning=FALSE}
ggplot(trib_Florestas, aes(x=as.factor(Florestas), y= Area, fill= Florestas)) +
geom_text(aes(label=as.numeric(round(Area, 2))), vjust=-1.5, hjust=0.5, size = 3)
+ geom_bar(stat = "identity", width = 0.8, fill = "#FF4019")
+scale_x_discrete("Florestas Nacionais", labels = (Florestas), breaks = trib_Florestas$Florestas)
+ theme(axis.text.x = element_text(angle = 90, vjust = 1, hjust = 1))
+labs(colour = "Uso") + labs(x = "Florestas Nacionais") + labs(y = "Areas (km²)")
+ labs(title = trib_Florestas$siglaTribunal) + labs(fill = "Uso")+ ggeasy::easy_center_title()
Roda só para a primeira iteração do vetor [siglasTrib$Sigla], ou seja só para o primeiro (i)= trib, que no caso é o AC ( Acre).
Após gerar todas as tabelas (para trib=AC) e gerar o gráfico também (para trib=AC) , dá a menssagem de erro , abaixo :
Quitting from lines 109-117 (multireport.Rmd)
Error in ans[ypos] ← rep(yes, length.out = len)[ypos] :
replacement has length zero
In addition: Warning message:
In rep(yes, length.out = len) : ‘x’ is NULL so the result will be NULL
O mesmo erro dá para o Mapa feito no ggplot também. O script roda bem no console do R mas quando executo todo o algoritmo para gerar o multireport, acontece isso de fica só na primeira iteração, ou seja
for (trib in siglasTrib$Sigla) {… trib=AC
Obrigado e agradeço que puder ajudar
sds
Julio