我在Plotly中创建了子图,每个子图包含一个条形图(或boxplot)和三条跟踪线。我在y = 1,2,3处创建了跟踪ablines
,就像ggplot
一样。
Imgur link to picture of plot和a 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)。我希望有类似的东西适用于痕迹,但我找不到它。
答案 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")))