带有两个y轴的ggplot箱形图

install.packages("ggplot2")
install.packages("dplyr")

# 加载必要的库
library(ggplot2)
library(dplyr)

# 创建示例数据
set.seed(123)
data <- data.frame(
  group = rep(c("A", "B"), each = 100),
  value1 = c(rnorm(100, mean = 10, sd = 2), rnorm(100, mean = 20, sd = 2)),
  value2 = c(rnorm(100, mean = 100, sd = 10), rnorm(100, mean = 200, sd = 10))
)

# 创建基本的箱形图
p <- ggplot(data, aes(x = group)) +
  geom_boxplot(aes(y = value1), fill = "lightblue", alpha = 0.5) +
  geom_boxplot(aes(y = value2 / 10), fill = "lightgreen", alpha = 0.5) +  # 缩放第二个 y 轴
  scale_y_continuous(
    name = "Value 1",
    sec.axis = sec_axis(~ . * 10, name = "Value 2")  # 创建第二个 y 轴
  ) +
  labs(x = "Group") +
  theme_minimal()

# 打印图形
print(p)