在 R 中使用带有反应变量的 grep 子集数据帧

Question

我的数据框df有aplication2011、winner2012等列名

在我的 Shiny 应用程序中，我使用了 2 个反应变量：

year = reaction$year
category = reaction$category

在我的 UI 中定义。 R 为：

radioButtons("year", label = h3("Year:"),
                           choices = list("2011" = "2011", "2012" = "2012",
                                          "2013" = "2013", "2014" = "2014", 
                                          "2015" = "2015", "2016"= "2016"),selected = 1)),

 radioButtons("category", label = h3("Category"), 
                          choices = list("Aplicant" = "aplic", 
                                         "Winner" = "win", 

我的目标是使用这两个变量对我的数据框 df 进行子集化，其中包含变量名称的部分。

例如，如果选择 reaction$year 2011 并且选择 reaction$category ap 我应该得到aplication2011

列

我正在尝试使用以下方法进行子集化：

# kindly regards to user lmo for providing this code
getMap <- function(df, reaction){
# get user selected content from getReaction function
userReaction <- getReaction(category, year)

# extract from list returned by function
yearSelect <- userReaction[["year"]]
catSelect <- userReaction[["category"]]
# extract variable
df <- df[[names(df)[grep(paste0("^", catSelect, .*, yearSelect, "$"),
                               names(df), value=TRUE)]]]

我的反应函数：

getReaction2 <- reactive({
return(list(category = input$category,
year = input$year
))

谢谢

Answer 1

假设reaction$category 包含变量名的开始，且reaction$year 包含变量名的完整年份，您可以使用以下表达式提取变量：

# get user selected content from getReaction function
# extract from list returned by function
yearSelect <- getReaction[["year"]]
catSelect <- getReaction[["category"]]
# extract variable
myVariable <- df[[names(df)[grep(paste0("^", catSelect, ".*", yearSelect, "$"),
                              names(df), value=TRUE)]]]