R – sapplyを利用してデータフレームに列を追加(vectorおよびcbind)

Script
head(dataset)
tail(dataset)
dpj<-c("2009/9/1","2012/12/1")
ldp<-c("2013/1/1","2015/9/1")
fun<-function(i){if(i<=as.Date(dpj[2])){"民主党"}else{"自民党"}}
Party<-sapply(dataset[,1],fun)
dataset<-cbind(dataset,Party)
head(dataset)
tail(dataset)
Result
> head(dataset)
        Date 労働力人口 就業者 就業者/労働力人口(%)
1 2009-09-01       6658   6301                94.64
2 2009-10-01       6630   6287                94.83
3 2009-11-01       6630   6287                94.83
4 2009-12-01       6626   6290                94.93
5 2010-01-01       6644   6314                95.03
6 2010-02-01       6620   6294                95.08

> tail(dataset)
         Date 労働力人口 就業者 就業者/労働力人口(%)
68 2015-04-01       6553   6338                96.72
69 2015-05-01       6574   6357                96.70
70 2015-06-01       6613   6391                96.64
71 2015-07-01       6598   6378                96.67
72 2015-08-01       6598   6375                96.62
73 2015-09-01       6626   6399                96.57

> head(dataset)
        Date 労働力人口 就業者 就業者/労働力人口(%)  Party
1 2009-09-01       6658   6301                94.64 民主党
2 2009-10-01       6630   6287                94.83 民主党
3 2009-11-01       6630   6287                94.83 民主党
4 2009-12-01       6626   6290                94.93 民主党
5 2010-01-01       6644   6314                95.03 民主党
6 2010-02-01       6620   6294                95.08 民主党

> tail(dataset)
         Date 労働力人口 就業者 就業者/労働力人口(%)  Party
68 2015-04-01       6553   6338                96.72 自民党
69 2015-05-01       6574   6357                96.70 自民党
70 2015-06-01       6613   6391                96.64 自民党
71 2015-07-01       6598   6378                96.67 自民党
72 2015-08-01       6598   6375                96.62 自民党
73 2015-09-01       6626   6399                96.57 自民党

2016年03月29日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第4週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月22日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第3週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月15日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第2週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移