如何在ggplot中创建基于进食时长的拉伸点效果？

可以用geom_segment()实现你要的“拉伸”效果——用横向线段替代圆点，线段长度对应进食时长，线段粗细对应进食量，完美匹配离散时长的需求。

步骤1：补充进食时长数据 #

先给数据集添加离散的进食时长（按15分钟增量）：

library(ggplot2)

# 生成可复现的原始数据
set.seed(123)
mealsizes = rnorm(100, mean = 1, sd =1)
mealsizes[mealsizes < 0] = 0
mealtimes = runif(100, min = 0, max = 24)
subjects = rep(seq(1,10,1), times = 10)
group = rep(c(1,2), times = 50)

# 添加离散进食时长（15/30/45/60分钟，转成小时单位适配X轴）
df = data.frame(
  time = mealtimes, 
  size = mealsizes, 
  subject = subjects, 
  group = group,
  duration_min = sample(c(15,30,45,60), 100, replace = TRUE)
)
df$duration_hour = df$duration_min / 60

步骤2：用线段绘制拉伸效果 #

用geom_segment()替代geom_point()，线段起始点为进食开始时间，结束点为开始时间+时长，Y轴固定对应小鼠编号，线段粗细映射进食量：

ggplot(data = df, aes(color = group)) +
  # 核心：绘制横向线段，长度=时长，粗细=进食量
  geom_segment(
    aes(
      x = time, 
      xend = time + duration_hour, 
      y = subject, 
      yend = subject,
      size = size
    ),
    lineend = "round" # 让线段两端圆润，更接近原始点的视觉感受
  ) +
  scale_size_continuous(range = c(0.5, 3)) # 自定义粗细范围，避免过细或过粗
  theme_minimal() +
  labs(
    x = "时间（小时）",
    y = "小鼠编号",
    size = "进食量",
    color = "分组"
  )

替代方案：用矩形实现块状拉伸 #

如果想要更像“自定义形状”的效果，可用geom_rect()绘制矩形块，高度对应小鼠的Y轴区间，长度对应时长：

ggplot(data = df, aes(fill = group)) +
  geom_rect(
    aes(
      xmin = time,
      xmax = time + duration_hour,
      ymin = subject - 0.3, # 调整矩形高度，避免小鼠间重叠
      ymax = subject + 0.3,
      size = size
    ),
    color = NA # 去掉边框，如需保留可调整颜色参数
  ) +
  scale_size_continuous(range = c(0, 0.5)) # 若保留边框，调整边框粗细
  theme_minimal() +
  labs(
    x = "时间（小时）",
    y = "小鼠编号",
    size = "进食量",
    fill = "分组"
  )

关键说明 #

• 两种方法都适配15/30/45/60分钟的离散时长需求，无需渐变效果
• 线段的lineend = "round"参数可让视觉风格更贴近原始圆点
• 通过scale_size_continuous()可自由调整粗细/大小范围，匹配你的数据量级

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