如何添加一条垂直线到R的阴谋图和y变量的因子

Question

我有一个data.frame，我在y轴上绘制一个值，id，对x轴上的一个值t另一个值s

library(plotly) 
library(dplyr) 

# create data.frame 
df <- data.frame(id=c("a","b","c"),s=c(1,3,2),t=c(3,2,1)) 

# set order 
levels <- df %>% 
arrange(s) %>% 
.$id #[1] a c b 

# plot 
df %>% 
mutate(id=factor(id, levels = levels)) %>% 
plot_ly(x=~t,y=~id) %>% 
add_markers() 

这工作正常。

但是我想添加一个垂直线表示T的平均值，由s

line <- weighted.mean(df$t,df$s) 

加权和我无法找到正确的方式来做到这一点

TIA

Answer 1

为了防止Plotly使用分类值对y轴进行排序，您可以绘制多条显示为一条线的线。

p <- add_lines(p, 
       x = rep(line, nrow(df)), 
       y = df$id) 

---

library(plotly) 
library(dplyr) 

# create data.frame 
df <- data.frame(id=c("a","b","c"),s=c(1,3,2),t=c(3,2,1)) 

# set order 
levels <- df %>% 
    arrange(s) %>% 
    .$id #[1] a c b 

# plot 
p <- df %>% 
    mutate(id=factor(id, levels = levels)) %>% 
    plot_ly(x=~t,y=~id) %>% 
    add_markers() 

line <- weighted.mean(df$t,df$s) 


p <- add_lines(p, 
       x = rep(line, nrow(df)), 
       y = df$id) 
p