将一列分成多列

我有一个巨大的数据集，其中有一列包括每个主题（行）的几个值。这里是一个简化的样本数据帧：将一列分成多列

data <- data.frame(subject = c(1:8), sex = c(1, 2, 2, 1, 2, 1, 1, 2), 
       age = c(35, 29, 31, 46, 64, 57, 49, 58), 
       v1 = c("2", "0", "3,5", "2 1", "A,4", "B,1,C", "A and B,3", "5, 6 A or C")) 

> data 
    subject sex age   v1 
1  1 1 35   2 
2  2 2 29   0 
3  3 2 31   3,5 # separated by a comma 
4  4 1 46   2 1 # separated by a blank space 
5  5 2 64   A,4 
6  6 1 57  B,1,C 
7  7 1 49 A and B,3 
8  8 2 58 5, 6 A or C

我首先要在第四列取出字母（A，B，A and B，...）（v1），然后拆分第四栏为多列就这样：

subject sex age x1 x2 x3 x4 x5 x6 
1  1 1 35 0 1 0 0 0 0   
2  2 2 29 0 0 0 0 0 0 
3  3 2 31 0 0 1 0 1 0 
4  4 1 46 1 1 0 0 0 0 
5  5 2 64 0 0 0 1 0 0 
6  6 1 57 1 0 0 0 0 0 
7  7 1 49 0 0 1 0 0 0 
8  8 2 58 0 0 0 0 1 1

其中第一主体在X2为1，因为它在原始数据集需要2在V1，所述第三主体在两个X3和X5为1，因为它在原始数据集需要3和5在V1，等等。

我希望在这个问题上的任何帮助。非常感谢。

来源

2013-02-07 user187454

一个解决方案：

r <- sapply(strsplit(as.character(dt$v1), "[^0-9]+"), as.numeric) 
m <- as.data.frame(t(sapply(r, function(x) { 
     y <- rep(0, 6) 
     y[x[!is.na(x)]] <- 1 
     y 
    }))) 
data <- cbind(data[, c("subject", "sex", "age")], m) 

# subject sex age V1 V2 V3 V4 V5 V6 
# 1  1 1 35 0 1 0 0 0 0 
# 2  2 2 29 0 0 0 0 0 0 
# 3  3 2 31 0 0 1 0 1 0 
# 4  4 1 46 1 1 0 0 0 0 
# 5  5 2 64 0 0 0 1 0 0 
# 6  6 1 57 1 0 0 0 0 0 
# 7  7 1 49 0 0 1 0 0 0 
# 8  8 2 58 0 0 0 0 1 1

继迪文的真棒解决方案，m可以被修改为：

m <- as.data.frame(t(sapply(r, function(x) { 
     0 + 1:6 %in% x[!is.na(x)] 
    })))

来源

2013-02-07 21:05:52 Arun

非常感谢。你的R脚本工作得很好。 – user187454

感谢您的更新。我还有一个问题。在这里我只给出一个简单的数据集，其中v1取最大值“6”。在我的真实数据中，由于它很大，是否有一种简单的方法可以自动确定v1的最大值，而不是由我自己指定？谢谢。 – user187454

非常感谢，您非常乐于助人。 – user187454

您可以cbind这个结果数据[-4]，让你需要的东西：

0+t(sapply(as.character(data$v1), function(line) 
     sapply(1:6, function(x) x %in% unlist(strsplit(line, split="\\s|\\,"))))) 
#---------------- 
      [,1] [,2] [,3] [,4] [,5] [,6] 
2    0 1 0 0 0 0 
0    0 0 0 0 0 0 
3,5   0 0 1 0 1 0 
2 1   1 1 0 0 0 0 
A,4   0 0 0 1 0 0 
B,1,C   1 0 0 0 0 0 
A and B,3  0 0 1 0 0 0 
5, 6 A or C 0 0 0 0 1 1

来源

2013-02-07 21:04:51

非常感谢。你的代码效果很好。 – user187454

将一列分成多列

回答

相关问题