R：どのように時間に基づいてカウント数を見つけ、日付

Question

私が達成しようとしている目標は、週の特定の日のために発生するどのように多くのイベントをカウントすることで、時間

サンプルデータ：

Date   Time 
2007-07-20 11:00:00 
2007-01-05 06:15:00 
2007-12-11 23:55:00 
2007-12-11 23:55:00 

出力

へ：

Day Hour  Count 
Friday 11:00 AM  1 
Friday 6:00 AM  1 
Friday 11:00 PM  2 

すべてのヘルプは大歓迎です！

ありがとうございました！

Answer 1

ベースRは、あまりにもこれにうまく対処：

datだった

aggregate(
    count ~ wkday + hour, 
    data=transform(dat, 
       wkday=format(as.Date(Date), "%A"), 
       hour=format(as.POSIXct(Time,format="%H:%M:%S"), "%I %p"), 
       count=1), 
    FUN=sum 
) 
# wkday hour count 
#1 Friday 06 AM  1 
#2 Friday 11 AM  1 
#3 Tuesday 11 PM  2 

：

dat <- structure(list(Date = c("2007-07-20", "2007-01-05", "2007-12-11", 
"2007-12-11"), Time = c("11:00:00", "06:15:00", "23:55:00", "23:55:00" 
)), .Names = c("Date", "Time"), row.names = c(NA, -4L), class = "data.frame") 

Answer 2

私は、chronとlubridateパッケージの混合物を使用して、日付、時刻、および日付時刻を処理するのが好きです。曜日によってグループ化をし、一日の時間のことができます、そして、

> df_foo 
# A tibble: 275 x 2 
     date  times 
     <date> <S3: times> 
1 2016-01-01 10:26:24 
2 2016-01-02 21:47:00 
3 2016-01-03 15:22:06 
4 2016-01-04 19:47:55 
5 2016-01-05 08:51:37 
6 2016-01-06 14:27:47 
7 2016-01-07 17:55:59 
8 2016-01-08 07:45:36 
9 2016-01-09 16:52:56 
10 2016-01-10 07:11:58 
# ... with 265 more rows 

：

次のようになります

library(dplyr) 
library(chron) 
library(lubridate) 

df_foo = data_frame(
    date = seq.Date(from = as.Date("2016-01-01"), to = as.Date("2016-10-01"), by = "day"), 
    times = chron::times(runif(n = 275, min = 0, max = 1)) 
) 

：ここ

は、いくつかのサンプルデータであり、

df_foo %>% 
    group_by(
    `Day of Week` = lubridate::wday(date), 
    `Hour of Day` = chron::hours(times) 
) %>% 
    tally() 

この結果、

> df_foo %>% 
+ group_by(
+  `Day of Week` = lubridate::wday(date), 
+  `Hour of Day` = chron::hours(times) 
+ ) %>% 
+ tally() 
Source: local data frame [137 x 3] 
Groups: Day of Week [?] 

    Day of Week Hour of Day  n 
     <dbl>  <dbl> <int> 
1   1   0  4 
2   1   1  2 
3   1   4  3 
4   1   5  5 
5   1   6  1 
6   1   7  3 
7   1   8  2 
8   1   10  2 
9   1   11  3 
10   1   14  1 
# ... with 127 more rows 

Answer 3

これも動作します。ここで、dfは最初のデータフレームです。

df$Date <- as.Date(df$Date) 
library(lubridate) 
aggregate(Count~Day+Hour, data=data.frame(Day=wday(df$Date, label = TRUE, abbr = FALSE), 
       Hour=format(strptime(df$Time, format='%H:%M:%S'), '%I:00 %p'),Count=1), 
       FUN='length') 

    Day Hour  Count 
1 Friday 06:00 AM  1 
2 Friday 11:00 AM  1 
3 Tuesday 11:00 PM  2 

Answer 4

これは私が思うのはちょっとした機能と機能の数です。ここでの説明は次のとおりです。http://dplyr.tidyverse.org/reference/tally.html

library(tidyverse) 

dat %>% group_by(Date, Time) %>% count() 

# A tibble: 3 x 3 
# Groups: Date, Time [3] 
     Date  Time  n 
     <chr> <chr> <int> 
1 2007-01-05 06:15:00  1 
2 2007-07-20 11:00:00  1 
3 2007-12-11 23:55:00  2 

：

dat <- structure(list(Date = c("2007-07-20", "2007-01-05", "2007-12- 
11", 
"2007-12-11"), Time = c("11:00:00", "06:15:00", "23:55:00", "23:55:00" 
)), .Names = c("Date", "Time"), row.names = c(NA, -4L), class = 
"data.frame")