R
!!!case_when()
* 条件分け

!例； DataSetのカラムが1で始まり、かつ、kakenIDのカラムが19で始まる場合、Gakunenに3を入れる。
*str_starats(カラム名, "始まりの文字列")
*チルダの右側が、代入されるもの

{{pre
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
        )
        ) 
}}