R
!!! ifelse
 ifelse(条件, 合っている場合, 合ってない場合)
{{pre
gakunen2$case <- ifelse(gakunen2$Topic == "WFM", -1, ifelse(gakunen2$Topic == "WIM", -0.5, ifelse(gakunen2$Topic == "WMG", 0.5, 1)))

str(gakunen2)
}}

{{pre
xtabs(~ case + Topic, gakunen2)

      Topic
case   WFM WIM WMG WPL
  -1   149   0   0   0
  -0.5   0 150   0   0
  0.5    0   0 150   0
  1      0   0   0 149
}}



{{pre
ipsynW.score.nona.gakunen2$FM <- ifelse(ipsynW.score.nona.gakunen2$Topic == "WFM", 1,0)
ipsynW.score.nona.gakunen2$IM <- ifelse(ipsynW.score.nona.gakunen2$Topic == "WIM", 1,0)
ipsynW.score.nona.gakunen2$MG <- ifelse(ipsynW.score.nona.gakunen2$Topic == "WMG", 1,0)
ipsynW.score.nona.gakunen2$PL <- ifelse(ipsynW.score.nona.gakunen2$Topic == "WPL", 1,0)

}}