*disclaimer
656696
case_when()
- 条件分け
例； DataSetのカラムが1で始まり、かつ、kakenIDのカラムが19で始まる場合、Gakunenに3を入れる。
- mutate(新しいカラム名 = 新しく入れるもの)
- case_when(条件 ~ 代入されるもの
- str_starats(カラム名, "始まりの文字列")
longi.dat2 <- longi.dat %>%
dplyr::mutate( Gakunen = dplyr::case_when(
str_starts(DataSet, "1") & str_starts(kakenID, "19") ~ 3,
str_starts(DataSet, "1") & str_starts(kakenID, "20") ~ 2,
str_starts(DataSet, "1") & str_starts(kakenID, "21") ~ 1,
str_starts(DataSet, "2") & str_starts(kakenID, "20") ~ 3,
str_starts(DataSet, "2") & str_starts(kakenID, "21") ~ 2,
str_starts(DataSet, "2") & str_starts(kakenID, "22") ~ 1,
str_starts(DataSet, "3") & str_starts(kakenID, "21") ~ 3,
str_starts(DataSet, "3") & str_starts(kakenID, "22") ~ 2,
str_starts(DataSet, "3") & str_starts(kakenID, "23") ~ 1
)
)
https://sugiura-ken.org/wiki/