在R中另一列的行末尾追加观察值
我有900行400列的数据。每两列都包含特定的信息。比如说,有一个bcd列,我想在A列和B列的末尾追加C列和C列 例如:在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
改为
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。您能否澄清您正在尝试执行的操作?您只是问如何将数据点追加到行中?是的,只需将数据追加到行中。作为旁注,这看起来非常类似于重塑操作。查看ereformae2
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