如何在R中绘制多个数据集之间的数据方差分布？

library(ggplot2)
library(dplyr)

data1 <- c(1, 2, 3, 4, 5)
data2 <- c(2, 4, 6, 8, 10)
data3 <- c(3, 6, 9, 12, 15)

combined_data <- data.frame(
  value = c(data1, data2, data3),
  dataset = factor(rep(c("Data 1", "Data 2", "Data 3"), each = 5))
)

variances <- combined_data %>%
  group_by(dataset) %>%
  summarize(variance = var(value))

ggplot(combined_data, aes(x = dataset, y = value)) +
  geom_boxplot() +
  labs(title = "数据方差分布", x = "数据集", y = "值") +
  geom_text(data = variances, aes(label = paste("方差:", round(variance, 2)), y = max(value) + 1), vjust = -0.5)