R/leaflet으로 레이블 텍스트 줄 바꿈

6215 단어 Rleaflet
label은 마우스 오버가 생기고, popup은 마우스 오버가 불가능할 것 같기 때문에.
library(leaflet)
library(stringi)
library(htmltools)

name <- stri_rand_strings(n=10, length=8)
lat <- rnorm(n=10, mean=35, sd=1)
lng <- rnorm(n=10, mean=135, sd=1)
X <- data.frame(name, lat, lng)
X$text <- paste(
  "Name: ", X$name, "<br>",
  "Latitude: ", round(X$lat, 3), "<br>",
  "Longitude: ", round(X$lng, 3), "<br>",
  sep=""
)

# Before
leaflet() %>%
  addTiles() %>%
  addCircleMarkers(lng=X$lng, lat=X$lat, label=X$text)

# After
leaflet() %>%
  addTiles() %>%
  addCircleMarkers(lng=X$lng, lat=X$lat, label=lapply(X$text, HTML)

Before





After



좋은 웹페이지 즐겨찾기