如何用facet_grid将多动物步长独立图合并为同画布分面图？

不用拆分数据集逐个绘图，直接基于全量处理后的数据，结合ggplot2的facet_grid就能一次性生成分面布局的图表，步骤如下：

1. 统一处理全量数据
   先把所有动物的步长和昼夜时段计算好，不用按Id拆分。假设你的原始数据包含animal_id、时间戳、坐标（或直接有步长），用分组计算完成数据预处理：

   library(dplyr)
   library(ggplot2)
   library(lubridate)
   
   # 预处理：计算步长+标记昼夜时段
   processed_data <- your_raw_data %>%
     group_by(animal_id) %>%
     # 计算相邻坐标的步长（如果原始数据没有步长列）
     mutate(step_length = sqrt((x - lag(x))^2 + (y - lag(y))^2)) %>%
     # 标记昼夜（这里示例按6-18点为昼，可替换成你的判断逻辑）
     mutate(time_of_day = ifelse(hour(timestamp) %in% 6:18, "昼", "夜")) %>%
     drop_na(step_length) # 移除无步长的首行数据
   

2. 用facet_grid绘制分面图
   直接调用ggplot，把animal_id作为分面依据，指定facet_grid的布局：

   # 绘制分面图表（示例用箱线图，可替换成你原来analysis函数里的绘图类型）
   ggplot(processed_data, aes(x = time_of_day, y = step_length)) +
     geom_boxplot(fill = "#69b3a2", alpha = 0.7) +
     # 按animal_id纵向分面（每行一个动物），横向分面用 . ~ animal_id
     facet_grid(animal_id ~ .) +
     labs(title = "各动物昼夜步长对比", x = "时段", y = "步长") +
     theme_minimal()
   

关键说明 #

• 放弃原来按Id拆分循环绘图的逻辑，ggplot的分面功能会自动按分组变量（这里是animal_id）生成独立子图，且共享坐标轴（可通过scales = "free"参数取消共享，比如facet_grid(animal_id ~ ., scales = "free_y")）。
• 如果你的analysis函数里有自定义统计或绘图样式，直接把对应的ggplot图层（比如geom_point()、stat_summary()等）加到上述代码里即可。

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