Создание новой переменной на основе порядков существующих переменных с использованием R

Надеясь создать новую переменную X на основе трех существующих переменных: «SubID», «День» и «Время». Раньше у меня было три функции сортировки в Excel, чтобы делать это вручную: сначала сортировать по «SubID», затем сортировать по «Дню» и, наконец, сортировать по «Времени». X должен быть от 1 до наибольшего количества строк для каждого SubID в зависимости от дня и времени.

SubID: назначенный номер субъекта

День: номер дня каждого субъекта (1,2,3...21)

Время: 1, 2, 3

X: количество строк, помеченных как один и тот же SubID

SubID Day  Time   X    
 1    1     1     1
 1    1     2     2
 1    1     3     3
 1    2     1     4
 1    2     2     5
 2    1     1     1
 2    1     2     2
 2    1     3     3
 2    2     3     6
 2    2     2     5
 2    2     1     4

Я делал это вручную в Excel, и я уверен, что должен быть более разумный способ сделать это в R, но я новичок в R и не знаю, как это сделать. Заранее спасибо!


r variables time-series
person Susan    schedule 16.03.2019    source источник

Ответы (2)


arrow_upward
1
arrow_downward

Может быть с пакетом data.table. Вам придется установить его, если вы еще этого не сделали. Я прокомментировал команду.

# install.packages("data.table")
library(data.table)

мы можем сгенерировать ваши данные следующим образом.

df <- data.frame(SubId=sample(1:2,10,replace=TRUE),
                 Day=sample(1:2,10,replace=TRUE),
                     Time=sample(1:2,10,replace=TRUE))

Затем преобразуйте data.frame в data.table.

setDT(df)
##> df
##     SubId Day Time
##  1:     1   2    1
##  2:     1   1    1
##  3:     1   1    2
##  4:     2   2    1
##  5:     2   1    1
##  6:     1   2    2
##  7:     1   2    1
##  8:     1   2    2
##  9:     2   1    1
## 10:     2   1    2

Наконец мы можем заказать мой SubId, день, время. Поскольку таблица упорядочена так, как мы хотели, нам просто нужно пронумеровать строки от 1 до количества наблюдений в каждом SubId.

df[order(SubId,Day,Time),X:=1:.N,SubId]


##> df
##    SubId Day Time X
## 1:     1   2    1 3
## 2:     1   1    1 1
## 3:     1   1    2 2
## 4:     2   2    1 4
## 5:     2   1    1 1
## 6:     1   2    2 5
## 7:     1   2    1 4
## 8:     1   2    2 6
## 9:     2   1    1 2
## 10:    2   1    2 3
person DJJ    schedule 16.03.2019
comment
Большое спасибо за подробные разъяснения! Они очень полезны! - person Susan; 17.03.2019

arrow_upward
1
arrow_downward

Может это поможет

library(dplyr)
df1 %>% 
  group_by(SubID) %>% 
  mutate(X1 = row_number(as.numeric(paste0(Day, Time))))
# A tibble: 11 x 5
# Groups:   SubID [2]
#   SubID   Day  Time     X    X1
#   <int> <int> <int> <int> <int>
# 1     1     1     1     1     1
# 2     1     1     2     2     2
# 3     1     1     3     3     3
# 4     1     2     1     4     4
# 5     1     2     2     5     5
# 6     2     1     1     1     1
# 7     2     1     2     2     2
# 8     2     1     3     3     3
# 9     2     2     3     6     6
#10     2     2     2     5     5
#11     2     2     1     4     4

Или используя order

df1 %>% 
  group_by(SubID) %>% 
  mutate(X1 = order(Day, Time))

Или с data.table

library(data.table)
setDT(df1)[, X1 := order(Day, Time), by = SubID]

данные

df1 <- structure(list(SubID = c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 
2L, 2L), Day = c(1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L), 
Time = c(1L, 2L, 3L, 1L, 2L, 1L, 2L, 3L, 3L, 2L, 1L), X = c(1L, 
2L, 3L, 4L, 5L, 1L, 2L, 3L, 6L, 5L, 4L)), class = "data.frame", 
 row.names = c(NA, 
   -11L))
person akrun    schedule 16.03.2019
comment
Коды заработали, но когда я пошел проверить новую переменную X1, R сказал, что она равна нулю. Это означает, что я еще не воссоздал переменную? Извините за этот глупый вопрос, я новичок в R. Я использовал следующие коды: data2 %›% group_by(SubID) %›% mutate(X1 = order(Day, Time)) data2$X1 - person Susan; 16.03.2019
comment
@Susan Вам нужно присвоить его данным, т.е. data2 <- data2 %>% group_by(SubID) %>% mutate(X1 = order(Day, Time)) - person akrun; 16.03.2019