英文:
Extract first not NA value from selected columns
问题
我想从一组列中提取第一个非 NA 值。 "第一个" 的定义是根据列的顺序。 示例：
library(tidyverse)
d1 <- tribble(~a, ~x, ~w, ~z,
"s", NA, 1, 2,
"m", 2, 3, 0,
"k", 9, NA, NA,
"o", NA, NA, 4,
"z", NA, NA, NA)
这是一个不起作用的选项 - 因为它只提取了 2 和 9：
d1 %>%
mutate(want = pmap_int(list(x, w, z), ~.x[!is.na(.x)][1]))
想要的结果是：1, 2, 9, 4, NA。
英文:
I would like to extract the first non NA value from a set of columns. "First" is defined by the order of columns. Example:
library(tidyverse)
d1 <- tribble(~a, ~x, ~w, ~z,
"s", NA, 1, 2,
"m", 2, 3, 0,
"k", 9, NA, NA,
"o", NA, NA, 4,
"z", NA, NA, NA)
That is a not working option - because it only extracts 2 & 9:
d1 %>%
mutate(want = pmap_int(list(x, w, z), ~.x[!is.na(.x)][1] ))
Want is: 1, 2, 9, 4, NA.
答案1
得分: 3
使用 dplyr::coalesce，您可以这样做：
library(tidyverse)
d1 |>
mutate(want = coalesce(x, w, z))
#> # A tibble: 5 × 5
#> a x w z want
#> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 s NA 1 2 1
#> 2 m 2 3 0 2
#> 3 k 9 NA NA 9
#> 4 o NA NA 4 4
#> 5 z NA NA NA NA
英文:
Using dplyr::coalesce you could do:
library(tidyverse)
d1 |>
mutate(want = coalesce(x, w, z))
#> # A tibble: 5 × 5
#> a x w z want
#> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 s NA 1 2 1
#> 2 m 2 3 0 2
#> 3 k 9 NA NA 9
#> 4 o NA NA 4 4
#> 5 z NA NA NA NA
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论