r - 線で線が連続しているマーカーのみを結合する

私は棒グラフを散布図でプロットしてオーバーレイしようとしています。私は両方をプロットすることができたし、マーカーだけを使ってみれば素敵ですが、マーカーに参加する必要があります。 lines+markersを使用すると、閉じたパスのように、すべてのポイントが互いに結合されます。私の問題は、私のx軸の変数がカテゴリに入っていて、それを修正する方法がわからないということです。私は元のコードを記述しますが、何かのようなものであることはできません。r - 線で線が連続しているマーカーのみを結合する

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))

、出力は次のようになります。