Olá!
Eu gostaria de colocar um atraso, dentro de uma função que estou criando para juntar N-gráficos. Percebi que em algumas casos, minha função não espera o eval(parse(text=paste()))
gerar todas as listas, e já pula para a próxima linha de código dentro da função. ( Eu uso o eval(parse(text)))
para gerar sequências de linhas executáveis, pois as vezes preciso retornar a uma informação dentro de algum objeto, o que por falta de conhecimento meu, não consigo realizar usando algum loop
).
Infelizmente, a função que resulta no erro, é muito extensa, e o erro só aparece ao utilizar a base de dados completa, por isso, criei uma função genérica para tentar explicar, onde entraria o atraso.
Pacotes utilizados:
pacs<-{
pacotes<-c("ggplot2","ggpmisc","ggpubr")
eval(parse(text=paste('if(!require(',pacotes,')){install.packages("',pacotes,'")}',sep="")))
}
Base de dados
base<-structure(list(FAT1=c("T19","T19","T19","T19","T19","T19",
"T19","T19","T19","T19","T19","T19","T19","T19","T19",
"T19","T19","T19","T19","T19","T19","T19","T19","T19"
),VARY=c(0.626,0.299,0.658,0.954,0.52,0.445,0.61,0.649,
0.348,0.599,0.338,0.295,0.589,0.449,0.522,0.76,0.664,
0.416,0.522,0.512,0.353,0.623,0.563,0.249),VARX=c(0.631,
0.3,0.635,0.933,0.514,0.466,0.572,0.653,0.348,0.605,
0.345,0.273,0.597,0.457,0.516,0.748,0.684,0.432,0.532,
0.517,0.351,0.633,0.581,0.227)),class="data.frame",row.names=c(NA,
24L))
Função:
plota.tudo<-function(base,N){
minha.formula<-y~I(x)+I(x^2)+I(x^3)
eq<-function(minha.formula){
stat_poly_eq(formula = minha.formula,eq.with.lhs = "italic(hat(Y))~`=`~",aes(label = paste(..eq.label.., ..rr.label.., sep = "*plain(\",\")~")), parse = TRUE)}
eval(parse(text=paste('graf',1:N,'<-ggplot(base,aes(x=VARX,y=VARY))+geom_point()+geom_smooth(formula=minha.formula,method = "lm",se=FALSE,color="black",span=.8)+eq(minha.formula)',sep="")))
# Local para haver o atraso!!!
# pois eu preciso que ele crie todos os arquivos de graficos
eval(parse(text=paste('grafico<-annotate_figure(ggarrange(graf1,',paste(paste('graf',2:N,sep=""),c(rep(",",N-2),""),collapse=" ",sep=""),
', common.legend = T),',
'left = text_grob("VARIAVEL X",rot=90,size = 12),',
'bottom = text_grob("VARIAVEL Y",size=12))',sep="")))
print(grafico)}
# plota.tudo(base,N=quantidade de graficos a ser gerada)
plota.tudo(base,10)
purrr::map()
ou algo do tipoeval(parse(text = ...))
são muito rarasaes_string()
não pode lhe ajudar a descomplicar o código