R语言16-符合逻辑/自定义函数/循环/条件语句

• 符合逻辑 ifelse

mobile_checkin <- NA
pf$mobile_checkin <- ifelse(pf$mobile_likes>0,1,0)
pf$mobile_checkin <- factor(pf$mobile_checkin)
summary(pf$mobile_checkin)

• 自定义函数 function

函数名 = function(输入1, ..., 输入n) {
  函数体
  return(返回值)}

eg：

bar_plot <- function(varname, binwidth) {
  return(ggplot(aes_string(x = varname), data = data) + geom_histogram(binwidth = binwidth))
}


bar_plot('InquiriesLast6Months',1)+
  coord_cartesian(xlim=c(0,quantile(data$InquiriesLast6Months,probs = 0.95,
                                    "na.rm" = TRUE)))

• 循环语句 for/条件语句if

for (var in seq) {expr}

其中var表示循环变量，seq为向量，expr为执行的语句。

一个分支

if(条件) {
  执行体
}

两个分支

if(条件) {
  执行体1} else {
  执行体2}

更多分支

if(条件1) {
  执行体1
} else if(条件2) {
  执行体2
} else {
  执行体n
}

eg：

temp <- pf[c("CreditGrade","ProsperRating..Alpha.")]

for (i in 1:nrow(temp)){
  if (temp[i,1] == ""){
    temp$new[i] <- temp[i,2]
  }else{
    temp$new[i] <- temp[i,1]
  }
}

文章推荐：https://zhuanlan.zhihu.com/p/86975887