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( 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