我们可以通过循环across字符列将character列中的空格（""）转换为NA，然后通过选择列名为starts_with "Color："的cols将其整形为"long"。

library(tidyr)
library(dplyr)
df1 %>%
   mutate(across(where(is.character), ~ na_if(.x, ""))) %>% 
   pivot_longer(cols = starts_with("Color:"), names_to = c(".value", "Color2"), 
     names_sep = ":", values_drop=TRUE) %>% 
  select(IDENTITY, Color = Color2)

• 输出

# A tibble: 3 × 2
  IDENTITY Color
     <int> <chr>
1        1 Green
2        2 Blue 
3        3 Red

您需要使用pivot_longer函数，它将收集列并将它们转换为行。

注意：我必须把````放在列名前面，因为:是R中那些讨厌的保留字符之一。您希望避免将其作为列分隔符（_可能是一个有用的替代）。您不能总是控制这一点，但它只是需要注意的事情。

library(tidyverse)

x <- tribble( ~IDENTITY, ~`Color:Blue`, ~`Color:Red`, ~`Color:Green`,
              1L, "", "", "Yes",
              2L, "Yes", "", "",
              3L, "" , "Yes", "")

x %>%
  rename_with(stringr::str_replace,
              pattern = "Color:",
              replacement = "") %>%
  pivot_longer(!IDENTITY,
               names_to = "Color") %>%
  filter(value != "") %>%
  select(!value)