x1<-c("a","b","c","d","e","h","k","l","m","n","p")
x2<-c(1,3,2,9,8,10,11,7,6,8,12)
x3<-c(0.12,0.11,0.02,0.31,0.22,0.17,0.43,0.35,0.61,0.44, 0.29)
x<-data.frame(x1,x2,x3)
library(dplyr)
data.list<-list()
for(i in 6:10)
{data.list[i-5]<-x%>% filter(x$x2>=i)}
得到的结果是
Warning messages:
1: In data.list[i - 5] <- x %>% filter(x$x2 >= i) :
  number of items to replace is not a multiple of replacement length
2: In data.list[i - 5] <- x %>% filter(x$x2 >= i) :
  number of items to replace is not a multiple of replacement length
3: In data.list[i - 5] <- x %>% filter(x$x2 >= i) :
  number of items to replace is not a multiple of replacement length
4: In data.list[i - 5] <- x %>% filter(x$x2 >= i) :
  number of items to replace is not a multiple of replacement length
5: In data.list[i - 5] <- x %>% filter(x$x2 >= i) :
  number of items to replace is not a multiple of replacement length
> data.list
[[1]]
[1] d e h k l m n p
Levels: a b c d e h k l m n p

[[2]]
[1] d e h k l n p
Levels: a b c d e h k l m n p

[[3]]
[1] d e h k n p
Levels: a b c d e h k l m n p

[[4]]
[1] d h k p
Levels: a b c d e h k l m n p

[[5]]
[1] h k p
Levels: a b c d e h k l m n p
为什么得不到下面的类型？
x1 x2   x3
1  d  9 0.31
2  e  8 0.22
3  h 10 0.17
4  k 11 0.43
5  l  7 0.35
6  n  8 0.44
7  p 12 0.29