如何限制R中Leaflet地图弹窗数值仅保留两位小数

我正在用R制作交互式Leaflet地图，现有shapefile结构如下：

# my_shapefile

Simple feature collection with 6 features and 5 fields
geometry type: MULTIPOLYGON
dimensions : xy
bbox: xmin ... y min ... xmax ... ymax...
CRS: EPSG:  4326

ID: A, B, A
Geometry : MULTIPOLYGON ((( 55.23, -71.22 ....
value :  0.12, 0.15, 0.13

编写的地图代码如下：

library(sf)
library(leaflet)
library(classInt)
library(RColorBrewer)

sf <- sf::st_read("my_shapefile.shp", options = "ENCODING-WINDOWS-1252")

# note: "value" comes from another file that I merged to the shapefile
st_trans <- st_transform(sf, 4326)

breaks_qt <- classIntervals(sf$value, n=7, style "quantile")

pal_fun <- colorQuantile("YlOrRd", NULL, n = 5)

# here is the problem I think
p_popup <- paste0("<strong> Value : </strong>", sf$value)

leaflet(st_trans) %>%
  addPolygons(
    stroke = FALSE,
    fillColor = ~ pal_fun(value),
    fillOpacity = 0.8, smoothFactor = 0.5,
    popup = p_popup,
    group = "my_group") %>%
  addTiles(group = "OSM") %>%
  addProviderTiles("CartoDB.DarkMatter", group = "Carto") %>%
  addLegend("bottomright", 
            colors = brewer.pal(7, "YlOrRd"),
            labels = paste0("up to ", format(breaks_qt$brks[-1], digits = 2)),
            title = 'my legend') %>%
  addLayersControl(baseGroups = c("OSM", "Carto"), overlapGroups = c("my_group"))

地图可正常运行，但鼠标悬停时弹窗中的value字段显示多位小数，我希望将其限制为仅两位。value字段由两个变量相除得到，推测多位小数由此产生。

我尝试了以下方法均无效：

• 使用options(digits=2)设置全局小数位数，未生效；
• 使用substr(sf$value, 1,4)手动截取两位小数，弹窗仍显示多位；
• 修改图例的labFormat参数，依旧无效：

# did not work
leaflet(st_trans) %>%
  addPolygons(
    stroke = FALSE,
    fillColor = ~ pal_fun(value),
    fillOpacity = 0.8, smoothFactor = 0.5,
    popup = p_popup,
    group = "my_group") %>%
  addTiles(group = "OSM") %>%
  addProviderTiles("CartoDB.DarkMatter", group = "Carto") %>%
  addLegend("bottomright", labFormat = labelFormat(prefix = '', suffix = '', between = ' – ', digits = 3, big.mark = ',', transform = identity),
            colors = brewer.pal(7, "YlOrRd"),
            labels = paste0("up to ", format(breaks_qt$brks[-1], digits = 2)),
            title = 'my legend') %>%
  addLayersControl(baseGroups = c("OSM", "Carto"), overlapGroups = c("my_group"))

请求告知操作中的错误，以及如何确保Leaflet地图弹窗仅显示两位小数？

错误原因 #

你之前的尝试都未命中核心问题：

1. options(digits=2)是全局设置，但弹窗直接调用sf$value时，R会输出原始精度的数值，该全局设置无法强制格式化字符串拼接中的数值；
2. substr(sf$value,1,4)是按字符截取，当数值长度不一致时（比如0.1和0.123）会截取错误，且若未将处理后的值重新用于弹窗拼接，自然无效；
3. 修改labFormat仅影响图例显示，和弹窗内容完全无关，属于方向错误。

正确解决方法 #

核心是在拼接弹窗内容时，对sf$value做格式化处理，保留两位小数，以下两种方法均可：

方法1：使用round()四舍五入 #

直接对数值四舍五入后再拼接：

p_popup <- paste0("<strong> Value : </strong>", round(sf$value, 2))

方法2：使用sprintf()强制格式化 #

确保显示两位小数（比如0.1会显示为0.10），格式化更严谨：

p_popup <- paste0("<strong> Value : </strong>", sprintf("%.2f", sf$value))

额外代码修正 #

你的classIntervals调用缺少等号，正确写法为：

breaks_qt <- classIntervals(sf$value, n=7, style = "quantile")

替换弹窗代码并修正上述错误后，重新运行地图，弹窗中的value就会显示两位小数。

内容的提问来源于stack exchange，提问作者stats_noob