ヒストグラム上のオーバーレイ垂直線R

Question

ヒストグラムは以下のようなものです。ヒストグラムの上に特定の値の垂直線をプロットしたいと思います。

ヒストグラムのための私のコードは次のとおりです。私は、ヒストグラムの上にラインをオーバーレイしたい

library(plotly) 
p <- plot_ly(x = ~rnorm(50,mean = 50,sd = 10), type = "histogram") 
p 

は、例えば

x <- 42 

、言う誰がなって助けることができますこの？

Answer 1

library(plotly) 
set.seed(1) 
p <- plot_ly(x = ~rnorm(50,mean = 50,sd = 10), type = "histogram") %>% 
    add_segments(x=42, y=0, xend=42, yend=14, line=list(color="red", width = 4)) 
p