R小冊子地圖：在標籤彈出框中包含多行數據

Question

我有具有重複緯度/長度的數據行，我想包含一個包含所有分組列數據的標籤。

# Make sample dataframe 
long <- c(147.5, 147.5, 147.5, 147, 147) 
lat <- c(-36.5, -36.5, -36.5, -36, -36) 
label <- c(1, 1, 2, 1, 2) 

markers <- data.frame(lat,long,label) 

# Combine labels based on lat long 
markers <- markers %>% 
    group_by(lat, long) %>% 
    summarize(concat_label = toString(label)) 

# Markers with all of the labels 
leaflet() %>% 
    addTiles() %>% 
    addMarkers(lng=markers$long, lat= markers$lat, 
      popup= markers$concat_label 
) 

是否有toString的版本使用換行而不是逗號？我試圖使用粘貼和paste0，但無法使其工作。

Answer 1

# Make sample dataframe 
long <- c(147.5, 147.5, 147.5, 147, 147) 
lat <- c(-36.5, -36.5, -36.5, -36, -36) 
label <- c(1, 1, 2, 1, 2) 

markers <- data.frame(lat,long,label) 

# Aggregate method 
markers <- aggregate(label ~ lat + long, markers, paste, collapse = "<br/>") 

# Markers with all of the labels 
leaflet() %>% 
    addTiles() %>% 
    addMarkers(lng=markers$long, lat= markers$lat, 
      popup= markers$label 
) 

這個問題有了答案： Collapse/concatenate/aggregate a column to a single comma separated string within each group

Answer 2

您的標籤變量可以是HTML字符串，因此您可以使用<br/>標籤將標籤堆疊在一起。例如：

library(leaflet) 

long <- c(147.768, 147.768, 147.768,147.768, 147.768, 147.768) 
lat <- c(-36.852, -36.852, -36.852,-36.852, -36.852, -36.852) 
label <- paste(sep = "<br/>",'long label1', 'long label2', 'long label3','long label4', 'long label5', 'long label6') 

markers <- data.frame(lat,long,label) 


leaflet() %>% 
    addTiles() %>% 
    addMarkers(lng=markers$long, lat= markers$lat, 
      popup=markers$label, 
) 

您還可以喂到的變量使用相同的方法標籤 - 串聯行由行。