在以下选择集数据中是否有任何R函数或脚本来交换选择值？

Question

数据集：mode = c（出租车，出租车，出租车，出租车），选择= c（1、0、0、0），主模式= c（BS，汽车，活动，TX）

这里观察到的实际旅行是来自列名“ mode”的出租车。然后，我需要根据“主模式”列信息（其中BS = BUS，car = car，active = walk，TX = taxi）更改为第1行的“ chioce”列0和第4行的1中的值。

Answer 1

modelookup=data.frame(mode=c("bus","car","walk","taxi"),main=c("BS","car","active","TX"))
df$lookup = modelookup$mode[match(df$mainmode, modelookup$main)]
df$choice = as.numeric(df$mode==df$lookup)