Question

我有如下一组数据：

BETA_LACT   R   I   S
-   23  25  91
-   30  0   109
-   0   0   136
+   73  0   0
+   14  0   59
+   0   0   49

我想将数据转换为以下格式：

R_- I_- S_- R_+ I_+ S_+
23  25  91  73  0   0
30  0   109 14  0   59
0   0   136 0   0   49

我尝试了spread（）但失败了，有人可以帮助我吗？

Answer 1

我怀疑您使用spread和gather时遇到的问题是您的示例数据没有任何内容可以建议应该折叠哪些行。作为人类，我可以观察到您希望合并第1行，第4行，第2行和第5行等。但是，数据集中没有其他列或“键”可以表明这一点。 / p>

一种解决方案是使用下面的第二个示例使用group_by和mutate添加一个索引列。以下reprex（可重现的示例）显示了与您的案例类似的无效示例和有效示例。

library(tidyr)
library(dplyr)

example_data <- data.frame(
  categ = rep(1:3, 3),
  x = 1:9,
  y = 11:19,
  z = 21:29
)

# won't work
example_data %>%
  gather(var, value, -categ) %>%
  unite(new_col_name, var, categ) %>%
  spread(new_col_name, value)
#> Error: Duplicate identifiers for rows (1, 4, 7), (2, 5, 8), (3, 6, 9), (10, 13, 16), (11, 14, 17), (12, 15, 18), (19, 22, 25), (20, 23, 26), (21, 24, 27)

# will work
example_data %>%
  group_by(categ) %>%
  mutate(id = row_number()) %>% 
  gather(var, value, -categ, -id) %>%
  unite(new_col_name, var, categ) %>%
  spread(new_col_name, value)
#> # A tibble: 3 x 10
#>      id   x_1   x_2   x_3   y_1   y_2   y_3   z_1   z_2   z_3
#> * <int> <int> <int> <int> <int> <int> <int> <int> <int> <int>
#> 1     1     1     2     3    11    12    13    21    22    23
#> 2     2     4     5     6    14    15    16    24    25    26
#> 3     3     7     8     9    17    18    19    27    28    29

（作为旁注，请查看reprex软件包！这有助于您制作“可复制的示例”，并提出更好的问题以利于更好的社区支持。请注意复制该文档非常容易以上代码并在本地运行。）

如何在一行中转换不同的级别

1 个答案: