R语言如何按条件筛选循环定义新的数据和数据名称（R语言，循环）

如下图我的mydata是这样的，年份是从2003-2014年，因为我想分年份做图，所以需要根据不同的年份定义新的数据，想要达到的效果如下：
请问上面这段话怎么用循环的方式写出来呀，求大神指点，非常感谢！

蒙奇奇啊 发表于 2018-3-29 17:03
Error in `[.data.frame`(mydata, mydata$年份 == j) : 选择了未定义的列

1. library(dplyr)
   
2. for (j in seq(2003,2014) ){
   
3.   df_name <-  paste('data',j,sep = '')
   
4.   assign(df_name, filter(mydata,`年份`==j))
   
5. }

复制代码

试试这个。 我只是改了你取自己的方法，我比较喜欢用 dplyr 的包来做。你也可以自行更改

varnames <- paste("data", 2003:2014, sep="")
for (i in 1:12) {
    assign(varnames, value=mydata[mydata$年份==(i+2002)]
}
可以得到结果的
参考了一下： 链接：https://www.zhihu.com/question/45177161/answer/98554133 （作者：王冠嵩）

1. for (j in seq(2003,2014) ){
   
2.   df_name <-  paste('data',j,sep = '')
   
3.   assign(df_name, mydata[mydata$年份==j])
   
4.   }

复制代码

和楼上差不多

菊花冰糖水 发表于 2018-3-29 14:20
和楼上差不多

Error in `[.data.frame`(mydata, mydata$年份 == j) : 选择了未定义的列

小白仔 发表于 2018-3-29 14:17
varnames

这个也是过不去，有报错，按报错调整语法还是有错，暂未解决><

蒙奇奇啊 发表于 2018-3-29 17:03
Error in `[.data.frame`(mydata, mydata$年份 == j) : 选择了未定义的列

报错是因为我忘记在 mydata[mydata$年份==j]这里加逗号，应该改为mydata[mydata$年份==j, ]

菊花冰糖水 发表于 2018-3-29 17:59
报错是因为我忘记在 mydata[mydata$年份==j]这里加逗号，应该改为mydata[mydata$年份==j, ]

我又加逗号跑的呢，也是报的那个错误~~><

菊花冰糖水 发表于 2018-3-29 17:55
试试这个。 我只是改了你取自己的方法，我比较喜欢用 dplyr 的包来做。你也可以自行更改

啊，这个可以了，非常感谢！！！！

fitpoints=SpatialPointsDataFrame(cbind(st_data[m[i],j,"lon"],st_data[m[i],j,"lat"]),data=tempd,
                                      proj4string=CRS(proj4string(st_data[,1])))

报错：Error in `[.data.frame`(x@data, sel, k, drop = FALSE) :
  undefined columns selected


请问下，我这个要怎么改啊