如何将geom_*绘制的分割线限制在calendR日历尺寸范围内？

针对你用calendR+ggplot2制作喂狗记录月历的需求，以下是两种有效裁剪分割线至日历区域内的方案：

方案一：利用坐标范围限制+裁剪 #

先提取日历的坐标边界，再通过coord_cartesian()锁定绘图范围，自动裁剪超出部分：

library(calendR)
library(ggplot2)

# 生成2023年10月日历
cal <- calendR(year = 2023, month = 10, 
               title = "喂狗记录日历",
               subtitle = "2023年10月",
               weeknames = c("日", "一", "二", "三", "四", "五", "六"),
               start = "Sunday")

# 提取日历单元格的坐标范围
cal_data <- layer_data(cal)
x_range <- range(cal_data$x) + c(-0.5, 0.5)
y_range <- range(cal_data$y) + c(-0.5, 0.5)

# 添加分割线并裁剪
cal +
  # 水平分割线（每日上下分段）
  geom_hline(yintercept = seq(y_range[1], y_range[2], by = 1), color = "gray50", linetype = "dashed") +
  # 垂直分割线（每日左右分段）
  geom_vline(xintercept = seq(x_range[1], x_range[2], by = 1), color = "gray50", linetype = "dashed") +
  # 对角线分割线
  geom_abline(slope = 1, intercept = seq(x_range[1]-y_range[2], x_range[2]-y_range[1], by = 1), color = "gray50", linetype = "dotted") +
  # 锁定坐标范围并开启裁剪
  coord_cartesian(xlim = x_range, ylim = y_range, clip = "on")

方案二：针对每个单元格绘制分割线（更精准） #

直接基于每个日历单元格的坐标边界绘制线条，确保线条完全局限在单元格内，彻底避免超出：

library(calendR)
library(ggplot2)
library(dplyr)

# 生成日历
cal <- calendR(year = 2023, month = 10, 
               title = "喂狗记录日历",
               subtitle = "2023年10月",
               weeknames = c("日", "一", "二", "三", "四", "五", "六"),
               start = "Sunday")

# 整理每个单元格的边界坐标
cell_coords <- layer_data(cal) %>%
  group_by(x, y) %>%
  summarise(
    x_left = x - 0.5,
    x_right = x + 0.5,
    y_bottom = y - 0.5,
    y_top = y + 0.5,
    .groups = "drop"
  )

# 添加单元格内的分割线
cal +
  # 水平中线（区分早晚时段）
  geom_segment(data = cell_coords,
               aes(x = x_left, xend = x_right,
                   y = (y_bottom + y_top)/2, yend = (y_bottom + y_top)/2),
               color = "#666666", linetype = "dashed") +
  # 垂直中线（区分喂狗人员）
  geom_segment(data = cell_coords,
               aes(x = (x_left + x_right)/2, xend = (x_left + x_right)/2,
                   y = y_bottom, yend = y_top),
               color = "#666666", linetype = "dashed") +
  # 对角线（可选，用于额外标记）
  geom_segment(data = cell_coords,
               aes(x = x_left, xend = x_right,
                   y = y_top, yend = y_bottom),
               color = "#999999", linetype = "dotted") +
  # 保持日历单元格的正方形比例
  coord_fixed()

两种方案都能解决线条超出日历范围的问题，方案二更灵活，可根据需求调整单个单元格的分割样式，完全适配自动化生成喂狗记录月历的需求。

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