Re: [問題] 地圖上的資料點如何以圓餅圖呈現

[locka (locka)]

野人獻曝一下...

不確定原po想要的東西是甚麼, 因為leaflet套件提供的addCircleMarkers()
是用來畫氣泡圖, 也就是以圓圈大小表示同一個欄位在不同地點的值

圓餅圖的話, 變成要加總不同地方、不同類別(欄位)的個數再計算各自的比例

如果是要做圓餅圖, 可以使用leaflet.minichart這個套件


以iris為例, 原始data還需要做一些調整

library(dplyr)
library(leaflet)
library(leaflet.minicharts)

# minimal test dataset
iris2 <- iris %>% group_by(Species) %>% tally %>% spread(Species, n) %>%
    mutate(lng=120.946, lat=23.754, total=150) %>%
    add_row(setsosa=40, versicolor=80, virginica=180,
    lng=115.946, lat=23.754, total=300)

大概整理成這樣
https://i.imgur.com/0gX5zEm.jpg

colors <- c("#4fc13c","#cccccc","#33383c")

leaflet() %>% addTiles() %>%
    addMinicharts(
        lng = iris2$lng,
        lat = iris2$lat,
        type = "pie",
        chartdata = iris2[,c("setosa","versicolor","virginica")],
        colorPalette = colors,
        width = 60*sqrt(iris2$total)/sqrt(max(iris2$total))
    )

結果如圖

https://i.imgur.com/at17sma.jpg

用R玩了GIS一段時間, 希望有幫到忙~




※ 引述《rebe212296 (綠豆冰)》之銘言：
: [問題類型]:
: Openstreetmap
: [軟體熟悉度]:
: 會基本資料清理，資料分析，
: [問題敘述]:
: 想以Openstreetmap 加入圓餅圖
: 圓餅圖是顯示該地的iris的Species比例
: [程式範例]:
: install.packages("OpenStreetMap")
: install.packages("leaflet")
: install.packages("magrittr")
: install.packages("mapproj")
: library(OpenStreetMap)
: library( leaflet )
: library( magrittr )
: library( mapproj )
:  subscr<-data.frame(lat=c(55.381640),lon=c(10.433600)
:                                 m <- leaflet() %>% setView(lng=120.239, lat=22
: .992, zoom
: = 12)
:                                 m%>% addTiles()
:                                 m %>% addProviderTiles("Stamen.Toner")
: # 畫圓圈
:                                     #addCircleMarkers(data = subscr,
:                                     lat = ~lat, lng = ~lon,
:                                     color = "blue")
: # Pie Chart from data frame with Appended Sample Sizes
: mytable <- table(iris$Species)
: lbls <- paste(names(mytable), "\n", mytable, sep="")
: pie(mytable, labels = lbls,ꀊ: ꂠ main="Pie Chart of Species\n (with sample sizes)")
: [環境敘述]:
: R 6.3.3
: [關鍵字]:
: Openstreetmap

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.118.135.220 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1584691892.A.B9A.html
推 andrew43: 讚讚！