Hola. Estoy tratando de generar un mapa web de punto que al tocarlos me despliege un grafico con todas las superficies de cobertura de suelo para cada uno de ellos
, pero al hacer correr el codigo de leafpop::addPopupGraphs me sale el siguiete error: Error: Aesthetics must be either length 1 or the same as the data (1): x and y. me pueden decir como solucionar esto? a contunuacion dejo el codigo que estoy utilizando.
shp_plots <- fra%>% mutate(data=split(fra[4:12], seq(nrow(fra))))%>%mutate(graf=map(data,~ggplot(data.frame=Cobertura,l<-data.frame(Lts= (.x[ , 1:9])),aes(x=Cobertura,y=l))+scale_y_continuous(limit = c(0,300))+geom_bar(stat = "identity")))
leaflet()%>%addCircleMarkers(data=shpdata, weight = 1,
fillOpacity=0.5,
color = "#5894c4",
radius = 3, group ='POZOS')%>%
leafpop::addPopupGraphs(shp_plots$graf,
group = "POZOS",
width = 600, height = 300)
Error: Aesthetics must be either length 1 or the same as the data (1): x and y
Run rlang::last_error() to see where the error occurred.
Esta es la tabla con las listas que obtengo en el proceso de shp_plots
