调整ggplot图例颜色分布以解决标签重叠问题

First, let's break down why you're seeing those issues:

• Your scale_color_gradientn only uses 2 colors, so the color bar is just a smooth transition between two hues, leaving visual "empty" space between your 6 break points.
• The 6 player name labels are crammed onto this narrow gradient bar, causing overlap.

Here are two actionable fixes to address both problems:

1. Match Color Nodes to Your Break Points #

Instead of using only 2 colors, generate a color palette with the same number of nodes as your breaks (one for each player). This fills the entire color bar with distinct gradient segments and eliminates the empty gaps.

2. Adjust Legend Text to Prevent Overlap #

Shrink the text size or wrap long player names to fit neatly next to the color bar.

Modified Code #

library(ggplot2)
library(stringr) # For wrapping text

ggplot(data = sim_mat_mel, aes(x = min, y = value, group = variable, color = threep)) +
  geom_line(show.legend = TRUE) +
  scale_color_gradientn(
    "Three Point Percentage",
    # Wrap player names to 10 characters per line to avoid overlap
    labels = function(x) str_wrap(sam_data1$player2, width = 10),
    breaks = sam_data1$threepper,
    limits = c(38.7, 42.7),
    # Generate a color palette matching the number of players/breaks
    colors = rainbow(nrow(sam_data1), start = 3/6, end = 0)
  ) +
  theme(
    legend.key.height = unit(3.6, "cm"),
    # Shrink text size slightly for better fit
    legend.text = element_text(face = "plain", size = 8),
    panel.background = element_rect(fill = "transparent", colour = NA),
    panel.grid.minor = element_blank(),
    panel.grid.major = element_blank(),
    plot.background = element_rect(fill = "transparent", colour = NA),
    axis.line = element_line(colour = "black")
  )

Alternative: Use Discrete Color Segments #

If you prefer solid color blocks instead of a smooth gradient, swap scale_color_gradientn with scale_color_stepsn. This creates distinct color segments between each break point, which also eliminates gaps and makes label alignment clearer:

scale_color_stepsn(
  "Three Point Percentage",
  labels = function(x) str_wrap(sam_data1$player2, width = 10),
  breaks = sam_data1$threepper,
  limits = c(38.7, 42.7),
  colors = rainbow(nrow(sam_data1), start = 3/6, end = 0)
)

Key Changes Explained #

• rainbow(nrow(sam_data1)): Creates a color for each player/break point, ensuring the entire color bar is filled without gaps.
• str_wrap(sam_data1$player2, width = 10): Wraps long names like "Stephen Curry" onto two lines to prevent horizontal overlap.
• size = 8 in element_text: Reduces text size slightly to fit more labels comfortably.

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