相当于 abline 在 plotly

Question

我想在plotly图表中添加一条线（不仅仅是垂直或水平）

library(plotly)
d = data.frame(x=1:10, y=1:10)
plot_ly(d, x = ~x, y = ~y, type='scatter')

假设我想要(D) y = 2x一条线，有没有一种方法可以让我在不自己在另一列中生成数据的情况下进行绘图d

Answer 1

至少有两种模拟方式abline。

• 添加具有起点和终点的另一条轨迹
• 将line形状添加到layout具有起点和终点的

缺点是需要计算每个跟踪的min和max（Plotly无论如何都需要这样做，但它会使代码膨胀）。

另一种方法是从一个极端到另一个极端绘制线，然后手动设置xaxis和yaxis range。

在下面的示例中，红线是添加的迹线，而黑线是通过shape line.

library('plotly')

#a function to calculate your abline
p_abline <- function(x, a=2, b=-5){
  y <- a * x + b
  return(y)
}

#create an empty plot    
p <- plot_ly()

#list with all your x and y values
x <-  list(c(1,2,3), c(2,3,6), (1:5))
y <-  list(c(1,2,3), c(0,5,10), sample(-10:10, 5))

#loop through the x/y values and determine min/max
for (i in 1:length(x)) {
  p<-add_trace(p, y=y[[i]], x=x[[i]] , type="scatter", mode="markers+lines")
  if (i == 1 || max(x[[i]]) > max_x) {
    max_x = max(x[[i]])
  }
  if (i == 1 || max(y[[i]]) > max_y) {
    max_y = max(y[[i]])
  }
  if (i == 1 || min(x[[i]]) < min_x) {
    min_x = min(x[[i]])
  }
  if (i == 1 || min(y[[i]]) < min_y) {
    min_y = min(y[[i]])
  }

}

#add a trace to simulate abline
p<-add_trace(p, x=c(min_x, max_x), y=c(p_abline(min_x), p_abline(max_x)) , type="scatter", mode="lines", name='abline')

#add a shape (line) to simulate abline
p <- p %>% layout(
  shapes=list(type='line', x0=min_x, x1=max_x, y0=p_abline(min_x, -1, 3), y1=p_abline(max_x, -1, 3))
  )

p