根據條件交換數據框中的行
[英]Swap rows in a data frame based on a criteria
問題描述
我有一個這樣的數據表。 這里是dput它。
structure(list(Sepal.Length = c(5.4, 5.1, 5, 5, 4.9, 4.9, 4.7,
4.6, 4.6, 4.4, 5.4, 5.1, 5, 5, 4.9, 4.9, 4.7, 4.6, 4.6, 4.4),
Sepal.Width = c(3.9, 3.5, 3.6, 3.4, 3.1, 3, 3.2, 3.4, 3.1,
2.9, 3.9, 3.5, 3.6, 3.4, 3.1, 3, 3.2, 3.4, 3.1, 2.9), Petal.Length = c(1.7,
1.4, 1.4, 1.5, 1.5, 1.4, 1.3, 1.4, 1.5, 1.4, 1.7, 1.4, 1.4,
1.5, 1.5, 1.4, 1.3, 1.4, 1.5, 1.4), Petal.Width = c(0.4,
0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.2, 0.2, 0.4, 0.2, 0.2,
0.2, 0.1, 0.2, 0.2, 0.3, 0.2, 0.2), Species = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L), .Label = c("setosa", "versicolor", "virginica"
), class = "factor"), order = c(1L, 2L, 3L, 4L, 5L, 6L, 7L,
8L, 9L, 10L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L)), .Names = c("Sepal.Length",
"Sepal.Width", "Petal.Length", "Petal.Width", "Species", "order"
), row.names = c(NA, -20L), class = c("data.table", "data.frame"
), .internal.selfref = <pointer: 0x0000000000340788>)
看起來像這樣。 這只是一個示例。
Sepal.Length Sepal.Width Petal.Length Petal.Width Species order
1: 5.4 3.9 1.7 0.4 setosa 1
2: 5.1 3.5 1.4 0.2 setosa 2
3: 5.0 3.6 1.4 0.2 setosa 3
4: 5.0 3.4 1.5 0.2 setosa 4
5: 4.9 3.1 1.5 0.1 setosa 5
6: 4.9 3.0 1.4 0.2 setosa 6
7: 4.7 3.2 1.3 0.2 setosa 7
8: 4.6 3.4 1.4 0.3 setosa 8
9: 4.6 3.1 1.5 0.2 setosa 9
10: 4.4 2.9 1.4 0.2 setosa 10
11: 5.4 3.9 1.7 0.4 setosa 1
12: 5.1 3.5 1.4 0.2 setosa 2
13: 5.0 3.6 1.4 0.2 setosa 3
14: 5.0 3.4 1.5 0.2 setosa 4
15: 4.9 3.1 1.5 0.1 setosa 5
16: 4.9 3.0 1.4 0.2 setosa 6
17: 4.7 3.2 1.3 0.2 setosa 7
18: 4.6 3.4 1.4 0.3 setosa 8
19: 4.6 3.1 1.5 0.2 setosa 9
20: 4.4 2.9 1.4 0.2 setosa 10
我想要的是在列order的值為1和2的地方交換那些行（保持列order不變，但交換其余的列）。 因此，在上表中，第1行將與第2行交換，第11行將與第12行交換。
因此輸出將如下所示：
Sepal.Length Sepal.Width Petal.Length Petal.Width Species order
1: 5.1 3.5 1.4 0.2 setosa 1
2: 5.4 3.9 1.7 0.4 setosa 2
3: 5.0 3.6 1.4 0.2 setosa 3
4: 5.0 3.4 1.5 0.2 setosa 4
5: 4.9 3.1 1.5 0.1 setosa 5
6: 4.9 3.0 1.4 0.2 setosa 6
7: 4.7 3.2 1.3 0.2 setosa 7
8: 4.6 3.4 1.4 0.3 setosa 8
9: 4.6 3.1 1.5 0.2 setosa 9
10: 4.4 2.9 1.4 0.2 setosa 10
11: 5.1 3.5 1.4 0.2 setosa 1
12: 5.4 3.9 1.7 0.4 setosa 2
13: 5.0 3.6 1.4 0.2 setosa 3
14: 5.0 3.4 1.5 0.2 setosa 4
15: 4.9 3.1 1.5 0.1 setosa 5
16: 4.9 3.0 1.4 0.2 setosa 6
17: 4.7 3.2 1.3 0.2 setosa 7
18: 4.6 3.4 1.4 0.3 setosa 8
19: 4.6 3.1 1.5 0.2 setosa 9
20: 4.4 2.9 1.4 0.2 setosa 10
>
請注意，在上面的輸出中，原始表的第1行和第2行以及第11行和第12行已交換，並保持列order不變。 如何以最有效的方式做到這一點，即快速而又不運行任何循環？
1 個解決方案
解決方案1
1 2015-11-06 19:36:23
由於要交換數據，因此必須先創建副本，然后再進行交換。 在下面的代碼中，我創建了df1 data.frame （df的副本）。 我用它來獲取正確的行，然后再將它們插入原始df中。 我只選擇前五列以使df $ order保持不變。
df <-structure(list(Sepal.Length = c(5.4, 5.1, 5, 5, 4.9, 4.9, 4.7,
4.6, 4.6, 4.4, 5.4, 5.1, 5, 5, 4.9, 4.9, 4.7, 4.6, 4.6, 4.4),
Sepal.Width = c(3.9, 3.5, 3.6, 3.4, 3.1, 3, 3.2, 3.4, 3.1,
2.9, 3.9, 3.5, 3.6, 3.4, 3.1, 3, 3.2, 3.4, 3.1, 2.9), Petal.Length = c(1.7,
1.4, 1.4, 1.5, 1.5, 1.4, 1.3, 1.4, 1.5, 1.4, 1.7, 1.4, 1.4,
1.5, 1.5, 1.4, 1.3, 1.4, 1.5, 1.4), Petal.Width = c(0.4,
0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.2, 0.2, 0.4, 0.2, 0.2,
0.2, 0.1, 0.2, 0.2, 0.3, 0.2, 0.2), Species = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L), .Label = c("setosa", "versicolor", "virginica"
), class = "factor"), order = c(1L, 2L, 3L, 4L, 5L, 6L, 7L,
8L, 9L, 10L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L)), .Names = c("Sepal.Length",
"Sepal.Width", "Petal.Length", "Petal.Width", "Species", "order"
), row.names = c(NA, -20L), class = c("data.table", "data.frame"
))
df1 <-df
df[df$order==2,1:5] <-df1[df1$order==1,1:5]
df[df$order==1,1:5] <-df1[df1$order==2,1:5]
> df
Sepal.Length Sepal.Width Petal.Length Petal.Width Species order
1 5.1 3.5 1.4 0.2 setosa 1
2 5.4 3.9 1.7 0.4 setosa 2
3 5.0 3.6 1.4 0.2 setosa 3
4 5.0 3.4 1.5 0.2 setosa 4
5 4.9 3.1 1.5 0.1 setosa 5
6 4.9 3.0 1.4 0.2 setosa 6
7 4.7 3.2 1.3 0.2 setosa 7
8 4.6 3.4 1.4 0.3 setosa 8
9 4.6 3.1 1.5 0.2 setosa 9
10 4.4 2.9 1.4 0.2 setosa 10
11 5.1 3.5 1.4 0.2 setosa 1
12 5.4 3.9 1.7 0.4 setosa 2
13 5.0 3.6 1.4 0.2 setosa 3
14 5.0 3.4 1.5 0.2 setosa 4
15 4.9 3.1 1.5 0.1 setosa 5
16 4.9 3.0 1.4 0.2 setosa 6
17 4.7 3.2 1.3 0.2 setosa 7
18 4.6 3.4 1.4 0.3 setosa 8
19 4.6 3.1 1.5 0.2 setosa 9
20 4.4 2.9 1.4 0.2 setosa 10
使用循環函數根據R中的多個條件刪除數據框中的行
[英]Removing rows in a data frame based on multiple criteria in R with loop function
聲明:本站的技術帖子網頁，遵循CC BY-SA 4.0協議，如果您需要轉載，請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.