R 使用HTML设计传单悬停文本-如何为每个逗号插入分隔符

我在用传单记录观察结果。我还使用htmltools格式化显示每个观察变量的悬停文本

问题是，我想在每一行显示包含许多字符串的变量。每个爱好用逗号分隔

安装和加载所需的软件包： 创建虚拟观察：

---

您可以使用

gabbies

向量上的

gsub

将每个逗号替换为逗号，后跟换行符：

hobbies <- c("fishing, football, video games", "painting, skiing, body pump, data science") %>%
  gsub(",", ",<br>", .)

---

最后，请注意，为了让您的示例运行，我必须更改

df-oh-perfect！谢谢你，乔！
name <- c("john", "mary")
age <- c(20, 29)
gender <- c("male", "female")
hobbies <- c("fishing, football, video games", "painting, skiing, body pump, data science")
lat <- c(-12.80103, -12.37845)
long <- c(130.9558, 130.8770)

df <- as.data.frame(cbind(name, age, gender, hobbies, lat, long))

# Designing hover text with HTML
# lapply here necessary - my real data has much more than 2 rows#
labs <- lapply(seq(nrow(df)), function(i) {
  paste0( '<p>', "Name : ", df[i, "name"], '<p></p>', 
          "Age : ", df[i, "age"], ', ', 
          "Gender : ", df[i, "gender"],'</p><p>',
          "Hobbies : ", df[i, "hobbies"], ','
  )
})

leaflet(df) %>% 
  addProviderTiles("Esri.WorldImagery") %>% 
  addCircleMarkers(lng = ~ long, 
                   lat= ~ lat, 
                   label = lapply(labs, HTML),
                   clusterOptions = markerClusterOptions()
                   ) 

Name : mary
Age : 29, Gender : female
Hobbies : painting
          skiing
          body pump
          data science

hobbies <- c("fishing, football, video games", "painting, skiing, body pump, data science") %>%
  gsub(",", ",<br>", .)

hobbies <- c("fishing, football, video games", "painting, skiing, body pump, data science") %>%
  gsub(",", ",<br>&emsp;&emsp;&emsp;&emsp;&ensp;", .)