【求助】筛选数据出了问题-经管之家官网！

我现在有个表格，目前一步一步地筛选，到SICCD这个地方卡住了。

1. dataset <- read.csv(choose.files(), header = T)

复制代码
我第一步选出share code为10和11的公司，用了下面的命令：

1. subdata1 <- subset(dataset, dataset$SHRCD == c(10,11))

复制代码
然后我选择年份范围，命令如下（如果有知道像这种年份怎么根据头四位年份筛选的，望指教）

1. subdata2 <- subset(subdata1, subdata1￥DATE>20081231 & subdata1$DATE<20140101)

复制代码此处两个$之间的东西在帖子里总变，暂时不知道怎么弄，就把第一个$换成￥，code里还是$哈~
接下来我有筛选了一下交易所代码为1的公司，并且去掉了SIC code缺失的数据：

1. subdata3 <- subset(subdata2, subdata2$EXCHCD == 1)
   
2. subdata4 <- subset(subdata3, subdata3$SICCD!="NA")

复制代码
最后我想去掉utility和finance公司，即SIC开头为40-49,52-59的公司：

1. subdata5 <- subset(subdata4, subdata4$SICCD!= c(4000:4999,5200:5900))

复制代码
然后这个命令就出错了

1. Warning message:
   
2. In subdata4$SICCD != c(4000:4999, 5200:5900) :
   
3. longer object length is not a multiple of shorter object length

复制代码
我又试了一下subdata2那种形式的命令，也是这个错误，希望大家给我指导指导。
subdata5 <- subdata4[(subdata4$SICCD<4000)&(subdata4$SICCD>4999),]这种形式出来的是0 observation。。。
另外这种通过特定部分的字符筛选数据有没有什么简便的方法？例如20000101-20151231的日期里，只选择第五位是1第六位是0，即所有的10月，留下20001001,20001002...

扫码或添加微信号：坛友素质互助

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP