1、创建测试数据
> dat <- as.data.frame(matrix(1:100,nrow =10))
> dat
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
1 1 11 21 31 41 51 61 71 81 91
2 2 12 22 32 42 52 62 72 82 92
3 3 13 23 33 43 53 63 73 83 93
4 4 14 24 34 44 54 64 74 84 94
5 5 15 25 35 45 55 65 75 85 95
6 6 16 26 36 46 56 66 76 86 96
7 7 17 27 37 47 57 67 77 87 97
8 8 18 28 38 48 58 68 78 88 98
9 9 19 29 39 49 59 69 79 89 99
10 10 20 30 40 50 60 70 80 90 100
2、提取奇数行
> dat[seq(1,nrow(dat),2),]
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
1 1 11 21 31 41 51 61 71 81 91
3 3 13 23 33 43 53 63 73 83 93
5 5 15 25 35 45 55 65 75 85 95
7 7 17 27 37 47 57 67 77 87 97
9 9 19 29 39 49 59 69 79 89 99
3、提取偶数行
> dat[seq(0,nrow(dat),2),]
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
2 2 12 22 32 42 52 62 72 82 92
4 4 14 24 34 44 54 64 74 84 94
6 6 16 26 36 46 56 66 76 86 96
8 8 18 28 38 48 58 68 78 88 98
10 10 20 30 40 50 60 70 80 90 100
4、提取三倍数行
> dat[seq(0,nrow(dat),3),]
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
3 3 13 23 33 43 53 63 73 83 93
6 6 16 26 36 46 56 66 76 86 96
9 9 19 29 39 49 59 69 79 89 99
其余以此类推。
5、提取奇数列
> dat[,seq(1,ncol(dat),2)]
V1 V3 V5 V7 V9
1 1 21 41 61 81
2 2 22 42 62 82
3 3 23 43 63 83
4 4 24 44 64 84
5 5 25 45 65 85
6 6 26 46 66 86
7 7 27 47 67 87
8 8 28 48 68 88
9 9 29 49 69 89
10 10 30 50 70 90
6、提取偶数列
> dat[,seq(0,ncol(dat),2)]
V2 V4 V6 V8 V10
1 11 31 51 71 91
2 12 32 52 72 92
3 13 33 53 73 93
4 14 34 54 74 94
5 15 35 55 75 95
6 16 36 56 76 96
7 17 37 57 77 97
8 18 38 58 78 98
9 19 39 59 79 99
10 20 40 60 80 100
7、提取三倍数列
> dat[,seq(0,ncol(dat),3)]
V3 V6 V9
1 21 51 81
2 22 52 82
3 23 53 83
4 24 54 84
5 25 55 85
6 26 56 86
7 27 57 87
8 28 58 88
9 29 59 89
10 30 60 90
其余以此类推。