如何在GGplot2中同时显示两个周期的计数和比例？

install.packages("ggplot2")

library(ggplot2)

# 导入数据集
data <- read.csv("data.csv")

# 创建计数图层
count_layer <- ggplot(data, aes(x = period, y = count, fill = period)) +
  geom_bar(stat = "identity", position = "dodge")

# 创建比例图层
prop_layer <- ggplot(data, aes(x = period, y = proportion, group = 1)) +
  geom_line() +
  geom_point()

# 组合图层并添加标签
combined_plot <- ggarrange(count_layer, prop_layer, ncol = 1, nrow = 2) +
  ggtitle("Count and Proportion of Two Periods") +
  xlab("Period") +
  ylab("Count / Proportion")

# 打印并显示图形
print(combined_plot)