ggplot2指定数据点颜色修改及图例、分面标签调整求助

Hey there! Let's sort out this ggplot issue you're having—sounds like you've got the colors showing up on the plot but the legend isn't syncing, plus you need to tweak the legend title and facet labels. Here's a straightforward fix that addresses all your needs:

The Core Problem with Your Original Approach #

When you filter the data and overlay separate geom_line()/geom_point() layers with manual color settings, ggplot treats those as independent elements instead of integrating them into a unified legend. That's why the plot shows red points/lines but the legend doesn't reflect it.

Step-by-Step Solution #

We'll handle everything in a single ggplot call by directly mapping colors to your ps_no variable and overriding the colors for DEF-2 and DEF-13, then adjust the legend and facet labels.

1. Prepare Your Color Mapping

First, create a named color vector that assigns red to DEF-2 and DEF-13, and uses your existing renkler palette for the other 13 points:

# Assume your data frame is named 'df'
color_map <- c(
  # Assign red to the two target points
  "DEF-2" = "red",
  "DEF-13" = "red",
  # Use your renkler palette for the remaining points
  setNames(renkler, setdiff(unique(df$ps_no), c("DEF-2", "DEF-13")))
)

2. Build the Plot with All Customizations

Now use this color map in your ggplot call, and adjust the legend title and facet labels:

library(ggplot2)
library(dplyr) # For case_match in the labeller

ggplot(df, aes(x = your_x_variable, y = your_y_variable, color = ps_no)) +
  geom_line() +
  geom_point(size = 2) # Optional: make points easier to see
  # Apply our custom color mapping
  scale_color_manual(values = color_map) +
  # Update the legend title (replace with your desired text)
  labs(color = "Measurement Points") +
  # Customize facet labels (replace the text inside quotes with your preferred labels)
  facet_wrap(~ps_no, 
             labeller = labeller(ps_no = function(x) {
               case_match(x,
                 "DEF-2" ~ "Critical Point 1",
                 "DEF-13" ~ "Critical Point 2",
                 .default = x # Keep original labels for other points
               )
             })) +
  theme_minimal() # Optional: clean up the plot theme

Why This Works #

• By mapping color = ps_no directly in the main aes() call, ggplot creates a single legend that includes all measurement points, with DEF-2 and DEF-13 showing red as specified.
• scale_color_manual() lets you explicitly set colors for specific categories, so your renkler palette stays intact for the other points.
• The labeller function in facet_wrap() lets you replace the default facet text (DEF-2/DEF-13) with whatever custom labels you want.

Quick Notes #

• Replace your_x_variable and your_y_variable with the actual column names from your data.
• If you're using facet_grid() instead of facet_wrap(), the labeller syntax works the same way—just swap out the facet function.

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