トップ 履歴 一覧 Farm ソース 検索 ヘルプ PDF RSS ログイン

case_when

*disclaimer
705880

R

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
        )
        )