时间戳

首页 > 解决方案 > 将数据集转换为在 R 中结合列和行的整洁格式

r - 将数据集转换为在 R 中结合列和行的整洁格式

问题描述

我有一个结构有点不幸的数据集：

Species    site  2001  2002  2003 
a          1      0     1    4
a          2      1     1    0
a          3      5     5    5
b          1      3     0    4
b          2      1     1    1
b          3      4     5    5

在尝试了几个小时使用 R 以正确的格式获取它之后，我在 Excel 中完成了它并将其转换为下面的格式。

ID       a   b
1_2001   0   3
1_2002   1   0
1_2003   4   4
2_2001   1   1
2_2002   1   1
2_2003   0   1
3_2001   5   4
3_2002   5   5
3_2004   5   5

原始数据集相当大，我不能让它休息，我不知道如何在 R 中快速做到这一点。有人可以向我解释如何在 R 中完成这种转换吗？

标签： rdplyrtidyverse

解决方案

使用tidyrand dplyr，您可以先将我们的年份列重塑为更长的格式，然后使用pivot_wider创建“a”和“b”列，组装“site”和“ID”，最后只保留所需的列：

library(tidyr)
library(dplyr)
df %>% pivot_longer(.,-c(Species, site), names_to = "ID", values_to = "val") %>%
  pivot_wider(.,names_from = Species, values_from = val) %>%
  rowwise() %>%
  mutate(ID = paste(site,ID, sep = "_")) %>%
  select(ID, a, b)

Source: local data frame [9 x 3]
Groups: <by row>

# A tibble: 9 x 3
  ID         a     b
  <chr>  <int> <int>
1 1_2001     0     3
2 1_2002     1     0
3 1_2003     4     4
4 2_2001     1     1
5 2_2002     1     1
6 2_2003     0     1
7 3_2001     5     4
8 3_2002     5     5
9 3_2003     5     5

数据

structure(list(Species = c("a", "a", "a", "b", "b", "b"), site = c(1L, 
2L, 3L, 1L, 2L, 3L), `2001` = c(0L, 1L, 5L, 3L, 1L, 4L), `2002` = c(1L, 
1L, 5L, 0L, 1L, 5L), `2003` = c(4L, 0L, 5L, 4L, 1L, 5L)), row.names = c(NA, 
-6L), class = c("data.table", "data.frame"), .internal.selfref = <pointer: 0x56276b4f1350>)

推荐阅读