[英]How to reverse the order of dataframe in a pattern in R
我想以特定順序反轉以下數據幀。
Stage Score
W-3 25
W-3 2 Min 10 Sec
W-2 45
W-2 1 Min 34 Sec
W-1 75
W-1 1 Min 04 Sec
我想按以下順序反轉它。
Stage Score
W-1 75
W-1 1 Min 04 Sec
W-2 45
W-2 1 Min 34 Sec
W-3 25
W-3 2 Min 10 Sec
我正在使用df<- df[seq(dim(df)[1],1),]
但它沒有用。
我們可以使用具有以“階段”的unique
元素的rev
順序指定的levels
的factor
library(dplyr)
df2 <- df1 %>%
arrange(factor(as.character(Stage),
levels = rev(unique(as.character(Stage)))))
與“日期”列相同
df1 %>%
arrange(factor(as.character(Date),
levels = rev(unique(as.character(Date)))))
-輸出
# Stage Score Date
#1 W-1 1 Min 04 Sec 2020-12-15
#2 W-1 75 2020-12-14
#3 W-2 1 Min 34 Sec 2020-12-13
#4 W-2 45 2020-12-12
#5 W-3 2 Min 10 Sec 2020-12-11
#6 W-3 25 2020-12-10
或使用base R
df2 <- df1[order(factor(df1$Stage, levels = rev(unique(df1$Stage)))),]
df1 <- structure(list(Stage = c("W-3", "W-3", "W-2", "W-2", "W-1", "W-1"
), Score = c("25", "2 Min 10 Sec", "45", "1 Min 34 Sec", "75",
"1 Min 04 Sec"), Date = structure(18606:18611, class = "Date")),
row.names = c(NA,
-6L), class = "data.frame")
使用order
+ ave
的另一個基本 R 選項
df[with(df, order(Stage, ave(1:nrow(df), Stage, FUN = seq_along))), ]
這使
Stage Score
5 W-1 75
6 W-1 1 Min 04 Sec
3 W-2 45
4 W-2 1 Min 34 Sec
1 W-3 25
2 W-3 2 Min 10 Sec
數據
> dput(df)
structure(list(Stage = c("W-3", "W-3", "W-2", "W-2", "W-1", "W-1"
), Score = c("25", "2 Min 10 Sec", "45", "1 Min 34 Sec", "75",
"1 Min 04 Sec")), row.names = c(NA, -6L), class = "data.frame")
我們還可以使用mixedorder
中的gtools
。
df <- data.frame("Stage" = c('W-3', 'W-3', 'W-2',
'W-2', 'W-1', 'W-1'),
"Score" = c(25, '2 Min 10 Sec', 45,
'1 Min 34 Sec', 75, '1 Min 04 Sec' ))
library(gtools)
df[mixedorder(df$Stage, decreasing = T), ]
Stage Score
5 W-1 75
6 W-1 1 Min 04 Sec
3 W-2 45
4 W-2 1 Min 34 Sec
1 W-3 25
2 W-3 2 Min 10 Sec
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.