Rstudio报错Can't add `p2` to a ggplot object？

Question

我在在运行下面这段代码时候

library(ggplot2)
library(dplyr)
library(patchwork)
library(hrbrthemes)
data <- data.frame(
  day = as.Date("2019-01-01") + 0:99,
  temperature = runif(100) + seq(1,100)^2.5 / 10000,
  price = runif(100) + seq(100,1)^1.5 / 10
)
p1 <- ggplot(data, aes(x=day, y=temperature)) +
  geom_line(color="#69b3a2", size=2) +
  ggtitle("Temperature: range 1-10") +
  theme_ipsum()
p2 <- ggplot(data, aes(x=day, y=price)) +
  geom_line(color="grey",size=2) +
  ggtitle("Price: range 1-100") +
  theme_ipsum()
    p1 + p2

出现了以下报错：

错误: Can't add `p2` to a ggplot object.
Run `rlang::last_error()` to see where the error occurred.
> rlang::last_error()
<error/rlang_error>
Can't add `p2` to a ggplot object.
Backtrace:
 1. ggplot2:::`+.gg`(p1, p2)
 2. ggplot2:::add_ggplot(e1, e2, e2name)
 4. ggplot2:::ggplot_add.default(object, p, objectname)
Run `rlang::last_trace()` to see the full context.
> rlang::last_trace()
<error/rlang_error>
Can't add `p2` to a ggplot object.
Backtrace:
    x
 1. \-ggplot2:::`+.gg`(p1, p2)
 2.   \-ggplot2:::add_ggplot(e1, e2, e2name)
 3.     +-ggplot2::ggplot_add(object, p, objectname)
 4.     \-ggplot2:::ggplot_add.default(object, p, objectname)
> 

本人小白 不知道该哪里出了问题，改作如何修改？请求帮助。十分感谢。

Answer 1

我试了下你的代码，是没问题的，可以跑出来。
p1+p2这行要顶格。