ggplot中按Position_Group设置alpha值仅部分生效的问题求助

你当前的代码中，Position_Group包含9个独立的因子水平（每个城市3组），而scale_alpha_discrete(range = c(1, 0.4, 0.1))会将这3个值线性映射到全部9个因子水平，导致前3组（Detroit的三个组）得到1、0.4、0.1，后面的Chicago和Atlanta组会继续按线性规律降低alpha值，而非重复你想要的三组透明度规则。

需要从Position_Group中提取出统一的分组后缀（1-3、4-6、7-9），用这个统一分组来映射alpha值，确保每个城市的同后缀组使用相同透明度：

步骤1：新增统一alpha分组列 #

使用字符串处理工具提取每个Position_Group的后缀部分，创建一个新的分组列：

# 加载stringr包（未安装先运行install.packages("stringr")）
library(stringr)
# 从Position_Group中提取数字后缀，比如从"Detroit.1-3"得到"1-3"
dftt$alpha_group <- str_extract(dftt$Position_Group, "\\d+-\\d+")
# 将alpha_group转为因子并指定顺序，确保1-3对应最高透明度
dftt$alpha_group <- factor(dftt$alpha_group, levels = c("1-3", "4-6", "7-9"))

步骤2：修改ggplot代码 #

将alpha的映射变量替换为新的alpha_group，并使用scale_alpha_manual手动指定对应透明度值（比scale_alpha_discrete更精准）：

dataset2 <- dftt %>%
  ggplot(aes(x=x, y=values, group = Position_Group, color = name, alpha = alpha_group)) +
  geom_line(size = 3) +
  scale_alpha_manual(values = c("1-3" = 1, "4-6" = 0.4, "7-9" = 0.1))

dataset2

替代方案（无需额外包） #

如果不想加载stringr包，可以用base R的gsub提取后缀：

dftt$alpha_group <- gsub(".*\\.", "", dftt$Position_Group)
dftt$alpha_group <- factor(dftt$alpha_group, levels = c("1-3", "4-6", "7-9"))

这样修改后，每个城市的1-3组都会使用alpha=1，4-6组用0.4，7-9组用0.1，完全符合你的预期。

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