パイプ演算子 %>% - 統計学備忘録

下記のデータをdatに格納します（ファイルの読み込み方）

使用するパッケージ

library(tidyverse)

パッケージdplyrでも使えます

6行目まで表示、3行目まで表示、3行目のFIM差のみ表示

dat %>% 
    head() %>% 
    print() %>%
    head(3) %>%
    print() %>%
    select(FIM差)

FIM差を２グループに分けます（20以下＝1）

２グループの平均と標準偏差を算出 (group_byとsummariseはセットで使いましょう)

dat %>%
    mutate(
        FIM差2値 = ifelse(FIM差<=20, 1, 0),
        FIM差2値 = as_factor(FIM差2値)) %>%
    group_by(FIM差2値) %>%
    summarise(平均 = mean(年齢), 不偏標準偏差 =sd(年齢))

$%>%$ 他に便利な使い方があれば随時更新します

コメント欄 『間違い』や『分かりにくい部分』などのご意見もお寄せください

コメント欄『間違い』や『分かりにくい部分』などのご意見もお寄せください