在R中拆分列名并将数据从宽格式转换为长格式
在R中拆分列名并将数据从宽格式转换为长格式
提问于 2014-08-12 18:57:50
我有一个大的数据集，我需要从宽格式转换成长格式。这应该很简单，在这个论坛上有许多如何做到这一点的例子。但是，在这种情况下，我还需要拆分宽格式中使用的列标题，并为每个列创建一个长格式的列。
示例数据集
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我在这个论坛上看了许多例子，这些例子将融化数据以转换为长格式，还有一些在分隔符处进行列分割的例子，但我未能将两者结合起来。
回答 3
Stack Overflow用户
回答已采纳
发布于 2014-08-13 05:19:30
以下是“现代”:-)这方面的方法：
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这样的正则表达式更可靠，这在separate中也是可能的。
data %>%
gather(var, Response, East2010:West2011) %>%
separate(var, c("Site", "Year"),
sep = "(?<=[[:alpha:]])(?=[[:digit:]])",
perl = TRUE)Stack Overflow用户
发布于 2014-08-12 19:14:11
或者(如果列的宽度并不总是恒定的话)。在这里，我使用了“查找”和“查找”来区分字符和数字。
library(reshape2)
data <- melt(data)
temp <- strsplit(as.character(data$variable), "(?<=[[:alpha:]])(?=[[:digit:]])", perl = TRUE)
transform(data, Site = sapply(temp, "[", 1), Year = sapply(temp, "[", 2))
# variable value Site Year
#1 East2010 1 East 2010
#2 East2010 2 East 2010
#3 East2010 3 East 2010
#4 West2010 4 West 2010
#5 West2010 5 West 2010
#6 West2010 6 West 2010
#7 East2011 7 East 2011
#8 East2011 8 East 2011
#9 East2011 9 East 2011
#10 West2011 5 West 2011
#11 West2011 6 West 2011
#12 West2011 7 West 2011Stack Overflow用户
发布于 2014-08-12 19:07:10
这样的东西会起作用的：
library("plyr")
library("reshape2")
m.data <- melt(data)
m.data <- mutate(m.data, Site=substr(variable, 1,4),
Year=substr(variable, 5,8))这将导致：
> m.data
variable value Site Year
1 East2010 1 East 2010
2 East2010 2 East 2010
3 East2010 3 East 2010
4 West2010 4 West 2010
5 West2010 5 West 2010
6 West2010 6 West 2010
7 East2011 7 East 2011
8 East2011 8 East 2011
9 East2011 9 East 2011
10 West2011 5 West 2011
11 West2011 6 West 2011
12 West2011 7 West 2011页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/25272018
复制相关文章
相似问题
腾讯云开发者
