将1x9数据帧重塑为4 x 3而不循环

Emilio M. Bruna 发表于 Dev

埃米利奥·布鲁纳（Emilio M. Bruna）

基本上，我正在寻找用于数据帧的MATLAB vec2mat的R版本。我有一个1 x 9数据帧（下面是oneBYnine），我想转换成3 x 3数据帧（fourBYthree）：

> oneBYnine
data
1     4
2     7
3   A.1
4     6
5     5
6     1
7   A.2
8    12
9     6
10    8
11  A.3
12   15

>fourBYthree
a b     c  d
1 4 7 A.1  6
2 5 1 A.2 12
3 6 8 A.3 15

data<-c("4","7","A.1","6", "5","1","A.2","12", "6","8","A.3", "15")
oneBYnine<-data.frame(data)

a<-c("4","5","6")
b<-c("7","1","8")
c<-c("A.1","A.2","A.3")
d<-c("6", "12", "15")

fourBYthree<-data.frame(a,b,c,d)

我通过创建一个虚拟计数器数据帧然后循环（尝试重塑2和tidyr，直到我的头爆炸）来做到这一点。

Z<- as.data.frame(matrix(1:12,nrow=4,ncol=3))
Z<-as.data.frame(t(Z))

df<- as.data.frame(matrix(NA,nrow=3,ncol=4))
for(i in 1:3) 
  df[i,]<-oneBYnine$data[Z[i,1]:Z[i,4]]

df

我无法弄清楚为什么其中一些数据整理工作没有用，并且肯定有一种更干净的方法。有什么建议吗？

格雷戈尔·托马斯（Gregor Thomas）

我会通过一个矩阵：

# getting your data
oneBYnine = read.table("clipboard", stringsAsFactors = F)

mat = matrix(oneBYnine$data, ncol = 4, byrow = T)
dat = as.data.frame(mat, stringsAsFactors = F)

> dat
  V1 V2  V3 V4
1  4  7 A.1  6
2  5  1 A.2 12
3  6  8 A.3 15

随着stringsAsFactors = F每一列的将是一个字符。您可以根据需要将它们转换为数字或因子。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。