将Plotly条形图和箱形图放置在线迹前面

时间:2018-02-16 17:18:45

标签: r shiny plotly r-plotly

我在Plotly中创建了子图,每个子图包含一个条形图(或boxplot)和三条跟踪线。我在y = 1,2,3处创建了跟踪ablines,就像ggplot一样。

情节如下:

Imgur link to picture of plota picture of the subplots

问题:

我想拥有它,因此条形图的条形在跟踪线的前面,因此您应该只能看到条形图之间的跟踪线。

目前我的代码:

(我已经排除了生成子图的代码,因为我认为不需要)

  generate_plotly_barPlot <- function(dat, showLeg, err) {

    p <- plot_ly(x=dat$xVar, # Initialize graph with line y=2
                 y=2,
                 type="scatter",
                 mode="lines",
                 hoverinfo="none",
                 layer="below",
                 line=list(color="grey",
                           width=2),
                 showlegend=FALSE) %>%
      # Add trace at line y=1
      add_trace(x=dat$xVar,
                y=1,
                type="scatter",
                mode="lines",
                hoverinfo="none",
                line=list(color="grey",
                          width=1.5,
                          dash="dot"),
                inherit=FALSE,
                showlegend=FALSE) %>%
      # Add trace at line y=3
      add_trace(x=dat$xVar,
                y=3,
                type="scatter",
                mode="lines",
                hoverinfo="none",
                line=list(color="grey",
                          width=1.5,
                          dash="dot"),
                inherit=FALSE,
                showlegend=FALSE)%>%
       # Create Bar Chart 
       add_trace(x=dat$xVar, 
                 y=dat$CopyNumber, 
                 type="bar",
                 mode="markers",
                 color=dat$fillColor,
                 orientation="v",
                 inherit=FALSE,
                 marker=list(opacity=1),
                 legendgroup=dat$xVar,
                 showlegend=showLeg,
                 error_y = list(value=dat[[err]],
                                color='#000000',
                                thickness=3,
                                width=6,
                                visible=TRUE))

我的方法:

我认为创建轨迹的顺序会定义它们在图表中的哪个层,所以由于我在所有轨迹线之后绘制了条形图,它会位于它们上方。

我还尝试将形状创建为ablines但是很难将它们放在子图的正确位置。 add_traces是我最好的方法。 plotly中的形状具有layer参数,用于定义是将形状放置在上方还是下方(see the plotly reference)。我希望有类似的东西适用于痕迹,但我找不到它。

1 个答案:

答案 0 :(得分:0)

也许这可以帮助你开始。你没有提供数据集,所以这里是一个小的组成例子。您可以使用布局将形状(在您的案例中为一条线)添加到图形中。如您所见,酒吧位于线上方。希望它有所帮助!

plot_ly() %>% 
add_bars(x = c("giraffes", "orangutans", "monkeys"), y = c(20, 14, 23)) %>% 
layout(shapes = list(list(type = "lines",x0 = -1, x1 = 3, xref = "x", y0 = 3, y1 = 3, yref = "y", layer = "below")))