如何在R的ggplot中基于计数控制气泡图的刻度断点、缩放与尺寸？

核心方案 #

要实现5个计数类别、最大值固定150000、尺寸线性比例的需求，推荐使用scale_size_binned()替代基础scale_size()——它专门用于将连续数据分箱为离散尺寸刻度，能精准控制断点和范围：

• 利用breaks手动生成5个类别对应的6个断点（0到150000均分即可）
• 通过limits强制锁定数值范围为0至150000
• scale_size()默认采用尺寸（半径）与数值线性映射，天然满足“100000的点尺寸约为50000两倍”的要求，这也是不推荐scale_radius()的原因（后者是面积线性映射，视觉差异不直观）

修改后完整代码 #

x<- c("Extremely Low", "Extremely Low", "Extremely Low", "Very Low", "Very Low", "Very Low", "Very Low", "Very Low", "Low", "Low", "Low", "Low", "Moderate", "Moderate", "Moderate", "High", "High", "Very High", "Very High")
y <- c("Very Low", "Low", "Moderate", "Very Low", "Low", "Moderate", "High", "Very High", "Low", "Moderate", "High", "Very High", "Moderate", "High", "Very High", "High", "Very High", "High", "Very High")
z <- c(63156, 904, 39, 54364, 143902, 24666, 1234, 199, 17545, 22159, 14604, 4574, 1457, 21561, 29808, 6451, 51217, 177, 47150)
x_name <- "X_Category"
y_name <- "Y_Category"
z_name <- "Counts"

df <- data.frame(x,y,z)
names(df) <- c(x_name,y_name,z_name)

library(ggplot2)
ggplot(df, aes(x=X_Category, y=Y_Category, size = Counts)) +
  geom_point(alpha=0.5) +
  scale_size_binned(
    breaks = seq(0, 150000, length.out = 6),  # 6个断点对应5个类别
    limits = c(0, 150000),                    # 锁定数值上下限
    range = c(2, 12),                         # 调整点的视觉尺寸范围
    name = "Count",
    guide = guide_bins(show.limits = TRUE)    # 显示0和150000的刻度标签
  )

可选调整 #

如果不想用等距断点，可手动指定断点值，比如根据数据分布设置breaks = c(0, 20000, 50000, 100000, 125000, 150000)，灵活适配数据特征。

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