将以下内容转换为循环函数

Question

我有一个小数据集，我正在尝试使用 grepl 函数对 data.frame 进行子集化。

我有；

year_list <- list("2013", "2014", "2015", "2016", "2017")

test.2013 <- subset(searches[, 1:2], grepl(year_list[1], searches$date))
test.2014 <- subset(searches[, 1:2], grepl(year_list[2], searches$date))
test.2015 <- subset(searches[, 1:2], grepl(year_list[3], searches$date))
test.2016 <- subset(searches[, 1:2], grepl(year_list[4], searches$date))
test.2017 <- subset(searches[, 1:2], grepl(year_list[5], searches$date))

我正在尝试创建一个循环，以便将第 1 列到第 2 列（date 列和 hits 列）子集化为新的 data.frame。

我正在尝试使用year_lists 中的date，将grepl 函数应用于searches data.frame 中的date 列，并将这些值返回到新的data.frame，但使用循环函数或更少的函数比我现在的重复。

数据框

         date hits         keyword   geo gprop category
1: 2013-01-06   23  Price world   web        0
2: 2013-01-13   23  Price world   web        0
3: 2013-01-20   40  Price world   web        0
4: 2013-01-27   25  Price world   web        0
5: 2013-02-03   21  Price world   web        0
6: 2013-02-10   19  Price world   web        0

Answer 1

如果我的理解是正确的，您希望根据日期列中的条目将data.frame 拆分为多个data.framess，那么您可以考虑以下解决方案，它会生成所需data.frame 的列表使用split 的子集。我使用了你的数据（不是data.table）并引入了代表额外一年的两条线。我希望我的理解是正确的。

df <- read.table(text = "
date hits         keyword   geo gprop category
2013-01-06   23  Price world   web        0
2013-01-13   23  Price world   web        0
2013-01-20   40  Price world   web        0
2013-01-27   25  Price world   web        0
2013-02-03   21  Price world   web        0
2013-02-10   19  Price world   web        0
2014-02-03   21  Price world   web        0
2014-02-10   19  Price world   web        0
", header = T, stringsAsFactors = F)

#extract only the four first digits from date column
#to generate splitting groups
df_split <- split(df[, c("date", "hits")], gsub("(\\d{4})(.*$)", "\\1", df$date))

df_split
# $`2013`
#       date    hits
# 1 2013-01-06   23
# 2 2013-01-13   23
# 3 2013-01-20   40
# 4 2013-01-27   25
# 5 2013-02-03   21
# 6 2013-02-10   19
# 
# $`2014`
#       date    hits
# 7 2014-02-03   21
# 8 2014-02-10   19