重命名列，但在 R 中的 ggplot 2 中保持相同的排序

Question

我有一个名为 df 的数据框，包含 2 个字符变量和一个双精度变量。

我试图解决的问题的最初问题是这个here。简而言之，我试图在每个方面从低到高对 delta 值进行排序，但我也想查看 y 轴中的 my_vars2 值。目前我只看到字母。我该如何解决这个问题，但仍然具有相同的排序从较低值到较高值？

library(ggplot2)
library(dplyr)
library(forcats)
library(stringr)

## init data --------------------------------------
set.seed(123)  # Setting seed for reproducibility
levels <- c('KAMALA-IT', 'HARRIS-HR', 'DONALD-CEO', 'TRUMP-HR', 'BARACK-IT')
my_var <- sample(levels, 50, replace = TRUE)
levels2 <- c('GEORGIA', 'PENNSYLVANIA', 'WINSCOSIN', 'NORTH CAROLINA', 'NEVADA','ARIZONA','MICHIGAN')
my_var2 <- sample(levels2, 50, replace = TRUE)
delta <- rnorm(50, mean = 0, sd = 1) 

df <- tibble(my_var,my_var2,delta);df
df <- 
  group_by(df, my_var) |> 
  arrange(delta, .by_group = TRUE) |> 
  mutate(labels = paste0(letters[1:n()], "/", my_var2))



ggplot(df, aes(x = delta, y = labels)) +
  geom_point(colour = "red") +
  
  # "free_y" lets the y axis move around between facets
  facet_wrap(~my_var, dir = "v", ncol = 1, scales = "free_y") +
  
  # Remove the ordering component of each label:
  scale_y_discrete(labels = \(x) str_extract(x, "(?<=/)."))

Answer 1

只需修改正则表达式即可仅保留状态名称，即我使用的分隔符“/”之后的标签部分

gsub

：

library(ggplot2)

ggplot(df, aes(x = delta, y = labels)) +
  geom_point(colour = "red") +
  facet_wrap(~my_var, dir = "v", ncol = 1, scales = "free_y") +
  scale_y_discrete(labels = \(x) gsub("^.*?/", "", x))