Dplyr包中的select()

使用dplyr包可以方便的对数据进行处理

矩阵的列进行重排

#读取鸢尾花数据集
> data <- head(iris)
> data
  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa
3          4.7         3.2          1.3         0.2  setosa
4          4.6         3.1          1.5         0.2  setosa
5          5.0         3.6          1.4         0.2  setosa
6          5.4         3.9          1.7         0.4  setosa
#挑选1,2列并调整顺序
> data2 <- dplyr::select(data,2,1)
> data2
  Sepal.Width Sepal.Length
1         3.5          5.1
2         3.0          4.9
3         3.2          4.7
4         3.1          4.6
5         3.6          5.0
6         3.9          5.4
#用everything()让其他列保持不变
> data3 <- dplyr::select(data,2,1,everything())
> data3
  Sepal.Width Sepal.Length Petal.Length Petal.Width Species
1         3.5          5.1          1.4         0.2  setosa
2         3.0          4.9          1.4         0.2  setosa
3         3.2          4.7          1.3         0.2  setosa
4         3.1          4.6          1.5         0.2  setosa
5         3.6          5.0          1.4         0.2  setosa
6         3.9          5.4          1.7         0.4  setosa

在重排时还可以对列名进行重命名

> data3 <- dplyr::select(data,"Aech"=2,1,everything())
> data3
  Aech Sepal.Length Petal.Length Petal.Width Species
1  3.5          5.1          1.4         0.2  setosa
2  3.0          4.9          1.4         0.2  setosa
3  3.2          4.7          1.3         0.2  setosa
4  3.1          4.6          1.5         0.2  setosa
5  3.6          5.0          1.4         0.2  setosa
6  3.9          5.4          1.7         0.4  setosa
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值