可以先用字符串替换把
a="2017年7月25日"
替换成"2017-7-25"这样的标准格式
然后用包lubridate
year(a)
month(a)
day(a)

as.Date("2017年7月25日", "%Y年%m月%d日")这个可以转换成日期型，然后用year（）、month（）、day（）来提取

或者可以考虑自己编一个小函数，也很简单
> Date_Extr<-function(dtchr){#输入可以是一个中文日期,字符串向量输出的是数值型数据,用data.frame来装
+   lr<-length(dtchr)
+   StrDt<-strsplit(as.character(as.Date(dtchr, "%Y年%m月%d日")),split="-")
+   DtExt<-NULL
+   for(i in 1:lr){
+     dtvec<-as.numeric(StrDt[[i]])
+     Dtdf<-data.frame(y=dtvec[1],m=dtvec[2],d=dtvec[3])
+     DtExt<-rbind(DtExt,Dtdf)
+   }
+   DtExt
+ }
> Date_Extr(dtchr = "2013年10月12日")
     y  m  d
1 2013 10 12
> chr<-paste(2003:2017,"年10月12日",sep="")
> Date_Extr(chr)
      y  m  d
1  2003 10 12
2  2004 10 12
3  2005 10 12
4  2006 10 12
5  2007 10 12
6  2008 10 12
7  2009 10 12
8  2010 10 12
9  2011 10 12
10 2012 10 12
11 2013 10 12
12 2014 10 12
13 2015 10 12
14 2016 10 12
15 2017 10 12

或者可以考虑自编一个小函数来处理
> Date_Extr<-function(dtchr){#输入可以是一个中文日期,字符串向量输出的是数值型数据,用data.frame来装
+   lr<-length(dtchr)
+   StrDt<-strsplit(as.character(as.Date(dtchr, "%Y年%m月%d日")),split="-")
+   DtExt<-NULL
+   for(i in 1:lr){
+     dtvec<-as.numeric(StrDt[[i]])
+     Dtdf<-data.frame(y=dtvec[1],m=dtvec[2],d=dtvec[3])
+     DtExt<-rbind(DtExt,Dtdf)
+   }
+   DtExt
+ }
> Date_Extr(dtchr = "2013年10月12日")
     y  m  d
1 2013 10 12
> chr<-paste(2003:2017,"年10月12日",sep="")
> Date_Extr(chr)
      y  m  d
1  2003 10 12
2  2004 10 12
3  2005 10 12
4  2006 10 12
5  2007 10 12
6  2008 10 12
7  2009 10 12
8  2010 10 12
9  2011 10 12
10 2012 10 12
11 2013 10 12
12 2014 10 12
13 2015 10 12
14 2016 10 12
15 2017 10 12