Plotly Mapbox自定义标记符号异常问题求助

我在创建波士顿Airbnb房源Mapbox地图时，添加医院、自行车站等兴趣点标记，使用symbol参数修改标记形状遇到两个问题：

• 医院标记设置为红色方形时，位置正确但颜色显示为白色（移除symbol参数颜色恢复正常）
• 自行车站标记设置为三角形时，标记完全不显示（移除symbol参数能正常显示），仅图例显示正常

原基础地图代码：

p <- 
  plot_mapbox(boston_airbnb, width = 1200, height = 900) %>% 
  add_markers(
    x = ~longitude,
    y = ~latitude,
    color = ~log_price,
    name  = "Log (base 10) of price",
    text = 
      ~paste(
        name,
        "\nRoom type:", room_type,
        "\nPrice: ", price,
        "\nNeighborhood", neighbourhood,
        "\nMinimum nights: ", minimum_nights
      ),
    hoverinfo = "text"
  ) %>% 
  layout(
    mapbox = 
      list(
        center = list(lat = 42.32, lon = -71.1),
        zoom = 9.5,
        style = "dark"
      )
  )

添加标记的异常代码：

p_h <- p %>% 
  add_trace(
    data = hospitals,
    x = ~Longitude,
    y = ~Latitude,
    mode = 'markers',
    name = "Hospitals",
    text = ~paste(Name,
                  "\nAddress: ", Address),
    hoverinfo = "text",
    marker = list(symbol = 'square', color = 'red', size = 10)
  ) %>% 
  add_trace(
    data = bikes,
    x = ~Longitude,
    y = ~Latitude,
    mode = 'markers',
    name = "Bike Stations",
    hoverinfo = "text",
    marker = list(symbol = 'triangle-up', color = 'pink', size = 10)
  )

p_h

问题根源是Plotly Mapbox的标记符号分两类，颜色设置逻辑不同：

• 实心符号（如默认的circle）：直接用color设置整体颜色
• 空心/轮廓符号（如square、triangle-up）：color控制填充色（默认白色），line.color控制边框颜色；如果只设置color，空心符号会显示白色填充+透明边框，在深色地图上几乎看不见

针对问题的两种修复方式：

1. 改用实心版本的符号（名称带-solid后缀），直接用color设置颜色即可
2. 保留空心符号，同时设置color（填充色）和line.color（边框色）为同一颜色

# 基础Airbnb地图
p <- 
  plot_mapbox(boston_airbnb, width = 1200, height = 900) %>% 
  add_markers(
    x = ~longitude,
    y = ~latitude,
    color = ~log_price,
    name  = "Log (base 10) of price",
    text = 
      ~paste(
        name,
        "\nRoom type:", room_type,
        "\nPrice: ", price,
        "\nNeighborhood", neighbourhood,
        "\nMinimum nights: ", minimum_nights
      ),
    hoverinfo = "text"
  ) %>% 
  layout(
    mapbox = 
      list(
        center = list(lat = 42.32, lon = -71.1),
        zoom = 9.5,
        style = "dark"
      )
  )

# 添加医院和自行车站标记（修复后）
p_h <- p %>% 
  add_trace(
    data = hospitals,
    x = ~Longitude,
    y = ~Latitude,
    mode = 'markers',
    name = "Hospitals",
    text = ~paste(Name,
                  "\nAddress: ", Address),
    hoverinfo = "text",
    # 方案1：使用实心方形符号，直接设置color
    marker = list(symbol = 'square-solid', color = 'red', size = 10)
    # 方案2：保留空心方形，同时设置填充和边框颜色
    # marker = list(symbol = 'square', color = 'red', line = list(color = 'red'), size = 10)
  ) %>% 
  add_trace(
    data = bikes,
    x = ~Longitude,
    y = ~Latitude,
    mode = 'markers',
    name = "Bike Stations",
    hoverinfo = "text",
    # 方案1：使用实心三角形符号
    marker = list(symbol = 'triangle-up-solid', color = 'pink', size = 10)
    # 方案2：保留空心三角形，同时设置填充和边框颜色
    # marker = list(symbol = 'triangle-up', color = 'pink', line = list(color = 'pink'), size = 10)
  )

p_h

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