根据另一个 tibble 中的值子集 tibble 列

Question

我已尽我所能进行搜索，但仍在努力解决我的问题。我正在尝试根据另一个 tibble 的值对 tibble 中的列进行子集化。

更具体地说，我有一些社会经济指标：

cname   year  ccodealp  wdi_lfpr wdi_lfprf

Turkey  2010    TUR    51.611    29.592 
Turkey  2011    TUR    52.781    30.995 
Turkey  2012    TUR    52.809    31.676 
Turkey  2013    TUR    53.874    33.125 
Turkey  2014    TUR    54.597    33.446 
Turkey  2015    TUR    55.594    34.858

我有一个单独的 tibble (Tibble 2)，有两列，指标和 Tibble 1 中该指标的缺失百分比

tibble_2
col         value
who_dwtot   100         
who_dwrur   100         
who_dwurb   100

我想要做的是 tibble_1 的子集，只包含满足 tibble_2 中特定条件的列。即，仅保留缺失率低于 90% 的列（tibble_2 中的“值”列）。我在 tidyverse 中遇到了麻烦。这是我试过的代码：

tibble_1 %>% select(tibble_2, "value" < 90)

Error: Must subset columns with a valid subscript vector. 
x Subscript has the wrong type `tbl_df< col : character value: double >`. i 
It must be numeric or character. Run `rlang::last_error()` to see where the error occurred.

我知道这可能是个小问题，但我不是 tidyverse 方面的专家，不知道如何解决这个问题。

感谢您的帮助。

Answer 1

我们可以 filter 'tibble_2' 基于 'value' 列和 pull 'col' select 中的列名称tibble_1

library(dplyr)
tibble_1 %>%
     select({tibble_2 %>%
                 filter(value < 90) %>%
                 pull(col)})

或者如果我们使用 base R

subset(tibble_1, select = subset(tibble_2, value < 90, select = col)$col)

根据另一个 tibble 中的值子集 tibble 列

Subset tibble columns based on values in another tibble

r

tidyverse

tibble