R 다른 컬럼을 사용하여 새 컬럼에 값을 할당하십시오.

Question

컬럼에있는 세 가지 가능한 값 중 하나를 기반으로 새로운 컬럼을 작성해야합니다.

If it has c somewhere in it, the new column should be assigned "third" 
If it has b, but not c somewhere in it, the new column should be assigned "second" 
If it has a but not b or c somewhere in it, the new column should be assigned "first" 

여기 이것은 내가 myLetters $ letterStatus에 대한 샘플 데이터를 기반으로 각 행에 대해 원하는 데이터를 내 샘플 코드

x <- c('a,b,c', 'a', 'a,b') 

myLetters <- data.frame(x) 

setnames(myLetters, "theLetter") 

sapply(myLetters$, theLetter, function(x) 
if ('c' %in% myLetters$theLetter) { 
    myLetters$letterStatus <- "third" 
} else if ('b' %in% myLetters$theLetter) { 
    myLetters$letterStatus <- "second" 
} else if ('a' %in% myLetters$theLetter) { 
    myLetters$letterStatus <- "first" 
} 
) 

입니다 :

이

은 규칙입니다

Row 1: third 
Row 2: first 
Row 3: second 

현재 "첫 번째" "첫 번째" "첫 번째"가 표시되지만 이유를 이해할 수 없습니다.

내가 이것을 해결할 수있는 이유와 왜 각 행에 대해 첫 번째 이유가 있는지 알고 계십니까?

감사 결과를 얻기 위해 vectorisation (우리에게 R의 선물)를 사용하여

Answer 1

는 :

x <- c('a,b,c', 'a', 'a,b') 
myLetters <- data.frame(x) 
# myLetters 
# x 
# 1 a,b,c 
# 2  a 
# 3 a,b 

myLetters$x1 = ifelse(grepl("c",myLetters$x), "third", ifelse(grepl("b",myLetters$x),"second", "first"))