如何调整Dotplot离散X轴刻度，为数据量多的站点分配更多空间？

要实现给数据量多的站点A、B分配更多X轴显示空间，有两种实用方案：

方法一：用ggh4x包快速设置宽度比例 #

ggh4x包提供了专门的离散轴位置刻度函数，可以直接按比例设置每个类别的宽度，不用手动转换变量：

# 首次使用先安装包
install.packages("ggh4x")

library(ggplot2)
library(ggh4x)

set.seed(123) # 固定随机种子保证结果可复现
df <- data.frame(site = c(rep("A", 6000), rep("B", 2000), rep("C", 100)),
                 mass = rnorm(8100, mean = 60, sd = 5))

ggplot(df, aes(x = site, y = mass)) +
  geom_dotplot(binaxis = "y", stackdir = "center", dotsize = 0.11, binwidth = 1, col = "grey50") +
  scale_x_discrete_position(widths = c(A=6, B=2, C=1)) # 按数据量比例设置宽度（6:2:1对应A:B:C的数据量）

方法二：手动转换为连续X轴（无需额外包） #

如果不想安装新包，可以把离散的站点转换为连续数值，手动控制每个类别的位置和显示宽度：

library(ggplot2)

set.seed(123)
df <- data.frame(site = c(rep("A", 6000), rep("B", 2000), rep("C", 100)),
                 mass = rnorm(8100, mean = 60, sd = 5))

# 给每个站点分配连续的X坐标
df$x_continuous <- factor(df$site, levels = c("A", "B", "C"), labels = c(1, 3, 4.5)) |> as.numeric()
# 定义每个站点的dotplot显示宽度
site_widths <- c(A=2, B=1, C=0.5)

ggplot(df, aes(x = x_continuous, y = mass)) +
  geom_dotplot(binaxis = "y", stackdir = "center", dotsize = 0.11, binwidth = 1, col = "grey50",
               width = site_widths[df$site]) + # 按站点匹配对应宽度
  scale_x_continuous(breaks = c(1, 3, 4.5), labels = c("A", "B", "C")) + # 设置X轴刻度和标签
  xlab("site") # 还原X轴标题

两种方法都能让数据量多的站点获得更充足的显示空间，避免点堆叠过于拥挤，同时保证小数据量站点的可视化清晰度。

内容的提问来源于stack exchange，提问作者tnt