Apply 함수의 오류 : "인수의 행 수가 다르다는 것을 의미합니다. 1, 0"

Question

데이터 프레임이 있습니다. 나는 열 "A"를 검색해야하고, "a"는 "foo는"열 "B"를 일치 한 동일한 경우

a <- c("foo", "bar", "baz", "foo") 
b <- c(0, 0, 0, 0) 
df <- data.frame(a, b) 

f <- function (x){ 
    if (x["a"] == "foo"){ 
    x["b"] <- "confirm" 
    } 
} 

result <- apply(df, 1, f) 

의도 된 결과가

a  b 
"foo" "confirm" 
"bar" 0 
"baz" 0 
"foo" "confirm" 

는 "발견"하지만 난 할 때 이, 반환 결과 :

[[1]] 
[1] "confirm" 

[[2]] 
NULL 

[[3]] 
NULL 

[[4]] 
[1] "confirm" 

및보기 (결과) 오류 제공 :보기 오류 : 인수가 행 수 서로 다른 의미 : 1, 0

데이터 프레임에 다른 차원을 추가합니까?

Answer 1

당신은 할 수있는이 당신이 당신의 자신의 함수를 작성 (프랭크는 자신의 의견에 말했듯이)가 return 문이 있는지 확인하려면 쉽게 dplyr

library(dplyr) 
a <- c("foo", "bar", "baz", "foo") 
b <- c(0, 0, 0, 0) 
df <- data.frame(a, b) 

result <- df %>% 
    mutate(b = ifelse(a == "foo", "confirm", b)) 

# a  b 
# 1 foo confirm 
# 2 bar  0 
# 3 baz  0 
# 4 foo confirm 

에서 ifelse과 mutate 명령을 사용하여.

result <- data.frame(a, b=(ifelse(a=="foo","found",b)))

Answer 2

는 기본 패키지를 사용합니다.