因子级别内的图形比例，而不是ggplot2中的计数

# 加载所需的库
library(ggplot2)

# 创建一个数据框，其中包含因子和数值变量
data <- data.frame(
  factor_var = factor(rep(c("A", "B", "C"), each = 5)),
  numeric_var = rnorm(15)
)

# 使用geom_boxplot()绘制箱线图
ggplot(data, aes(x = factor_var, y = numeric_var)) +
  geom_boxplot() +
  labs(title = "Boxplot of Numeric Variable by Factor Level",
       x = "Factor Variable",
       y = "Numeric Variable")