如何添加一條垂直線到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