Question

我有一个dataframe price.hierarchy

 read.table(header=TRUE, text=
"  WEEK PRICE  QUANTITY SALE_PRICE TYPE
1  4992  3.49 11541.600       3.49    1
2  5001  3.00 38944.000       3.00    1
3  5002  3.49 10652.667       3.49    1
4  5008  3.00 21445.000       3.00    1
5  5009  3.49 10039.667       3.49    1
6  5014  3.33 22624.000       3.33    1
7  5015  3.49  9146.500       3.49    1
8  5027  3.33 14751.000       3.33    1
9  5028  3.49  9146.667       3.49    1
10 5034  3.33 18304.000       3.33    1
11 5035  3.49 10953.500       3.49    1")

我想输出

read.table(header=F, text=
"1  4992 3.49 11541.600 3.49  1 5001 3.00 38944.000 3.00   1
 2  5001 3.00 38944.000 3.00  1 5002 3.49 10652.667 3.49   1
 3  5002 3.49 10652.667 3.49  1 5008 3.00 21445.000 3.00   1
 4  5008 3.00 21445.000 3.00  1 5009 3.49 10039.667 3.49   1
 5  5009 3.49 10039.667 3.49  1 5014 3.33 22624.000 3.33   1
 6  5014 3.33 22624.000 3.33  1 5015 3.49  9146.500 3.49   1
 7  5015 3.49  9146.500 3.49  1 5027 3.33 14751.000 3.33   1
 8  5027 3.33 14751.000 3.33  1 5028 3.49  9146.667 3.49   1
 9  5028 3.49  9146.667 3.49  1 5034 3.33 18304.000 3.33   1
 10 5034 3.33 18304.000 3.33  1 5035 3.49 10953.500 3.49   1")

我试图在同一数据框的末尾组合第一行，第二行，第二行和第三行等。

我试过

price.hierarchy1 <- price.hierarchy[c(1: (nrow(price.hierarchy)-1)), ] 
price.hierarchy2 <- price.hierarchy[c(2: nrow(price.hierarchy)), ] 
price.hierarchy3 <- cbind(price.hierarchy1, price.hierarchy2) 
price.hierarchy3 <- unique(price.hierarchy3)

Answer 1

另一种变体是

cbind(df1[-nrow(df1),], df1[-1,])

Answer 2

首先分开行，然后cbind()

cbind(df[1:(nrow(df)-1),], df[2:nrow(df),])

或

cbind(head(df,-1), tail(df,-1))

在数据帧中组合两个连续的行

2 个答案: