r-仅将连续的标记与线连接在一起

Question

我正在尝试在散点图中用散点图覆盖条形图。 我已经设法绘制了两者，并且仅使用标记就可以使一切看起来不错，但是我需要加入标记。 它使用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设置为键，将以适当的方式对数据帧进行重新排序。

谢谢！