使用傳單生成總計數圖

Question

我正在嘗試使用 R 中的傳單包來生成交互式視覺效果，這有助於我可視化以下數據：

      Provice      Lat     Long     Date Confirmed Recovered Deaths
1       Anhui 31.82570 117.2264 20-01-22         1         0      0
2       Anhui 31.82570 117.2264 20-01-23         9         0      0
3       Anhui 31.82570 117.2264 20-01-24        15         0      0
4       Anhui 31.82570 117.2264 20-01-25        39         0      0
5       Anhui 31.82570 117.2264 20-01-26        60         0      0
6       Anhui 31.82570 117.2264 20-01-27        70         0      0
7       Anhui 31.82570 117.2264 20-01-28       106         0      0
8       Anhui 31.82570 117.2264 20-01-29       152         2      0
9       Anhui 31.82570 117.2264 20-01-30       200         2      0
10      Anhui 31.82570 117.2264 20-01-31       237         3      0

注：共有 10 個省份，每個省份都有各自的坐標。

到目前為止，我已經能夠創建以下圖像：

使用以下代碼：

dta2 %>% 
  leaflet() %>%
  addProviderTiles(providers$OpenStreetMap) %>%
  addMarkers(label = dta2$Confirmed  , lng = dta2$Long, lat = dta2$Lat ,clusterOptions = markerClusterOptions(), popup = ~paste("Provice:", dta2$Provice))

但是，我的目標是顯示每個集群中該病毒的確診病例總數，而不是每個集群的觀察數（每個省有 22 個觀察）。 換句話說，我想顯示單個集群中 10 個省中每個省的確認列的總和，而不是頻率。 有人可以幫我解釋一下嗎？

Answer 1

由於我無法訪問您的數據，因此很難確定我的提議是否有效。 但我認為以下可能有效。 請注意，我正在使用data.table包來匯總數據，如果您還沒有安裝它，則需要安裝它。

library(data.table)

# Summarize the data
setDT(dta2)
dta2 <- dta2[, .(
  Confirmed = sum(Confirmed),
  Recovered = sum(Recovered),
  Deaths = sum(Deaths)
), .(Provice, Lat, Long)]

# Create the leaflet map
leaflet(dta2) %>%
  addProviderTiles(providers$OpenStreetMap) %>%
  addLabelOnlyMarkers(
    lng = ~Long,
    lat = ~Lat,
    label = ~Confirmed,
    labelOptions = labelOptions(noHide = TRUE)
  )

如果需要，您可以使用addLabelOnlyMarkers()函數的參數labelOptions自定義顯示。