如果原始变量等于3，4，5和0，则我需要创建一个取值1的虚设。原始变量是一个从1重新缩放到7的索引。我已经尝试过这个代码：
mediaccivlib<-(作为数字(civlib==3,4,5(
但它给了我一个1的假人，对应3，而不是4和5。
%in%运算符检查在这种情况下，civlib中的每个数字是否可以在第二个数字向量-c(3，4，5(中找到。将其封装在as.numeric()中可以根据需要将输出从逻辑(True或False(转换为数字输出。
civlib <- c(1, 2, 3, 4, 5, 6, 7, 3, 4, 5, 2, 3, 4)
as.numeric(civlib %in% c(3, 4, 5))