代码之家 › 专栏 › 技术社区 › thiagoveloso

R-按组查找公共元素

data.table r

thiagoveloso · 技术社区 · 6 年前

library(data.table)
dat <- fread("https://www.dropbox.com/s/kj66h9shv6zge91/mydat.csv?dl=1")

看起来像这样:

            source_id experiment_id variable_id
   1: CESM2-WACCM-FV2    historical          pr
   2: CESM2-WACCM-FV2    historical          pr
   3: CESM2-WACCM-FV2    historical         tas
   4: CESM2-WACCM-FV2    historical         tas
   5:     FGOALS-f3-L    historical          pr
  ---                                          
5657:      MRI-ESM2-0        ssp585          pr
5658:     CESM2-WACCM        ssp585          pr
5659:     CESM2-WACCM        ssp585         tas
5660:     CESM2-WACCM        ssp585         tas
5661:     CESM2-WACCM        ssp585      tasmax

为每一个 variable_id ,我正在尝试查找中的元素列表 source_id 同时存在于 experiment_id (例如“历史”、“ssp126”、“ssp245”、“ssp370”、“ssp585”)。

1 回复 | 直到 6 年前

Ronak Shah 6 年前

也许这会有帮助:

by(dat, dat$variable_id, function(x) 
        Reduce(intersect, split(x$source_id, x$experiment_id)))

#dat$variable_id: pr
# [1] "BCC-CSM2-MR" "MRI-ESM2-0"  "CESM2-WACCM" "INM-CM5-0"  "INM-CM4-8"    
# [6] "MPI-ESM1-2-HR" "CMCC-CM2-SR5"  "NorESM2-MM"  "EC-Earth3"  "EC-Earth3-Veg"
#[11] "GFDL-ESM4"    
#-------------------------------------------------------------------------- 
#dat$variable_id: tas
# [1] "BCC-CSM2-MR"   "MRI-ESM2-0"    "CESM2-WACCM"   "AWI-CM-1-1-MR" "INM-CM4-8"
# [6] "INM-CM5-0"     "MPI-ESM1-2-HR" "CMCC-CM2-SR5"  "NorESM2-MM"    "EC-Earth3"
#[11] "EC-Earth3-Veg" "GFDL-ESM4"    
#-------------------------------------------------------------------------- 
#dat$variable_id: tasmax
# [1] "BCC-CSM2-MR"   "MRI-ESM2-0"    "AWI-CM-1-1-MR" "INM-CM4-8"     "INM-CM5-0"
# [6] "MPI-ESM1-2-HR" "NorESM2-MM"    "EC-Earth3"     "EC-Earth3-Veg" "GFDL-ESM4"
#-------------------------------------------------------------------------- 
#dat$variable_id: tasmin
# [1] "BCC-CSM2-MR"   "MRI-ESM2-0"    "AWI-CM-1-1-MR" "INM-CM4-8"     "INM-CM5-0"
# [6] "MPI-ESM1-2-HR" "NorESM2-MM"    "EC-Earth3"     "EC-Earth3-Veg" "GFDL-ESM4"

为每一个 variable_id source_id experiment_id .

如果你想找出共同点为每一个 变量_id

Reduce(intersect, split(dat$source_id, list(dat$variable_id, dat$experiment_id)))

#[1] "BCC-CSM2-MR"   "MRI-ESM2-0"    "INM-CM5-0"     "INM-CM4-8"    
#[5] "MPI-ESM1-2-HR" "NorESM2-MM"    "EC-Earth3"     "EC-Earth3-Veg"
#[9] "GFDL-ESM4"

推荐文章

Marco_CH · 根据动态相关的两个条件进行筛选

4 年前

Shubham · 如何在R中查找数据表的两个多类别列之间的差异/setdiff()

4 年前

mt1022 · 分组数据时的不同结果。以不同方式使用数字索引的表列

8 年前

shy zhan · 如何改变数据。有很多列的表?

8 年前

Brent Pease · 查找条件语句的最小值,其中条件也适用于之后的所有值

8 年前

Serhii · 标记数据中按组随机选择的N行。桌子

8 年前

T.Beil · 在数据表中选取均匀分布的样本

8 年前

89_Simple · 为每个组运行函数

8 年前

IceCreamToucan · 选择要保留/放入数据的组。桌子

8 年前

Valeria Lobos Ossandón · 使用R查找数据帧中其他数据帧的元素位置

8 年前