gwas_catalog %>% filter(grepl( "leptin", Phenotype_simple, ignore.case = T)) %>% filter(grepl("European", Initial_

这段代码的功能是： 1. 使用 `%>%` 管道操作符将 gwas_catalog 数据框传递给下一个函数。 2. 使用 `filter()` 函数从数据框中筛选出 Phenotype_simple 列包含 "leptin" 字符串的行，并将结果保存到 gwas_catalog 变量中。`ignore.case = T` 参数表示忽略大小写。 3. 使用另一个 `filter()` 函数从 gwas_catalog 中筛选出 Initial_sample_description 列包含 "European" 字符串的行，并将结果保存到 gwas_catalog 变量中。 4. 使用第三个 `filter()` 函数从 gwas_catalog 中筛选出 beta 列不为 NA 的行，并将结果保存到 gwas_catalog 变量中。 5. 使用 `select()` 函数选择需要的列，并使用 `-c()` 函数删除不需要的列，最后使用 `View()` 函数在新窗口中查看结果。 6. 删除的列包括：MAPPED_TRAIT_EFO、MAPPED_TRAIT_EFO_URI、Replication_sample_description、chr、bp_ens_GRCh38、Region、Gene_ens 和 date_added_to_MRBASE。 7. 最终结果是一个新的数据框，其中包含了满足条件的行和所需的列。