如何在ggplot中调整分面标签位置：下移或移至面板左上角内部？

Got it, let's work through your two facet label adjustment needs with clear, reproducible code. First, let's set up a sample dataset and base plot so we're all on the same page:

library(ggplot2)
library(dplyr)

# Create a sample dataset with 3 groups (A, B, C)
set.seed(123) # For reproducibility
df <- tibble(
  x = rnorm(150),
  y = rnorm(150),
  group = rep(c("A", "B", "C"), each = 50)
)

# Base faceted plot
base_plot <- ggplot(df, aes(x, y)) +
  geom_point(color = "#2c3e50") +
  facet_wrap(~group)

base_plot

1. Shift Facet Labels Downward #

By default, facet labels sit at the top of each panel, aligned to the top of their background strip. To shift them downward, we'll adjust the strip.text element in theme()—using vjust to align the text to the bottom of the strip, and adding a bottom margin to create space between the text and the panel content:

# Shift facet labels down
plot_shifted <- base_plot +
  theme(
    strip.text = element_text(
      vjust = 1,       # Align text to the bottom of the strip
      margin = margin(b = 8) # Add 8pt margin below the text
    ),
    # Optional: Remove the strip background for a cleaner look
    strip.background = element_rect(fill = NA, color = NA)
  )

plot_shifted

If you want to keep the strip background, you can also adjust the strip.height parameter in theme() to make the strip taller, then use vjust to position the text lower inside it.

2. Move Facet Labels (A/B/C) to the Top-Left Inside the Panel #

To move the labels inside the panel's top-left corner, we'll hide the default facet labels and instead add custom text annotations positioned specifically for each panel. Here's how:

# Calculate top-left position for each group's label
label_positions <- df %>%
  group_by(group) %>%
  summarize(
    # Position slightly offset from the true min/max to avoid clipping
    x = min(x) + 0.1 * (max(x) - min(x)),
    y = max(y) - 0.1 * (max(y) - min(y))
  )

# Plot with labels inside the panels
plot_inside_labels <- base_plot +
  # Add the custom labels
  geom_text(
    data = label_positions,
    aes(x = x, y = y, label = group),
    fontface = "bold", # Match default facet label weight
    size = 5,
    hjust = 0, # Align left
    vjust = 1  # Align top
  ) +
  # Hide the original facet labels and background
  theme(
    strip.text = element_blank(),
    strip.background = element_blank()
  )

plot_inside_labels

This method gives you full control over the label's position, size, and styling—you can tweak the offset values (0.1 in the position calculation) to move the labels closer or farther from the panel edges as needed.

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