цикл для создания фиктивных переменных R - PullRequest
Новая
       18

цикл для создания фиктивных переменных R

0 голосов
/ 10 января 2019

Я хочу создать фрейм данных с фиктивной переменной, которая показывает 1, когда время инцидента находится в диапазоне времени (часы). Вот что я сделал: 

library(chron)
library(stringr)

var <- c("A", "B", "C", "D", "E", "F")
times <- c("22:40:20", "10:36:29", "09:23:27", "12:33:27", "12:22:22", "00:17:44")

df <- data.frame(var, times)
hours <- print(paste(stringr::str_pad(c(0:23), 2, side="left", pad=0),
                     "00", "00", sep=":"))

hours <- chron(times=hours)
df$times <- chron(times=df$times)

df$zero <- 0
df$zero[df$times>=hours[1] & df$times<hours[2]] <- 1
df$one <- 0
df$one[(df$times>=hours[2] & df$times<hours[3])] <- 1

и т. Д. И вскоре до: 

df$twentytree <- 0
df$twentytree[(df$times>=hours[24] ] <- 1

  var    times zero one
1   A 22:40:20    0   0
2   B 10:36:29    0   0
3   C 09:23:27    1   0 # in column zero is one because the time event is between 00:00:00 and 01:00:00
4   D 12:33:27    0   0
5   E 12:22:22    0   0
6   F 00:17:44    1   0

но я вполне уверен, что это должен быть какой-то другой автоматизированный способ Идеи?

Спасибо за продвинутый.

p.d: я пробовал таким образом, но я не могу этого достичь. 

df <- cbind(df, sapply(hours, function(x) as.integer(c4$times >=x & c4$times<x) ) )

Ответы [ 2 ]

0 голосов
/ 10 января 2019

В конце мне даже не нужно конвертировать в даты. Я так понимаю: 

library(stringr)

var <- c("A", "B", "C", "D", "E", "F")
times <- c("22:40:20", "10:36:29", "09:23:27", "12:33:27", "12:22:22", "00:17:44")

df <- data.frame(var, times)

hours <- stringr::str_pad(c(0:23), 2, side="left", pad=0)
df$hour <- substr(df$times,1,2)

df <- cbind(df, sapply(hours, function(x) as.integer(df$hour==x) ) )

и результат: 

 var    times hour 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21
1   A 22:40:20   22  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
2   B 10:36:29   10  0  0  0  0  0  0  0  0  0  0  1  0  0  0  0  0  0  0  0  0  0  0
3   C 09:23:27   09  0  0  0  0  0  0  0  0  0  1  0  0  0  0  0  0  0  0  0  0  0  0
4   D 12:33:27   12  0  0  0  0  0  0  0  0  0  0  0  0  1  0  0  0  0  0  0  0  0  0
5   E 12:22:22   12  0  0  0  0  0  0  0  0  0  0  0  0  1  0  0  0  0  0  0  0  0  0
6   F 00:17:44   00  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
0 голосов
/ 10 января 2019

Я считаю, что это решение с использованием lubridate и model.matrix. Вы захотите переименовать столбцы. 

> library(lubridate)
> 
> var <- c("A", "B", "C", "D", "E", "F")
> times <- c("22:40:20", "10:36:29", "09:23:27", "12:33:27", "12:22:22", "00:17:44")
> 
> df <- data.frame(var, times)
> 
> df$times <- hms(df$times)
> df$hour <- hour(df$times)
> indicators <- model.matrix(~ -1 + factor(df$hour))
> df <- cbind(df, indicators)
> df
  var       times hour factor(df$hour)0 factor(df$hour)9 factor(df$hour)10 factor(df$hour)12 factor(df$hour)22
1   A 22H 40M 20S   22                0                0                 0                 0                 1
2   B 10H 36M 29S   10                0                0                 1                 0                 0
3   C  9H 23M 27S    9                0                1                 0                 0                 0
4   D 12H 33M 27S   12                0                0                 0                 1                 0
5   E 12H 22M 22S   12                0                0                 0                 1                 0
6   F     17M 44S    0                1                0                 0                 0                 0
...