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