仅从 R 中的 DataFrame 中选择数字列

在本文中，我们将讨论如何在 R 编程语言中从数据框中仅选择数字列。

方法一：使用 Dplyr 包

我们可以用select_if（）函数通过调用数据框名称和ISNUMERIC（）函数将检查数字列的函数来获取数字列。

句法：

select_if(dataframe, is.numeric)

在哪里，

• 数据框是输入数据框
• is.numeric 被起诉以获取数字列

示例：使用 dplyr 从数据框中获取数字列的 R 程序

R

# load the package dplyr
library("dplyr")
  
# create  a dataframe with 4 columns and 3 rows
data=data.frame("webtechnologies"=c("php","html","js"), 
                marks=c(98,89,90),
                age=c(12,23,21),
                name=c("bobby","ojaswi","ramya"))
  
      
# get numeric columns using dplyr() function             
print(select_if(data, is.numeric))

输出：

示例：使用 dplyr 从数据框中获取数字列的 R 程序

电阻

# load the package dplyr
library("dplyr")
  
# create  a dataframe with 4 columns and 3 rows
data=data.frame(id=c(1,2,3), 
                marks=c(98,89,90),
                age=c(12,23,21),
                name=c("bobby","ojaswi","ramya"))
  
      
# get numeric columns using dplyr() function             
print(select_if(data, is.numeric))

输出：

方法二：使用lapply()函数

我们将使用 lapply()函数来获取数字列。在这里，使用 unlist() 调用 lapply()函数，并将数据帧名称和 isnumeric()函数作为参数传递给它。

句法：

unlist(lapply(dataframe, is.numeric))

在哪里，

• 数据框是输入数据框
• is.numeric 用于检查每个数据框列是否为数字
• unlist函数用于取消列出数据框

最后，将此 lapply() 传递给数据帧索引

句法：

dataframe[,unlist(lapply(data, is.numeric))]

其中，数据帧是输入数据帧

示例： R 程序使用基础 R 从数据框中获取数字列

电阻

# create  a dataframe with 4 columns and 3 rows
data=data.frame(id=c(1,2,3), 
                marks=c(98,89,90),
                age=c(12,23,21),
                name=c("bobby","ojaswi","ramya"))
  
      
# get numeric columns using dplyr() function             
print(data[,unlist(lapply(data, is.numeric))])

输出：