<R> lubridateによる日時変換でエラーが出る行だけ取り出したい(例：2020-02-30など）

Question

#R言語 lubridateの日時処理で困っています。

平素より大変お世話になっております。
R言語で、lubridateによって日時変換しているのですが、変換できないものは

df$date<- ymd(df$date)
を行うと
 警告メッセージ: 
 2 failed to parse. 

と出ます。例えば(2020-02-30)や(2020-06-31)とかです。
それぞれの日時はヒストグラムを書いて、
月は112日　日は131日までで確認はしているので、組み合わせ的に上記のようなものしかないと思っているのですが、
(2020-02-30)とか(2020-06-31)をどのように検出すればいいでしょうか。

また
警告メッセージ:
2 failed to parse. が出た際に、当該項目だけ修正したいのですが、どうすればいいか、調べてもわからず困っています。
お力添えをいただけないでしょうか。
よろしくお願い申し上げます。

Answer 1

いろいろな方法がありますが、とりあえずは最終目的に向かって手順を一つずつ考えればいいでしょう。
Rプログラミングの練習にもなりますし。

> # サンプル
> df<- data.frame(date = c('2020-02-28', '2020-02-29', '2020-02-30'))
> df
        date
1 2020-02-28
2 2020-02-29
3 2020-02-30

> # 不正な日付の検出
> df$check <- is.na(as.Date(df$date))
> df
        date check
1 2020-02-28 FALSE
2 2020-02-29 FALSE
3 2020-02-30  TRUE

> # 不正な日付を何らかの文字列に置き換える
> df$finish <- ifelse(df$check, '日付エラー', df$date)
> df
        date check     finish
1 2020-02-28 FALSE 2020-02-28
2 2020-02-29 FALSE 2020-02-29
3 2020-02-30  TRUE 日付エラー

その他、いっそのことNAを含む行を除外することも検討しましょう。
na.omit(df)

Comments

[mourinho384]

ありがとうございます。おっしゃるようにひとつひとつ積み重なることによって何とか思うようにできました。ありがとうございました！！！

[technocore]

解決してよかったです。
他の人に参考になるよう、あなたの書いたソースコードを紹介して下さい。