r - 在 plotly 中仅加入带有线条的连续标记

Question

我正在尝试用 plotly 中的散点图覆盖条形图。我设法绘制了两者，并且仅使用标记一切看起来都不错，但我需要加入标记。使用 lines+markers 它将每个点相互连接起来，就像一条封闭的路径。我想问题是我的 x 轴变量是绝对变量，我不知道如何修复它。我无法编写原始代码，但类似于：

to_plot2[, cat_var := as.factor(cat_var)]

pp2 = plot_ly(to_plot2) %>%
  add_trace(x = ~cat_var, y = ~var_1, type = 'bar', name = 'bar',
            marker = list(color = '#C9EFF9'),
            hoverinfo = "text") %>%
  add_trace(x = ~cat_var, y = ~var_2, type = 'scatter', mode = 'lines+markers', name = 'lines', yaxis = 'y2',
            hoverinfo = "text") %>%

  layout(title = 'foo',
         xaxis = list(title = "", type = "category",
                      categoryorder = "'array'"),
         yaxis = list(side = 'left', showgrid = FALSE, zeroline = FALSE),
         yaxis2 = list(side = 'right', overlaying = "y", showgrid = FALSE, zeroline = FALSE))

输出为：

有什么帮助吗？

提前致谢

Answer 1

我刚刚解决了这个问题。将 cat_var 设置为键，它以适当的方式重新排序数据帧。

谢谢！

r - 在 plotly 中仅加入带有线条的连续标记

r - join only consecutive markers with lines in plotly

r

scatter-plot

plotly