Question

我一直在尝试从具有嵌套列表的数据框中提取数据，但是在尝试使用字符串函数（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"))

此代码将创建11个观测值的一个子对象，R读取的变量Abstract中具有拉丁裔或西班牙裔一词，我试图找到一种方法让R读取变量Mesh，但它没有似乎可以读取整个嵌套列表，即使您看到每个变量也可以清楚地看到列表中有“西班牙裔美国人”一词

{r}
RCT_true$Mesh

我正在尝试找到一种方法，以使R可以读取RCT_true $ Mesh并返回是的，就像我以前对Abstract变量所做的那样，在新列中有一个“西班牙裔美国人”一词

Answer 1

由于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

如何从R中的PubMed从数据框列表MESH的列表中提取单词

1 个答案: