從直方圖中獲取數值，並將數值除以第二個直方圖的值

Question

我想在直方圖中添加一個abline，該直方圖顯示第一個直方圖（數據）的值除以第二個直方圖的數值（Survived）。

hist(data$test, col='blue', main="DataPoint", xlim=c(0,600), ylim=c(0,800), breaks=c(seq(0,600,50))) 
hist(Survived$test, col='green', breaks=c(seq(0,600,50)), add=TRUE) 

我試圖得到像下面的東西到直方圖上。任何援助將不勝感激。

abline(count(data$test)/count(Survived$test), breaks = c(seq(0,600,50)), add = TRUE) 

Answer 1

，能夠從HIST輸出分配到一個對象，像這樣：

> x <- hist(1:10) 

> x 
$breaks 
[1] 0 2 4 6 8 10 

$counts 
[1] 2 2 2 2 2 

$density 
[1] 0.1 0.1 0.1 0.1 0.1 

$mids 
[1] 1 3 5 7 9 

$xname 
[1] "1:10" 

$equidist 
[1] TRUE 

attr(,"class") 
[1] "histogram" 

然後可以訪問該值，例如與x$density或x$counts。