拆分列名并在R中将数据从宽格式转换为长格式 [英] Split column name and convert data from wide to long format in R

问题描述

我有一个大型数据集，我需要将其从宽格式转换为长格式。这应该很简单，这个论坛上有很多如何做到这一点的例子。但是，在本例中，我还需要拆分宽格式中使用的列标题，并为每个长格式的列创建一列。

示例数据集

 data <- data.frame("East2010"=1:3, "West2010"=4:6, "East2011"=7:9, "West2011"=5:7)
 data
 East.2010 West.2010 East.2011 West.2011
 1         1         4         7         5
 2         2         5         8         6
 3         3         6         9         7

我想要的是这样的

 Site   Year   Response
 East   2010   1
 East   2010   2
 East   2010   3
 West   2010   4
 West   2010   5
 West   2010   6
 East   2011   7
 East   2011   8
 East   2011   9
 West   2011   5
 West   2011   6
 West   2011   7

我在这个论坛上看了很多例子，这些例子会将数据融化以转换为长格式，还有一些例子会在分隔符的位置拆分列，但我无法让这两个例子一起工作。

推荐答案

这里是"现代版"：-)解决此问题的方法：

library(dplyr)
library(tidyr)
data %>%
  gather(var, Response, East2010:West2011) %>%  ## Makes wide data long
  separate(var, c("Site", "Year"), sep = -5)    ## Splits up a column
#    Site Year Response
# 1  East 2010        1
# 2  East 2010        2
# 3  East 2010        3
# 4  West 2010        4
# 5  West 2010        5
# 6  West 2010        6
# 7  East 2011        7
# 8  East 2011        8
# 9  East 2011        9
# 10 West 2011        5
# 11 West 2011        6
# 12 West 2011        7

上面的sep = -5表示从字符串末尾向后返回五个字符并在那里拆分。因此，如果您使用"North2010"作为可能的名称，仍然可以使用。

也就是说，使用@David‘s这样的正则表达式更可靠，在separate中也是可能的：

data %>%
  gather(var, Response, East2010:West2011) %>%
  separate(var, c("Site", "Year"), 
           sep = "(?<=[[:alpha:]])(?=[[:digit:]])", 
           perl = TRUE)

这篇关于拆分列名并在R中将数据从宽格式转换为长格式的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！