R 直方图与线图相结合

我创建了直方图和一个线图，其y轴值不同，如图所示

---

我希望将两个图形放在一个绘图中。

这是一个具有基本绘图的解决方案：

set.seed(16011991)
x <- rnorm(100)
dots <- data.frame(c(-3,-2,-1,0,1,2,3),c(10,20,30,40,30,20,10))
hist(x)
lines(dots, col = "blue", lwd = 2)

set.seed（16011991）
你能在你的问题中包括你用来生成两个当前绘图的代码吗？你只是要求在一页上绘制两个绘图？其中一个是
ggplot2
产品，另一个是基本
plot
结果？我很确定这已经被问到和回答了。因此，您应该首先搜索（可能添加搜索词
gridBase
），如果您发现现有答案无法提供所需的结果，那么请回答您的问题以反映这一点，并说明它们如何无法提供所需的结果。如果在适当的时间段内（例如2小时）没有对这两条评论作出回应，然后，我建议关闭作为一个高度可能的复制品的可能的复制品
set.seed(16011991)
x <- data.frame(norm = rnorm(100))
dots <- data.frame(x=seq(-3,3,0.05), y=log(1:length(seq(-3,3,0.05))))

ggplot(data = x, aes(x=norm, color='red')) +
  geom_histogram(bins = 30, fill="white", show.legend = FALSE, size=1.1) +
  geom_line(data = dots, aes(x=x,y=y), color= 'blue', size=1.1) +
  labs(title= 'My histogram', x = 'N(0,1)', y='Count') +
  theme_stata()