Question

我使用闪亮和传单在地图上添加了点数。每个点都是不同类型的中转选项。我想用颜色区分不同的类型，并且无法弄清楚这一点。尝试使用＆＃34;如果＆＃34;哪个不起作用。谢谢！

这是我的基本代码

library(leaflet)
ui <- fluidPage(
leafletOutput("map"),
headerPanel("Example"),
sidebarPanel(checkboxGroupInput(inputId = "Type", label = "Data 
Layer",choices = c("Bike", "Muni", "Bus", "BART"), selected = "Bike")))

server <- function(input, output) {
output$map <- renderLeaflet({

rownumber = which(Stops_and_stations$Type == input$Type)
x <- Stops_and_stations[rownumber,]

leaflet(width = 1000, height = 500) %>% 
  addTiles() %>% 
  addCircleMarkers(lng = x$stop_lon,
                   lat = x$stop_lat,
                   radius= 3, color = '#ff6633') %>% 
  setView(lng = -122.4000,
          lat = 37.79500,
          zoom = 13)
})
}
shinyApp(ui, server)

这就是我试图添加的内容 .....

 if(input$Type == "Bike"){

leaflet(width = 1000, height = 500) %>% 
  addTiles() %>% 
  addCircleMarkers(lng = x$stop_lon,
                   lat = x$stop_lat,
                   radius= 3, color = '#ff6633') %>% 
  setView(lng = -122.4000,
          lat = 37.79500,
          zoom = 13)
}

if(input$Type == "Muni"){

leaflet(width = 1000, height = 500) %>% 
  addTiles() %>% 
  addCircleMarkers(lng = x$stop_lon,
                   lat = x$stop_lat,
                   radius= 3, color = '#0033ff') %>% 
  setView(lng = -122.4000,
          lat = 37.79500,
          zoom = 13)
}

.....

Answer 1

如果您提供Stops_and_stations并因此将其设为reproducible example，那么回答您的问题要容易得多。

为不同的群组使用不同颜色的一种方法是向color添加data.frame列：

由于我们不了解您的数据，因此我创建了一些随机数据集。

Stops_and_stations <- data.frame(
  Type = rep(c("Bike", "Muni", "Bus", "BART"), each = 10),
  stop_lon = -runif(40, 122.4200, 122.4500),
  stop_lat = runif(40, 37.76800, 37.78900),
  color = rep(c("Red", "Blue", "Green", "Yellow"), each = 10)
)

然后，您可以使用#ff6633列，而不是指定color等具体颜色。

addCircleMarkers(lng = x$stop_lon,
                       lat = x$stop_lat,
                       radius= 3, color = x$color)

我还想指出您的子集不正确：您使用的checkboxGroupInput可以包含更多值，因此您需要使用%in%运算符进行过滤。

x <- Stops_and_stations[Stops_and_stations$Type %in% input$Type,]

r - Shiny + leaflet：如何设置标记颜色取决于用户输入

1 个答案: