R/ggplot中能否单独控制散点图数据点的宽度和高度？

ggplot2搭配扩展包ggforce可以完全实现你要的效果，不需要依赖单点统一缩放的逻辑。

核心逻辑 #

你需要的每个分组对应椭圆的参数和图层参数的对应关系如下：

• 椭圆中心点：x映射为分组直径的中点值，y映射为分组年龄的中点值
• 椭圆水平宽度：x轴方向半径a映射为分组直径范围长度的1/2（椭圆半径为总宽度的一半）
• 椭圆垂直高度：y轴方向半径b映射为分组年龄范围长度的1/2
• 椭圆旋转角度：如果不需要倾斜效果，固定angle = 0即可

普通geom_point()的size参数只能统一缩放点的整体尺寸，无法拆分x、y方向的缩放比例，因此无法实现该需求，需要使用ggforce包提供的geom_ellipse()图层完成绘制。

完整示例代码 #

# 首次使用先安装包
install.packages(c("ggplot2", "ggforce"))
# 加载包
library(ggplot2)
library(ggforce)

# 构造示例数据集，字段和你现有存储逻辑对齐
# 示例包含你提到的A组：年龄25-35、直径4-6，中点(5,30)，宽2高10
plot_data <- data.frame(
  group = c("A组", "B组", "C组"),
  diam_mid = c(5, 8.5, 12),
  age_mid = c(30, 45, 28),
  diam_width = c(2, 3, 1.8),
  age_height = c(10, 7, 5)
)

# 绘图
ggplot(plot_data, aes(x = diam_mid, y = age_mid)) +
  geom_ellipse(
    aes(a = diam_width/2, b = age_height/2, fill = group),
    angle = 0,
    alpha = 0.6, # 设置透明度避免重叠遮挡
    color = "black" # 椭圆描边颜色
  ) +
  # 按需调整标签、主题
  labs(
    x = "直径（Diameter）",
    y = "年龄（Age）",
    fill = "人群分组"
  ) +
  # 如果需要椭圆宽高视觉比例严格匹配数值比例，取消下一行注释即可
  # coord_fixed() +
  theme_bw()

可选调整 #

• 如果需要空心椭圆：删除fill相关映射，设置fill = NA，将分组映射到color参数即可
• 如果需要在椭圆中心标注分组名：可以叠加geom_text(aes(label = group))图层添加文本
• 如果需要调整椭圆描边效果，可以修改linewidth参数调整描边粗细

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