R语言如何在一个直方图上添加一个小的箱线图

tomorrow

如何在一个直方图上添加一个小的箱线图？
在直方图的空白位置添加另外的小图（像图例一样），仍然使用参数 par()：
x <- rnorm(100)
hist (x)
op <- par( fig=c(.02 ,.5 ,.5 ,.98) , new=TRUE)
boxplot(x)