r - 如何从 R 中 PubMed 的数据框列表 MESH 列表中提取单词
问题描述
我一直在尝试从具有嵌套列表的数据框中提取数据,但是在尝试使用字符串函数 (str_detect) 之后,我只能处理变量 Abstract 这里是我的数据示例
{r setup, include=FALSE}
library(RISmed)
library(reticulate)
library(dplyr)
library(tibble)
library(stringr)
RCT_topic <- 'Randomized Clinical Trial'
RCT_query <- EUtilsSummary(RCT_topic, mindate=2005, maxdate=2015, retmax=2000)
summary(RCT_query)
RCT_records <- EUtilsGet(RCT_query)
RCT_data <- data_frame('PMID'=PMID(RCT_records),
'Title'=ArticleTitle(RCT_records),
'Abstract'=AbstractText(RCT_records),
'Year Published'=YearPubmed(RCT_records),
'Month Published'=MonthPubmed(RCT_records),
'Country'= Country(RCT_records),
'Grant' =GrantID(RCT_records),
'Acronym' =Acronym(RCT_records),
'Agency' =Agency(RCT_records),
'Mesh'=Mesh(RCT_records))
#Latino
RCT_data$Latino <- grepl("Latino|latino|Hispanic|hispanic",RCT_data$Abstract)
table(RCT_data$Latino)
RCT_true = RCT_data[RCT_data$Latino == "TRUE",]
RCT_true %>% str_detect("Hispanic Americans")
RCT_true %>% mutate(Latino_Mesh = ifelse(Mesh %>% str_detect("Latino|latino|Hispanic|hispanic"), "yes", "no"))
此代码将创建 R 已读取的 11 个观察结果的子集,在变量 Abstract 中包含 latino 或 hispanic 这个词,我试图找到一种方法让 R 读取变量 Mesh,但它似乎不是即使您看到每个变量,也能够阅读整个嵌套列表,您可以清楚地看到列表中有西班牙裔美国人这个词
{r}
RCT_true$Mesh
我正在尝试找到一种方法,以便 R 可以读取 RCT_true$Mesh 并返回是的,在新列中有一个单词“西班牙裔美国人”,就像我之前对 Abstract 变量所做的那样
解决方案
由于 RCT_true$Mesh 是包含数据框的列表,因此应使用grepl
函数评估每个数据框并将结果保存在索引器向量中(即RCT_true$Mesh_Latino
):
lapply(RCT_true$Mesh, function(x){
any( grepl("(Latino|latino|Hispanic|hispanic)", as.character(x$Heading) ) )
}) %>%
unlist() %>%
as.logical() -> RCT_true$Mesh_Latino
RCT_true[RCT_true$Mesh_Latino == "TRUE",]
# # A tibble: 5 x 12
# PMID Title Abstract `Year Published` `Month Publishe… Country Grant Acronym Agency Mesh Latino Mesh_Latino
# <chr> <chr> <chr> <dbl> <dbl> <chr> <chr> <chr> <chr> <lis> <lgl> <lgl>
#1 2671… Beyo… "Within… 2015 12 United… CA01… CA NCI N… <dat… TRUE TRUE
#2 2670… Trea… OBJECTI… 2015 12 United… KL2 … TR NCATS… <dat… TRUE TRUE
#3 2669… Vali… "Resear… 2015 12 England NA NA NA <dat… TRUE TRUE
#4 2668… The … BACKGRO… 2015 12 United… K23 … MH NIMH … <dat… TRUE TRUE
#5 2665… Heal… BACKGRO… 2015 12 United… R01 … HL NHLBI… <dat… TRUE TRUE
推荐阅读
- c# - 使用 SQL 连接尝试/捕获
- linkedin - Ad Targeting - Find Entities by URNs API ClassCastException 错误消息
- python - 在 Python 中访问 OrderedDict 中的数据并对其进行循环
- c++ - 仅标头 C++ INTERFACE 库在第二个依赖 CMake 项目中显示链接器错误
- excel - 结合不相交、Target.Parent.Range 和 Worksheets.Cells
- java - spring-data-dynamodb 是否支持本地二级索引?
- c# - 为什么 Linq 允许意外比较分配?
- python - ValueError:未知投影“3d”(再次)
- laravel-5.8 - Laravel 验证控制器不存在
- c# - 是否有初始化 DateTime 变量的简写?