特定の日付を指定する[R]

Question

日付がいっぱいの巨大なデータフレームを取得しました。このように：

Date 
2014-01-02 
2014-01-02 
2014-01-02 
2014-01-03 
2014-01-03 
2014-02-01 
2014-02-01 
2014-02-02 
2014-02-02 

私は月に登場した日数を含む、余分な列を構築したいが（！データは、複数年のデータが含まれているので、より多くのそして1 Januaries、二月などがあります）。ちょうどこのように：

Date   Count 
2014-01-02  5 
2014-01-02  5 
2014-01-02  5 
2014-01-03  5 
2014-01-03  5 
2014-02-01  4 
2014-02-01  4 
2014-02-02  4 
2014-02-02  4 

私の解決策は悪いです。私はフィルタオプション（dplyrから）を使用して特定の月をフィルタリングし、それらを数えました。しかし、それは時間がかかり、自動的にこれを実行したいので、私はより持続可能なソリューションを探しています。

Answer 1

を使用しているので：

d <- read.table(header=TRUE, stringsAsFactors = FALSE, text= 
"Date 
2014-01-02 
2014-01-02 
2014-01-02 
2014-01-03 
2014-01-03 
2014-02-01 
2014-02-01 
2014-02-02 
2014-02-02") 

d$count <- ave(!is.na(d$Date), substr(d$Date, 1,7), FUN=sum) 
d 

substr(d$Date, 1,7)はd$Date内の文字列から最初の7つの文字（すなわち部分とを抽出し、年月、例：2014-01）。結果はここave()

にグループ化するために使用されているdata.tableとソリューションです：

library("data.table") 
D <- fread(
"Date 
2014-01-02 
2014-01-02 
2014-01-02 
2014-01-03 
2014-01-03 
2014-02-01 
2014-02-01 
2014-02-02 
2014-02-02") 

D[, count:=.N, substr(Date, 1, 7)] 
D 

Answer 2

あなたはすでにあなたがベースRで行うことができますdplyr ...

df <- read.table(text = "Date 
2014-01-02 
       2014-01-02 
       2014-01-02 
       2014-01-03 
       2014-01-03 
       2014-02-01 
       2014-02-01 
       2014-02-02 
       2014-02-02", header = T) 
df 

library(dplyr) 
df %>% 
    group_by(ym = format(as.Date(Date, "%Y-%m-%d"), "%Y-%m")) %>% 
    mutate(Count = n()) %>% 
    ungroup() %>% 
    select(-ym) 

Answer 3

あなたがカウントするように私には、アカウントに毎月の年を取るために、あなたの投稿の例を変更しましたそれらは、個別に（あなたのコメントで指定された）：あなたがPOSIXlt形式であなたの日付を持っている場合は

df = read.table(text = " 
Date 
2014-01-02 
2014-01-02 
2014-01-02 
2014-01-03 
2015-01-03 
2014-02-01 
2014-02-01 
2014-02-02 
2015-02-02", 
header=T) 

library(lubridate) 
library(dplyr) 

df %>% 
    mutate(Date = ymd(Date)) %>%  # update to a datetime variable (if needed) 
    group_by(Month = month(Date), # for each month and year 
      Year = year(Date)) %>% 
    mutate(N = n()) %>%    # count number of rows/appearances 
    ungroup() %>%     # forget the grouping 
    select(-Month, -Year)   # remove help variables 

# # A tibble: 9 x 2 
#   Date  N 
#  <date> <int> 
# 1 2014-01-02  4 
# 2 2014-01-02  4 
# 3 2014-01-02  4 
# 4 2014-01-03  4 
# 5 2015-01-03  1 
# 6 2014-02-01  3 
# 7 2014-02-01  3 
# 8 2014-02-02  3 
# 9 2015-02-02  1 

Answer 4

、月が組み込まれていて、あなただけの参照にテーブルを作ることができます。

Date = as.POSIXlt(c('2014-01-02', 
'2014-01-02', 
'2014-01-02', 
'2014-01-03', 
'2014-01-03', 
'2014-02-01', 
'2014-02-01', 
'2014-02-02', 
'2014-02-02')) 

table(Date$mon)[as.character(Date$mon)] 
0 0 0 0 0 1 1 1 1 
5 5 5 5 5 4 4 4 4 

0/1行は単に列名です。 POSIXでは1月が0月、2月が1月など