RStudio将柱状图与折线图放在一张图上

要将柱状图与折线图放在同一张图上，你可以使用ggplot2包来创建图形。以下是一个简单的例子，其中我们将电影票房作为柱状图，将电影评分作为折线图。在这个例子中，我们使用了电影数据集中的前10个电影。

library(ggplot2)

# 创建数据框
movies <- data.frame(
  title = c("Avatar", "Titanic", "Star Wars: The Force Awakens", "Jurassic World", "The Avengers", "Furious 7", "Avengers: Age of Ultron", "Harry Potter and the Deathly Hallows - Part 2", "Frozen", "Beauty and the Beast"),
  box_office = c(2787965087, 2187463944, 2068223624, 1671713208, 1518812988, 1515047671, 1405403694, 1341693157, 1272469910, 1263521126),
  imdb_rating = c(7.8, 7.8, 8.0, 7.0, 8.1, 7.2, 7.3, 8.1, 7.5, 7.2)
)

# 创建柱状图
p1 <- ggplot(movies, aes(x = title, y = box_office)) +
  geom_bar(stat = "identity")

# 创建折线图
p2 <- ggplot(movies, aes(x = title, y = imdb_rating)) +
  geom_line()

# 将两个图合并
p3 <- cowplot::plot_grid(p1, p2, ncol = 1, align = "vh")

# 输出图形
p3

在这个例子中，我们首先创建了一个柱状图p1，然后创建了一个折线图p2。我们使用`cowplot::plot_grid`函数将这两个图组合成一个图p3，并使用`ncol = 1`和`align = "vh"`参数来将它们垂直对齐。最后，我们输出了组合图p3。