나는 두 개의 NA값 을 가진 거대한 벡터를 가지고 있으며 그 벡터에서 최대 값을 찾으려고 노력하고 있지만 (벡터는 모든 숫자입니다) NA값 때문에이 작업을 수행 할 수 없습니다 .
NA최대 값을 계산할 수 있도록 값을 제거하려면 어떻게 해야합니까?
답변
을 시도 ?max하면 실제로 na.rm =기본적으로로 설정된 인수 가 있음을 알 수 FALSE있습니다. (즉 포함한 다른 많은 R 기능에 대한 공통 기본이다 sum(), mean()등)
설정 na.rm=TRUE은 원하는 것을 수행합니다.
d <- c(1, 100, NA, 10)
max(d, na.rm=TRUE)모든을 제거 NA하려면 대신이 관용구를 사용하십시오.
d <- d[!is.na(d)]마지막 주 : 다른 기능 (예를 들어 table(), lm()및 sort())가 NA서로 다른 이름을 사용 (다른 옵션을 제공합니다) – 관련 인수를. 따라서 NA함수 호출에서 문제가 발생하면 함수의 인수 중 내장 솔루션을 확인하는 것이 좋습니다. 나는 일반적으로 이미 존재하는 것을 발견 했다.
답변
이 na.omit기능은 많은 회귀 루틴이 내부적으로 사용하는 것입니다.
vec <- 1:1000
vec[runif(200, 1, 1000)] <- NA
max(vec)
#[1] NA
max( na.omit(vec) )
#[1] 1000답변
?max로 na.rm설정할 수 있는 추가 매개 변수가 있음을 나타 TRUE냅니다.
그 외에도 s 를 정말로 제거 NA하려면 다음과 같이 사용하십시오.
myvec[!is.na(myvec)]답변
에 전화 할 수 있습니다 max(vector, na.rm = TRUE). 보다 일반적으로이 na.omit()기능을 사용할 수 있습니다 .
답변
R을 처음 접하는 사람이 원래 질문에 대한 간단한 답변을 원할 경우
벡터에서 NA 값을 제거하려면 어떻게해야합니까?
여기있어:
foo다음과 같이 벡터가 있다고 가정하십시오 .
foo = c(1:10, NA, 20:30)러닝 length(foo)은 22를 제공합니다.
nona_foo = foo[!is.na(foo)]length(nona_foo) NA 값이 제거되었으므로 21입니다.
기억 is.na(foo)은 부울 행렬을 반환하므로이 foo값과 반대로 인덱싱 하면 NA가 아닌 모든 요소가 제공됩니다.
답변
purrrdiscard 에서 사용 (목록 및 벡터와 함께 작동)
discard(v, is.na) 장점은 파이프를 사용하기 쉽다는 것입니다. 또는 내장 서브 셋팅 기능을 사용하십시오 [:
v %>% discard(is.na)
v %>% `[`(!is.na(.))참고 na.omit목록에서 작동하지 않습니다 :
> x <- list(a=1, b=2, c=NA)
> na.omit(x)
$a
[1] 1
$b
[1] 2
$c
[1] NA답변
두 가지 base접근 방식을 비교하는 빠른 벤치 마크를 실행했으며 x[!is.na(x)]그보다 빠릅니다 na.omit. 사용자 qwr는 나도 시도해 보라고 제안했다. purrr::dicard이것은 상당히 느려졌다.
microbenchmark::microbenchmark(
purrr::map(airquality,function(x) {x[!is.na(x)]}),
purrr::map(airquality,na.omit),
purrr::map(airquality, ~purrr::discard(.x, .p = is.na)),
times = 1e6)
Unit: microseconds
expr min lq mean median uq max neval cld
purrr::map(airquality, function(x) { x[!is.na(x)] }) 66.8 75.9 130.5643 86.2 131.80 541125.5 1e+06 a
purrr::map(airquality, na.omit) 95.7 107.4 185.5108 129.3 190.50 534795.5 1e+06 b
purrr::map(airquality, ~purrr::discard(.x, .p = is.na)) 3391.7 3648.6 5615.8965 4079.7 6486.45 1121975.4 1e+06 c참고로 다음은 원래 x[!is.na(x)]vs 테스트입니다 na.omit.
microbenchmark::microbenchmark(
purrr::map(airquality,function(x) {x[!is.na(x)]}),
purrr::map(airquality,na.omit),
times = 1000000)
Unit: microseconds
expr min lq mean median uq max neval cld
map(airquality, function(x) { x[!is.na(x)] }) 53.0 56.6 86.48231 58.1 64.8 414195.2 1e+06 a
map(airquality, na.omit) 85.3 90.4 134.49964 92.5 104.9 348352.8 1e+06 b