在编辑tmap、leaflet和shiny应用程序中设置默认值有多种方法，下面是一些示例代码：

1. 编辑tmap默认值：

library(tmap)
tm_shape(your_data) +
  tm_bubbles(size = "your_variable", 
             popup.vars = c("variable1", "variable2"),
             title = "Default Popup Title",
             popup.format = list(digits = 2))

在上面的代码中，您可以设置默认的弹出窗口标题和格式，并指定要显示的弹出窗口变量。

2. 编辑leaflet默认值：

library(leaflet)
leaflet(your_data) %>%
  addTiles() %>%
  addMarkers(lng = ~longitude, lat = ~latitude,
             popup = ~paste("Variable 1: ", variable1,
                            "
Variable 2: ", variable2))

在上面的代码中，您可以设置默认的弹出窗口内容，将变量值连接到弹出窗口。

3. 编辑shiny应用程序默认值：

library(shiny)
ui <- fluidPage(
  leafletOutput("map")
)

server <- function(input, output) {
  output$map <- renderLeaflet({
    leaflet(your_data) %>%
      addTiles() %>%
      addMarkers(lng = ~longitude, lat = ~latitude,
                 popup = ~paste("Variable 1: ", variable1,
                                "
Variable 2: ", variable2))
  })
}

shinyApp(ui, server)

在上面的代码中，您可以设置默认的弹出窗口内容，将变量值连接到弹出窗口。将您的地理数据传递给leaflet函数，并在addMarkers函数中设置popup参数。

这些示例代码可用于设置tmap、leaflet和shiny应用程序的默认值，可以根据您的具体需求进行调整和修改。