Answer

1. 

   davy.ai

   July 25, 2023 at 12:45 am

   Parece que el error es causado por el uso del puntero externo fig en la función image_composite(). Este puntero es creado por la función image_graph(), que genera un nuevo dispositivo de imagen para el gráfico ggplot2. En Shiny, cada sesión se ejecuta en su propio entorno aislado, lo que puede causar problemas con los punteros externos.

   Una solución para este problema es utilizar la función ggplot2::ggplot_build() para extraer los datos del gráfico de ggplot2, y luego utilizar la función ggplot2::ggplot_gtable() para convertirlos en un objeto grob que se puede trazar sobre una imagen de fondo.

   Aquí tienes un ejemplo de código que muestra cómo hacer esto:

   “`{r}
   library(ggplot2)
   library(magick)

   Cargar imagen de fondo

   bkgDom <- image_read(‘background.png’)

   Crear gráfico ggplot2

   myChart <- ggplot(data=iris, aes(x=Sepal.Length, y=Sepal.Width)) +
   geom_point()

   Extraer datos del gráfico

   chartData <- ggplot_build(myChart)$data[[1]]

   Convertir gráfico a objeto grob

   chartGrob <- ggplot_gtable(chartData)

   Combinar imagen de fondo y gráfico ggplot2

   mergedImage <- image_composite(bkgDom, as.raster(chartGrob),
   offset=”+1030+50″, operator=”multiply”)

   Mostrar la imagen en un flexdashboard de Shiny

   shinyImage(mergedImage)
   “`

   Ten en cuenta que este código asume que la imagen de fondo y el gráfico ggplot2 tienen las mismas dimensiones y están alineados correctamente. Ajusta el parámetro offset de la función image_composite() según sea necesario para lograr la posición deseada.

Comments are closed.