将 pivot_longer 与现有的 names_to 列一起使用

Question

以这样的示例数据框为例（真实的数据框有更多列）：

df <- data.frame(A = seq(1, 3, 1),
                 B = seq(4, 6, 1))

我可以使用pivot_longer 来收集我感兴趣的列（A 和B），如下所示：

library(dplyr)
library(tidyr)
df <- df %>% 
  pivot_longer(cols = c("A", "B"), names_to = "Letter", values_to = "Number")
df
  Letter Number
  <chr>   <dbl>
1 A           1
2 B           4
3 A           2
4 B           5
5 A           3
6 B           6

现在假设我的数据框中有另一列 C，使其不再整洁

C <- seq(7, 12, 1)

df_2 <- data.frame(df, C)
df_2
  Letter Number  C
1      A      1  7
2      B      4  8
3      A      2  9
4      B      5 10
5      A      3 11
6      B      6 12

我想再次使用pivot_longer 使df_2 整洁并得到这个输出：

data.frame(Letter = c(rep("A", 3), rep("B", 3), rep("C", 3)),
                        Number = seq(1, 12, 1))
   Letter Number
1       A      1
2       A      2
3       A      3
4       B      4
5       B      5
6       B      6
7       C      7
8       C      8
9       C      9
10      C     10
11      C     11
12      C     12

虽然使用相同的策略会产生错误：

df_2 %>% 
  pivot_longer(cols = "C", names_to = "Letter", values_to = "Number")

Error: Failed to create output due to bad names.
* Choose another strategy with `names_repair`

将names_repair 设置为minimal 会运行，但不会产生我想要的输出。

Answer 1

像这样关注它

library(tidyverse)
df <- data.frame(A = seq(1, 3, 1),
                 B = seq(4, 6, 1))
df <- df %>% 
  pivot_longer(cols = c("A", "B"), names_to = "Letter", values_to = "Number")

C <- seq(7, 12, 1)
df_2 <- data.frame(C)
df_2 <- df_2 %>% pivot_longer(cols = C, names_to = "Letter", values_to = "Number")

df_result <- rbind(df, df_2)

输出

> df_result
# A tibble: 12 x 2
   Letter Number
   <chr>   <dbl>
 1 A           1
 2 B           4
 3 A           2
 4 B           5
 5 A           3
 6 B           6
 7 C           7
 8 C           8
 9 C           9
10 C          10
11 C          11
12 C          12

Answer 2

如果有帮助，不妨试试这个：

library(tidyverse)
#Code
df_2 %>% pivot_longer(everything()) %>%
  arrange(name) %>% group_by(name) %>%
  filter(!duplicated(value))

输出：

# A tibble: 12 x 2
# Groups:   name [3]
   name  value
   <chr> <dbl>
 1 A         1
 2 A         2
 3 A         3
 4 B         4
 5 B         5
 6 B         6
 7 C         7
 8 C         8
 9 C         9
10 C        10
11 C        11
12 C        12

Answer 3

我们可以通过stack轻松做到这一点

library(dplyr)
stack(df_2)[2:1] %>% 
     distinct %>%
     set_names(c("Letter", "Number"))

-输出

#    Letter Number
#1       A      1
#2       A      2
#3       A      3
#4       B      4
#5       B      5
#6       B      6
#7       C      7
#8       C      8
#9       C      9
#10      C     10
#11      C     11
#12      C     12

---

或者unnest/enframe的选项

library(tidyr)
library(tibble)
unclass(df_2) %>% 
     enframe(name = "Letter", value = "Number") %>% 
     unnest(c(Number)) %>% 
     distinct

---

或者使用melt

library(reshape2)
melt(df_2) %>% 
      distinct()

---

或者在base R中的一行

unique(stack(df_2)[2:1])