Как изменить порядок фрейма данных в шаблоне в 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),], но это не сработало.

r dataframe dplyr data.table

10.12.2020 21:17

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

125

Перейти к ответу Данный вопрос помечен как решенный

Ответы 3

Мы можем использовать factor с levels указанным в revпорядке unique элементов 'Stage'

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")

то же самое не работает в формате даты (гггг-мм-дд).

— 10.12.2020 21:26

@SophiaWilson, можешь завернуть это as.character. как обновленный пост

— 10.12.2020 21:28

Не повезло с датой.

— 10.12.2020 21:30

@SophiaWilson я обновил пост. Теперь он работает как с датой, так и с буквенно-цифровым

— 10.12.2020 21:30

10.12.2020 21:20

Мы также можем использовать 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

10.12.2020 22:00

Ответ принят как подходящий

Другой базовый вариант R с использованием order + ave

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")

10.12.2020 22:05