使用传单生成总计数图

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自定义显示。