kreślenie wykresu słupkowego w wyskakującym okienku przy użyciu biblioteki ulotek

Question

Szybkie pytanie. Mam niektóre dane w serwerze sql, które załadowałem do RStudio. Zrobiłem wykresy dla danych i teraz używam biblioteki ulotek z wykorzystaniem szerokości i długości geograficznej, aby narysować punkt na mapie. Chcę móc korzystać z wyskakującego okienka, aby wyświetlić w nim wykres słupkowy, gdy użytkownik kliknie punkt.

Kod BarChart (może to jest problem, ponieważ korzystam z biblioteki googleVis, więc nie jestem pewien, czy mogę go użyć w popupie, ale znowu jest to najbardziej odpowiedni wykres słupkowy, który mogę tworzyć i potrzebować - inne sugestie mogą być pomocne Ponieważ nie jestem specjalistą w bibliotekach R jeszcze)

Switzerland <- sqlQuery(con, "sql query") 
SwitzerlandChart <- gvisBarChart(Switzerland, options = list(height=200)) 

na działce milimetrowym kod jest:

m <- leaflet() %>% 
    addTiles() %>% # Add default OpenStreetMap map tiles 
    addCircles(lng=8.498868, lat=46.9221, popup=paste(plot(SwitzerlandChart))) 

Kiedy uruchomić ten kod otwiera stronę internetową, aby zobaczyć barplot. Potem uruchom następujące:

m #Prints the graph 

Drukuje wykres z punktu w wybranym miejscu, ale okienko pokazuje mi stronę internetową, a nie tylko, które również mogę otworzyć.

Chcę być w stanie wykreślić wykres słupkowy wewnątrz pop-upu.

nadzieję, że ktoś może pomóc

Answer 1

Może trochę późno, ale tu jest rozwiązanie. Funkcja addPopups() w library(leaflet) wydaje się być w stanie obsłużyć pliki .svg. Dlatego możesz po prostu zapisać swój wykres za pomocą svg(), a następnie przeczytać go ponownie za pomocą readLines(). Oto przykład z użyciem library(mapview) powtarzalne:

library(lattice) 
library(mapview) 
library(sp) 

data(meuse) 
coordinates(meuse) <- ~x+y 
proj4string(meuse) <- CRS("+init=epsg:28992") 

clr <- rep("grey", length(meuse)) 

fldr <- tempfile() 
dir.create(fldr) 

pop <- lapply(seq(length(meuse)), function(i) { 

    clr[i] <- "red" 
    p <- xyplot(meuse$cadmium ~ meuse$copper, 
       col = clr, pch = 20, alpha = 0.7) 

    svg(filename = paste(fldr, "test.svg", sep = "/"), 
     width = 250 * 0.01334, height = 250 * 0.01334) 
    print(p) 
    dev.off() 

    tst <- paste(readLines(paste(fldr, "test.svg", sep = "/")), collapse = "") 

    return(tst) 

}) 

mapview(meuse, popup = pop, cex = "cadmium") 

Przekonasz się, że każdy jest popup rozrzutu. Jak na leaflet przykład rozważmy to:

content <- pop[[1]] 
leaflet() %>% addTiles() %>% 
    addPopups(-122.327298, 47.597131, content, 
      options = popupOptions(closeButton = FALSE) 
) 

W przypadku trzeba fabuły być interaktywny, można rzucić okiem na library(gridSVG) który jest w stanie produkować interaktywne wykresy z svg np lattice lub ggplot2 działek.

UPDATE:

library(mapview) teraz wyznaczyło funkcjonalność to:

• popupGraph: osadzić kratownica, ggplot2 lub interaktywny hatmlwidgets wykresy oparte.
• popupImage: osadzić lokalne lub zdalne (internet) obrazów

ta jest obecnie dostępna tylko w wersji rozwojowej MapView, które mogą być zainstalowane z:

devtools::install_github("environmentalinformatics-marburg/mapview", ref = "develop"