在R中另一列的行末尾追加观察值

在R中另一列的行末尾追加观察值,r,dataframe,R,Dataframe,我有900行400列的数据。每两列都包含特定的信息。比如说,有一个bcd列,我想在A列和B列的末尾追加C列和C列 例如: 改为 Column 1 Column 2 3 4 9 10 5 6 11 12 7 8 13 14 您可以通过将原始df的奇数列和偶数列堆叠到两个新列中来创建新的data.frame df1 <- data.frame(Column

我有900行400列的数据。每两列都包含特定的信息。比如说,有一个bcd列,我想在A列和B列的末尾追加C列和C列

例如:


改为

Column 1   Column 2 
3            4 
9            10
5            6
11           12
7            8
13           14

您可以通过将原始
df
的奇数列和偶数列堆叠到两个新列中来创建新的
data.frame

df1 <- data.frame(Column1 = unlist(df[,c(T,F)]), 
                  Column2 = unlist(df[,c(F,T)]))
> df1
#   Column1 Column2
#A1       3       4
#A2       9      10
#C1       5       6
#C2      11      12
#E1       7       8
#E2      13      14
df1-df1
#第1栏第2栏
#A1 3 4
#A2 9 10
#C1 5 6
#C2 11 12
#E1 7 8
#E2 13 14

您可以通过将原始
df
的奇数列和偶数列堆叠到两个新列中来创建新的
data.frame

df1 <- data.frame(Column1 = unlist(df[,c(T,F)]), 
                  Column2 = unlist(df[,c(F,T)]))
> df1
#   Column1 Column2
#A1       3       4
#A2       9      10
#C1       5       6
#C2      11      12
#E1       7       8
#E2      13      14
df1-df1
#第1栏第2栏
#A1 3 4
#A2 9 10
#C1 5 6
#C2 11 12
#E1 7 8
#E2 13 14

假设
o
都是数字,转换为矩阵:

o <- read.table(text='A   B   C   D   E   F  
3   4   5   6   7   8
9   10  11  12  13  14', header=TRUE)

o <- as.matrix(o)

使用aperm移动索引,并将
dim`dim t(`dim假设
o
都是数字,转换为矩阵:

o <- read.table(text='A   B   C   D   E   F  
3   4   5   6   7   8
9   10  11  12  13  14', header=TRUE)

o <- as.matrix(o)

使用aperm移动索引,并
dim`dim t(`dimFyi,你可以缩进四个空格来组成代码块,或者高亮显示并按CTRL+K。你能说明你想做什么吗?你只是在问如何将数据点附加到一行吗?是的,只需将数据附加到该行。顺便说一句,这看起来非常像一个重塑操作。请查看
重塑2
软件包。谢谢你的使用。)l信息!如果我必须保留第一列(上面的示例中未显示),您会建议什么策略并对原始数据的每两列进行堆栈?仅供参考,您可以缩进四个空格以生成代码块,或者高亮显示并按CTRL+K。您能否澄清您正在尝试执行的操作?您只是问如何将数据点追加到行中?是的,只需将数据追加到行中。作为旁注,这看起来非常类似于重塑操作。查看e
reformae2
package.感谢您提供的有用信息!如果我必须保留第一列(上面的示例中未显示),并对原始数据帧的每两列进行堆栈,您会建议什么策略?
> o
, , 1

     [,1] [,2]
[1,]    3    4
[2,]    9   10

, , 2   

     [,1] [,2]
[1,]    5    6
[2,]   11   12

, , 3   

     [,1] [,2]
[1,]    7    8
[2,]   13   14
>`dim<-`(aperm(o, c(3,1,2)), c(6,2))

     [,1] [,2]
[1,]    3    4
[2,]    5    6
[3,]    7    8
[4,]    9   10
[5,]   11   12
[6,]   13   14
> t(`dim<-`(aperm(o, c(2,1,3)), c(2,6)))
     [,1] [,2]
[1,]    3    4
[2,]    9   10
[3,]    5    6
[4,]   11   12
[5,]    7    8
[6,]   13   14