Q&A
ありがとうございます、文字列の切り出しと置換でうまくできそうです。アドバイス本当にありがとうございました
前提・実現したいこと
現在、Rのデータテーブルで時系列データを扱おうと思っているのですが、
20200820のようにyyyymmddの形で記載あるものもあれば、
202008 のように月までの形や
2020 で年しか書いていないものも混在しています。
ひとまず月日がわからないものはそれぞれの最初の月日で補正したいのですが、わからずに困っています。
(202008 >20200801 / 2020 >20200101)
のような補正です。
df <- data.frame(ID = as.factor(1:8),
method = as.factor(c("A","B","B", "A","A","A","A","A")),
critelia = c(1,0,0,1,NA,1,1,1),
date=c("19411222", "193002", "1944","20200820","20200811","202008","2020","NA"))%>%as.tibble
R
試したこと
lubridateを用いて行うのか、case whenで桁数(nchar())で条件分岐をするのがいいのか色々試行錯誤したのですが、わからずに困っています。
恐れ入りますが、どなたかご教示いただけないでしょうか。
回答3件
0
ベストアンサー
ifelse()を使うのが一番手っ取り早いでしょう。
a <- c("2020", "202008", "20200802", "222") b <- ifelse(nchar(a)==8, a, ifelse(nchar(a)==6, paste0(a,"01"), ifelse(nchar(a)==4, paste0(a,"0101"), NA)))
> print(b) [1] "20200101" "20200801" "20200802" NA
投稿2020/08/19 19:16
総合スコア13671
0
正規表現で置換してみてはいかがでしょう。
R
1date <- c("19411222", "193002", "1944", "20200820", "20200811", "202008", "2020") 2 3# 6文字の数字の後ろに01をつける 4date <- c(gsub("(^\d{6}$)", "\101", date)) 5 6# 4文字の数字の後ろに0101をつける 7date <- c(gsub("(^\d{4}$)", "\10101", date))
> date [1] "19411222" "19300201" "19440101" "20200820" "20200811" "20200801" "20200101"
投稿2020/08/19 14:50
総合スコア7247
0
文字列の文字数が８文字なら年月日
６文字なら年月
４文字なら年、
とするなら、
文字列の最初から４文字２文字２文字で分解していけばいいだけのはなしですね
投稿2020/08/19 13:22
総合スコア87800
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/08/19 20:35