以下をループ関数に変換してください。

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)) 

私は新しいdata.frameに、列1（date列とhits列）2のサブセットにするためにループを作成しようとしています。

私は、year_listsでdateを取るsearches data.frameの列dateにgrepl関数を適用し、新しいdata.frameにこれらの値を返すようにしようとしているが、ループ機能や、私が現在持っているものよりも少ない繰り返し何かを使用しています。

DATAFRAME

  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.frames S内にdata.frameを分割することを正しい場合は、リストを作成し、次の解決策を検討するかもしれません所望のdata.frameサブセットはsplitを使用します。私はあなたのデータを（data.tableとしてではなく）使用し、追加の年を表す2行を導入しました。私の理解が正しいことを願っています。

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