将哪个（）转换为逻辑向量

我想创建一个0和1的向量，这样y中所有4中的元素都变为1，所有其他值都变为0. which(y == 4)返回y中的索引值为4，然后y[which(y == 1)]返回所有4的矢量。我会如何产生一个1的矢量，他们是4和0的数据呢？将哪个（）转换为逻辑向量

x <- y[which(y == 4)]

2016-01-23 Apollo

使用逻辑强制：

as.integer(y==4)

较短的版本：

+(y==4)

2016-01-23 19:54:31

回答