如何创建一个带有散点图的小平面网格，将R中对应于5个不同因子的数值相互比较？

library(ggplot2)
data <- data.frame(factors = c("Factor1", "Factor2", "Factor3", "Factor4", "Factor5"),
                   values = c(10, 8, 6, 4, 2))

scatter_plot <- ggplot(data, aes(x = factors, y = values)) + geom_point()

scatter_plot_with_grid <- scatter_plot + facet_wrap(~ factors)

scatter_plot_with_grid <- scatter_plot_with_grid +
  labs(title = "Comparison of Values across Factors",
       x = "Factors",
       y = "Values") +
  scale_y_continuous(limits = c(0, 12))

print(scatter_plot_with_grid)