R :: 새 열로 행에서 변수의 첫 번째 발생을 표시합니다.

Question

나는 apply 함수로 심하게 흔들 렸습니다. 단일 문자 값 목록을 가지고 있으며 모음에 대한 첫 번째 언급을 반환하고자합니다.

a<- c("A","B","C","E") 
b<- c("O","T","D","J") 
c<- c("A","R","B","K") 
d<- c("F","L","O","U") 
e<- c("N","D","S","Z") 

df <- data.frame(a,b,c,d,e) 

그 행에 대한 모음의 첫 번째 인스턴스를 반환하는 새 열을 만들고 싶습니다.

vow <- c("A","E","I","O","U") 

결과는 (A, NA?, O, E)가됩니다. 값이없는 경우 어떻게 처리합니까?

Answer 1

글자가 없으면 경고 메시지가 표시됩니다. 당신은 이것을 잡으려고 함수를 정교화 할 수 있습니다.

1), 각 행에 일치를 적용합니다 (인덱스의 테이블을 얻을 전치)

2) 각 열에서 최초의 비 NA를 가져옵니다! 세 단계에서

apply(df, 1, function(x, vow) x[min(which(x %in% vow))], vow = vow) 
[1] "A" NA "O" "E" 

Answer 2

> m <- apply(df, 1, match, table=vow) 
> 
> i <- apply(m, 2, function(x) na.omit(x)[1]) 
> 
> vow[i] 
[1] "A" NA "O" "E" 

3) 맹세 색인을 참조하십시오.