如何在R语言中将ggplot图形添加至已有Plotly绘图？

你的问题出在：用ggplotly转换后的Plotly对象包含多个对应ggplot图层的trace，你只取了第一个（对应geom_line），风杆的线段和箭头根本没被加入；而且直接拼接不同Plotly对象的trace容易出现轴不匹配、属性冲突。

最可靠的方式是跳过ggplot转换，直接用Plotly原生函数绘制风杆并整合到折线图，代码如下：

output$plot1 <- renderPlotly({
  # 加载两个响应式数据源
  plot_data <- data()
  datawx_df <- datawx()
  
  # 提前计算风杆的终点坐标（和你原ggplot的逻辑完全一致）
  datawx_df <- datawx_df %>%
    mutate(
      xend = obsTime + lubridate::dhours(wspd * 1 * cos((90 - wdir) / 360 * 2 * pi)),
      yend = 35 + wspd * 1 * sin((90 - wdir) / 360 * 2 * pi)
    )
  
  # 初始化折线图，再添加风杆元素
  fig <- plot_ly(data = plot_data, type = 'scatter', mode = 'lines') %>%
    # 原有两条折线
    add_trace(x = ~date, y = ~pm_cor_A, name = "Trace A") %>%
    add_trace(x = ~date, y = ~pm_cor_B, name = "Trace B") %>%
    # 添加带箭头的风杆线段，颜色绑定风速
    add_segments(
      data = datawx_df,
      x = ~obsTime,
      y = ~35,
      xend = ~xend,
      yend = ~yend,
      color = ~wspd,
      colors = c("green", "red"), # 和原ggplot的颜色梯度一致
      name = "Wind Speed",
      # 设置箭头样式，匹配原ggplot的箭头大小
      line = list(
        arrow = list(
          width = 1,
          length = 0.1,
          color = ~wspd
        )
      )
    ) %>%
    # 添加颜色条标注风速
    layout(
      coloraxis = list(
        colorbar = list(title = "Wind Speed")
      )
    )
  
  fig
})

关键细节： #

• 风杆的坐标计算逻辑完全复用你原来的ggplot代码，保证效果一致
• 用add_segments直接在原有Plotly图上绘制风杆，避免转换后的兼容性问题
• 箭头通过line$arrow参数配置，颜色和风速绑定，和原ggplot效果匹配
• 时间轴会自动对齐，因为date和obsTime都是POSIXct类型

如果你一定要保留ggplot风杆代码： #

如果坚持用ggplot生成风杆再转换，需要把ggplotly输出的所有trace都添加到原图，还要统一轴属性：

output$plot1 <- renderPlotly({
  plot_data <- data()
  datawx_df <- datawx()
  
  # 初始化折线图
  fig <- plot_ly(data = plot_data, type = 'scatter', mode = 'lines') %>%
    add_trace(x = ~date, y = ~pm_cor_A, name = "Trace A") %>%
    add_trace(x = ~date, y = ~pm_cor_B, name = "Trace B")
  
  # 生成ggplot风杆图并转为Plotly
  p <- ggplot(data = datawx_df, aes(x = obsTime, y = 35)) +
    geom_line() +
    geom_segment(
      aes(
        x = obsTime,
        y = 35,
        xend = obsTime + lubridate::dhours(wspd * 1 * cos((90-wdir)/360*2*pi)),
        yend = 35 + wspd * 1 * sin((90-wdir)/360*2*pi),
        colour = wspd
      ),
      arrow = arrow(length = unit(0.1, "cm"))
    ) +
    scale_colour_gradient(low="green", high="red")
  
  plotly_fig <- ggplotly(p)
  
  # 遍历所有转换后的trace，逐个添加到原图
  for(trace in plotly_fig$data){
    fig <- fig %>% add_trace(
      x = trace$x,
      y = trace$y,
      type = trace$type,
      mode = trace$mode,
      line = trace$line,
      marker = trace$marker,
      name = trace$name,
      color = trace$color,
      colors = trace$colors
    )
  }
  
  # 强制统一x轴为时间类型，避免轴不匹配
  fig <- fig %>% layout(
    xaxis = list(type = "date")
  )
  
  fig
})

这种方式步骤繁琐，容易出现样式冲突，优先推荐第一种原生Plotly实现。

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