2017-07-28 120 views
0

我有一個像下面這樣的直方圖,我想在直方圖頂部繪製一個特定值的垂直線。在直方圖上覆蓋垂直線R

我的直方圖代碼:

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

我要疊加在直方圖頂部的線,例如說,

x <- 42 

enter image description here

誰能幫助越來越這個?

+0

'abline(V = 42)',或使用對象'abline(V = x)的' – Badger

+0

我已嘗試。我得到一個錯誤'plot.new尚未被調用' – krish

+0

哦,你正在使用陰謀,試着用'直方圖'繪圖? – Badger

回答

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 

enter image description here

+0

你說得對。跟蹤不適用於直方圖 – Masoud

+0

感謝Marco。這工作。你知道是否有辦法找到直方圖的最大高度,以便我可以用它來指定'yend'而不是硬編碼它? – krish

+0

@krish有趣的問題。我會盡力找到一個解決方案。 –