日次データから月末データだけ取得したい。

Question

下記のような日次データから月末データだけ抽出したいのですが、どうしたらよいでしょうか？

mkw[1:20,1:3]

       Ajinomoto.Co...Inc. ANA.Holdings.Inc. Alps.Electric.Co...Ltd.

2001-12-28 0.004878955 0.002738446 0.0009432550
2001-12-31 0.004878955 0.002738446 0.0009432550
2002-01-01 0.004878955 0.002738446 0.0009432550
2002-01-02 0.004878955 0.002738446 0.0009432550
2002-01-03 0.004878955 0.002738446 0.0009432550
2002-01-04 0.004670500 0.002665171 0.0009438024
2002-01-07 0.004683050 0.002705541 0.0009796808
2002-01-08 0.004754818 0.002742026 0.0010226579
2002-01-09 0.004561466 0.002769419 0.0010857615
2002-01-10 0.004537064 0.002815409 0.0011507552
2002-01-11 0.004639621 0.002805779 0.0011293320
2002-01-14 0.004639621 0.002805779 0.0011293320
2002-01-15 0.004768838 0.002914184 0.0011317934
2002-01-16 0.004761644 0.002869531 0.0011121375
2002-01-17 0.004757901 0.002914818 0.0010876459
2002-01-18 0.004685725 0.002888376 0.0011052630
2002-01-21 0.004750487 0.002943190 0.0011586207
2002-01-22 0.004789673 0.002952862 0.0011658526
2002-01-23 0.004769691 0.002942204 0.0012441655
2002-01-24 0.004677945 0.002910274 0.0012150992

Answer 1

月末かどうかを判定する関数を作りsubsetを取ればいいでしょうね。

次の様なデータフレームdf1が定義されているとします。

       V1          V2          V3           V4  
1 2001-12-28 0.004878955 0.002738446 0.0009432550
2 2001-12-31 0.004878955 0.002738446 0.0009432550
3 2002-01-01 0.004878955 0.002738446 0.0009432550

「対象の日付とその一つ後の日付の年月が異なる。⇒対象の日付は月末である。」
と考えると次のような形でいけるのではないでしょうか。

is.tsukizue <- function(d1, d2){
  s1 <- strftime(d1, "%y-%m")
  s2 <- strftime(d2, "%y-%m")
  return(s1!=s2)
}

# 行単位で処理を完結させるため 「次の行の日付」を新しい桁にコピー。 
df1[,"nextd"] <- c(df[2:nrow(df1),"V1"], "9999-12-31")

# 月末データの抽出 
df1[is.tsukizue(df1$V1, df1$nextd),]

Answer 2

こんな感じでどうでしょうか？

翌日が違う月になる日を抽出してます

N <- 365
date <- seq(as.Date("2017/1/1"), by = "day", length.out = N)
d0 <- c(1:N)
df <- data.frame(date, d0)

df[months(df$date + 1) != months(df$date),]