使用for循环绘制ggplot时如何实现多图网格布局？

Hey there! Since you're new to R, let's break this down step by step—no need for that for loop (unless you have super custom per-plot needs, which we can cover too). ggplot has built-in tools to arrange your plots in a grid, and we can easily split them across multiple pages for your 50 participant IDs.

方法1：最简单的方式——用facet_wrap直接生成网格（无需循环） #

This is the most recommended approach because ggplot's faceting tools are made exactly for this kind of grouped plotting scenario. It's clean, efficient, and requires way less code.

# First, install ggplot2 if you haven't already (run once)
# install.packages("ggplot2")

# Load the ggplot2 package
library(ggplot2)

# Optional: Make sure your Date/Time columns are in the right format
# data$Date <- as.Date(data$Date)
# data$Time <- hms::as_hms(data$Time) # Use hms package for pure time values

# Create the grid of scatter plots
ggplot(data, aes(x = Date, y = Time)) +
  geom_point(color = "#2c3e50") + # Optional: Add a nice color for points
  facet_wrap(~id, nrow = 3, ncol = 4) + # Split plots by ID, 3 rows × 4 columns per page
  theme_bw() + # Use a clean black-and-white theme
  theme(
    strip.text = element_text(size = 8), # Shrink facet titles (IDs) to avoid overlap
    axis.text = element_text(size = 6), # Shrink axis text for better fit
    axis.text.x = element_text(angle = 45, hjust = 1) # Rotate x-axis dates to prevent crowding
  )

# Export to a multi-page PDF (ggplot auto-splits plots across pages)
ggsave("participant_scatter_plots.pdf", width = 11, height = 8.5, units = "in")

解释： #

• facet_wrap(~id) automatically arranges each participant's plot into a grid.
• nrow and ncol control how many plots fit per page (here, 12 per page). For 50 IDs, this will create 5 pages (4 pages with 12 plots, 1 page with 2 plots).

方法2：如果需要 custom per-plot settings（循环 + 图列表 + 组合） #

If you need unique tweaks for each participant's plot (like different colors, annotations, etc.), you can first save each plot to a list, then combine and paginate them:

Step 1: Install and load required packages #

# Install packages (run once)
# install.packages(c("ggplot2", "ggpubr"))

# Load packages
library(ggplot2)
library(ggpubr) # For combining plots and pagination

Step 2: Loop through IDs and save plots to a list #

# Create an empty list to store all plots
plot_list <- list()

# Iterate over each unique participant ID
for (i in unique(data$id)) {
  # Filter data for the current ID
  current_data <- subset(data, id == i)
  
  # Create the scatter plot for this ID
  current_plot <- ggplot(current_data, aes(x = Date, y = Time)) +
    geom_point() +
    ggtitle(paste("Participant ID:", i)) + # Add a title with the ID
    theme_bw() +
    theme(
      plot.title = element_text(size = 10),
      axis.text = element_text(size = 7)
    )
  
  # Add the plot to the list (use ID as the list element name for easy reference)
  plot_list[[as.character(i)]] <- current_plot
}

Step 3: Combine plots and export to multi-page PDF #

# Combine plots into a grid, 3 rows × 4 columns per page
combined_plots <- ggarrange(
  plotlist = plot_list,
  nrow = 3,
  ncol = 4,
  align = "hv", # Align axes across all plots
  common.legend = FALSE # Set to TRUE if you want a shared legend (remove if no legend)
)

# Export to PDF
ggsave(
  filename = "custom_participant_plots.pdf",
  plot = combined_plots,
  width = 10,
  height = 8,
  units = "in"
)

Quick Tips for New R Users #

• Check data formats: Always verify that Date is a date type (use class(data$Date) to check; convert with as.Date() if needed) and Time is a time type (use hms::as_hms() for pure time values).
• Adjust layout: Tweak nrow and ncol to fit more or fewer plots per page (e.g., nrow=3, ncol=3 for 9 plots per page).
• Fix overlapping text: Use theme() to adjust font sizes or rotate axis text (like the axis.text.x tweak in Method 1).

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