在AddCirculeMarkers、ShinyR、传单地图中按nrow设置半径

Question

我有几个城市的40万行数据(data)。我想可视化他们的位置，也不同的财产传单。例如，我想根据给定城市的样本数来设置圆圈大小。我得到了正确的位置，但我不能得到半径的变化。我在下面进行了尝试，其中CityCoordinateData是一个由3列组成的df：所有城市的单行，即Location，它们的Lon和Lat和unique(data$city)具有与CityCoordinateData$Location相同的元素

m<-leaflet() %>%
      addTiles() %>% 
      setView(20, 47, zoom = 13) %>% 
      addCircleMarkers(CityCoordinateData$Lon, CityCoordinateData$Lat, radius=nrow(data[grep(CityCoordinateData$Location, data$City),])

Grep似乎只使用第一个元素的nrow。我也试过这个，它开始运行，但永远不会结束：

radius=nrow(subdata[grep(paste(CityCoordinateData$Location,collapse = "|"), data$City, value=TRUE),]) 

感谢您的任何提示！

数据的一个示例可以像这样模拟：

CityCoordinateData <- data.frame(Location=as.factor(c("Dorog", "Eger", "Erd")), Lon=c(17,18,19), Lat=c(40,41,42))
data <- data_sample<-data.frame(City=as.factor(c("Dorog", "Eger", "Erd", "Dorog", "Dorog", "Eger")), Variable=c(11,12,13,14,15,16))

Answer 1

您的数据每个位置有几个值。如果这是正确的，每个位置将有几个圆圈。这是我试过的代码。

library(leaflet)

CityCoordinateData <- data.frame(Location=c("Dorog", "Eger", "Erd"), 
                                 Lon=c(17,18,19), Lat=c(40,41,42))
data<-data_sample <- data.frame(City=c("Dorog", "Eger", "Erd", "Dorog", "Dorog", "Eger"), 
                                Variable=c(11,12,13,14,15,16))

names(CityCoordinateData)[1] <- c("City")

xy <- merge(CityCoordinateData, data)

leaflet(data = xy) %>%
  addTiles() %>%
  addCircleMarkers(~Lon, ~Lat, radius = ~Variable)