举个栗子,我有一个这样的图,在 R 控制台运行可以自动打开一个浏览器,在浏览器里可以自由地拖拽。我想怎么才可以插入到博客里,在 R Markdown 文档中,我知道怎么操作,但是在 Markdown 中就不知道,我没有看到导出这个 html 为单独文件的操作
library(leaflet)
data(quakes)
pal <- colorBin("Spectral", bins = c(4, 4.5, 5.0, 5.5, 6.5), reverse = TRUE)
leaflet(quakes) %>%
addProviderTiles(providers$CartoDB.Positron) %>%
addCircles(lng = ~long, lat = ~lat, color = ~pal(mag)) %>%
addLegend("bottomright",
pal = pal, values = ~mag,
title = "地震震级"
) %>%
addScaleBar(position = c("bottomleft"))