有时，我们需要将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)
