传单地图上的饼图

Question

我有一个非常简单的数据集。

df <- data.frame(lat = c(47.4979, 47.4970),
                 lon = c(19.0402, 19.0408),
                 fel = c(60, 30),
                 le = c(40, 70))

我想在传单地图上用饼图将其可视化。 addMinicharts 函数将其打开，但我的查看器冻结了，我永远无法放大或缩小。此外，图表的可定制性非常有限。确实没有任何简单的方法可以将饼图放置到某些坐标，而添加一个基于值的大小的圆形标记却如此简单？

Answer 1

使用

leaflet.minicharts

包...

df$total<-df$fel+df$le

basemap<-leaflet() %>% addProviderTiles("CartoDB.Positron")
basemap

colors <- c("darkgreen", "#cccc11")

basemap %>%
  addMinicharts(
    df$lon, df$lat,
    type = "pie",
    chartdata = df[, c("fel", "le")], 
    
    colorPalette = colors, 
    width = 60 * sqrt(df$total) / sqrt(max(df$total)), transitionTime = 0
  )