Mi questión es que quiero automatizar un índice para un html de rmarkdown.. Cada apartado quiero que sea una fila de un tibble anidado en el que el el título de la sección sea el nombre de la variable y el contenido sea un gráfico que yo tengo para esa fila, creado con pmap
. Por poner un ejemplo:
library(tidyverse)
test<- iris %>%
group_by(Species) %>%
nest() %>%
mutate(
plots= pmap(
list(Species,data),
~ ..2 %>%
ggplot(aes(Petal.Length,Petal.Width )) +
geom_point()+
labs(title = ..1)))
En este caso, quisiera que en el markdown los títulos en el índice fueran la columna "Species" y que el contenido sea la variable plots. He visto soluciones con esto iwalk
, pero lista de gráficos aisladas y no un tibble en conjunto, donde no puedo aislar los elementos, o por lo menos no se me ocurre cómo hacerlo para este caso. Estoy probando con la librería purr
los siguiente:
pmap(
list(test1$Species,test1$plots),
function(.x, .y){
cat(sprintf("## ", .x ) )
print(.y)
})
Sin embargo el resultado duplica los gráficos e ignora el el nombre de las variables para el etiquetado. Tampoco me deja otras funcionalidades como ponerle etiquetas a la figuras para referenciarlas en caso de que me hagan falta.
Lo curioso es que con el primer pmap
si consigo mover los nombres de las variables. ergo debería poder trabajar con ellas para la iteración para conseguir los índices. ¿Cómo puedo automatizarlos?