如何从 R 数据框中仅选择数字列？

最简单的做法是使用 dplyr 包的 select_if 函数，但我们也可以通过 lapply 来做到。

使用 dplyr

> df <- data.frame(X1=1:10,X2=11:20,X3=21:30,X4=letters[1:10], X5=letters[11:20])
> df
X1 X2 X3 X4 X5
1 1 11 21 a k
2 2 12 22 b l
3 3 13 23 c m
4 4 14 24 d n
5 5 15 25 e o
6 6 16 26 f p
7 7 17 27 g q
8 8 18 28 h r
9 9 19 29 i s
10 10 20 30 j t
>library("dplyr")
> select_if(df, is.numeric)
X1 X2 X3
1 1 11 21
2 2 12 22
3 3 13 23
4 4 14 24
5 5 15 25
6 6 16 26
7 7 17 27
8 8 18 28
9 9 19 29
10 10 20 30

使用 lapply

> numeric_only <- unlist(lapply(df, is.numeric))
> df[ , numeric_only]
  X1 X2 X3
1 1 11 21
2 2 12 22
3 3 13 23
4 4 14 24
5 5 15 25
6 6 16 26
7 7 17 27
8 8 18 28
9 9 19 29
10 10 20 30

Nizamuddin Siddiqui

更新于： 2020 年 7 月 6 日

886 次访问

你的 事业开始起步

完成课程获得认证

开始