R R カテゴリー値の変換 if_else case_when
iris%>%mutate(LongSepal=if_else(Sepal.Length>=7,TRUE,FALSE))LongSepalという変数を作って、>＝７なら１を返す？iris%>%mutate(SLCategory=case_w...
R
R R sliceを使用したデータの切り出し
ある変数の上位X位、最初のX例だけを抽出するiris%>%slice_max(Sepal.Length,n=5)iris%>%arrange(Petal.Length)%>%slice_head(n=5)group_by()と併用iris%...
R データの並べ替え arrange
指定された変数を昇順で並び替える。降順にしたいときは変数にdesc()を付けるiris%>%arrange(Sepal.Length)iris%>%arrange(desc(Petal.Width))iris%>%arrange(Speci...
R 患者IDの重複を削除してデータフレーム作成
df<-df2_covid19hp_2_age_ex%>%+group_by(患者ID)%>% 患者IDでグループ化+slice_head(n=1)%>% 行の１行目を取り出す+ungroup() グループ化を解除するそうする...
R 複数回入院している人の抽出 R
df2_covid19hp%>%+count(患者ID)%>%+filter(n>=2)これで患者IDのリストが表示される
R ユニークな患者数を数える R
>n_1<-df2_covid%>%+select(患者ID)%>%+unique()%>%+nrow>n_1[1]523
R 日にちに変換する R
>df6<-df6%>%+mutate(入院日=lubridate::ymd(入院日))%>%+mutate(退院日=lubridate::ymd(退院日))%>%+mutate(入院期間=退院日-入院日+1)
R ID順に並び替える R
df1%>%arrange(患者ID)#Atibble:10,770x7施設番号患者ID性別生年身長体重年齢<dbl><dbl><dbl><dbl><dbl><dbl><dbl>11311993NANA2721511979173.72.54...
R filterで絞る R
df2_covid<-df2%>%+filter((ICD10コード=="8342"|ICD10コード=="U071")&主病名フラグ==1&疑いフラグ==0)
R 2つ以上あるか数える R
>df2_covid%>%+count(患者ID)%>%+filter(n>=2)#Atibble:23x2患者IDn<dbl><int>110612210992362892464412571193687562711217281158829...