有时，我们需要将0值和非0值转化成逻辑值的F或者T，来判断这件事发生与否。比如说我们想知道用户是否做过这件事，而不是做这件事的次数

pf <- read.csv("pseudo_facebook.tsv",sep = '\t’)

##先看这个字段的变量「mobile_likes」>0部分的分布情况

summary(pf$mobile_likes >0)

#可知大于0部分有63947个

##创建一个新字段mobile_check_in，用来填充结果

pf$mobile_check_in<-NA

##大于0的填充1，小于0的填充0

pf$mobile_check_in <- ifelse(pf$mobile_likes > 0, 1, 0)

##将数值转化成逻辑值

pf$mobile_check_in<-factor(pf$mobile_check_in)

summary(pf$mobile_check_in)