在 R 中绘制 - 对角线 AB 线

Question

我需要一条穿过该图原点的对角线

类似于 ggplot2 的东西 geom_abline(intercept = 0 , slope = 1) 但是对于 R

中的 plotly

library(plotly)

fig <- plot_ly(data = iris, x = ~Sepal.Length, y = ~Petal.Length)
fig

Answer 1

请告诉我这是否是您所期待的。

fit <- lm(Petal.Length ~ Sepal.Length, data = iris)

iris %>% 
  plot_ly(x = ~Sepal.Length) %>% 
  add_markers(y = ~Petal.Length) %>% 
  add_lines(x = ~Sepal.Length, y = fitted(fit))

Answer 2

可以使用线条形状来实现此目的：

library(plotly)

fig <- plot_ly(data = iris, x = ~Sepal.Length, y = ~Petal.Length)
fig %>%
  layout(shapes = list(list(
    type = "line", 
    x0 = 0, 
    x1 = ~max(Sepal.Length, Petal.Length), 
    xref = "x",
    y0 = 0, 
    y1 = ~max(Sepal.Length, Petal.Length),
    yref = "y",
    line = list(color = "black")
  )))

另见 this related answer。

顺便说一句。通过 xref = "paper" 我们不需要指定线的起点和终点，但是线不再与轴对齐。

在 R 中绘制 - 对角线 AB 线

Plotly in R - Diagonal AB line

r

plot

plotly

r-plotly

abline