дневная таблица непредвиденных обстоятельств в R с использованием table () - PullRequest
Новая
       2

дневная таблица непредвиденных обстоятельств в R с использованием table ()

0 голосов
/ 29 мая 2020

У меня есть таблица данных с отметкой времени, температурой и столбцами состояния. Я пытаюсь найти таблицу непредвиденных обстоятельств в R, используя некоторые частотные диапазоны. Теперь я понимаю. У меня есть столбец для отметки времени в моих данных. Мне нужно получить дневную таблицу непредвиденных обстоятельств. 

result = as.data.frame(table(cut(df$temp,breaks=c(0,30,60,80,100,1000),labels=c("0-30","30-60","60-80","80-100","100>"))))

Вывод: 

Var1    Freq
0-30    1398
30-60   1051
60-80   1006
80-100  36
100>    2

Ожидаемый результат: 

Date             Var1    Freq
05-01-2020      0-30    1398
05-01-2020      30-60   1051
05-01-2020      60-80   1006
05-01-2020      80-100  36
05-01-2020      100>    2
06-01-2020      0-30    1398
06-01-2020      30-60   1051
06-01-2020      60-80   1006
06-01-2020      80-100  36
06-01-2020      100>    2

Кроме того, у меня есть столбец состояния с 1 и 0 в качестве значений. Как добавить это также вместе с датой в вывод.

1 Ответ

0 голосов
/ 29 мая 2020

Желаемый результат с некоторыми датами создания: 

library(lubridate)

df <- read_table2("Var1    Freq
0-30    1398
30-60   1051
60-80   1006
80-100  36
100>    2")

date <- data.frame(Date=seq(dmy("05-01-2020"), length=2, by="1 day"))

df <- merge(df, date, all=TRUE)
df
# > df
#      Var1 Freq       Days
# 1    0-30 1398 2020-01-05
# 2   30-60 1051 2020-01-05
# 3   60-80 1006 2020-01-05
# 4  80-100   36 2020-01-05
# 5    100>    2 2020-01-05
# 6    0-30 1398 2020-01-06
# 7   30-60 1051 2020-01-06
# 8   60-80 1006 2020-01-06
# 9  80-100   36 2020-01-06
# 10   100>    2 2020-01-06
...