R语言 把列移到数据框的第一个位置

在这篇文章中，我们将看到如何用R编程语言将数据框架中的特定列移动到数据框架的第一个位置。

创建数据框架进行演示。

# create a dataframe with 4 columns
# they are id,name,age and address
data = data.frame(id=c(1, 2, 3),
                  name=c("sravan", "bobby",
                         "satwik"),
                  age=c(23, 21, 17),
                  address=c("kakumanu", "ponnur", "hyd"))
  
# display
data

输出

方法1：使用基础R 语言

在这个方法中，我们将使用基础R语言将列移动到第一个位置。

语法： dataframe[ ，c("column_name", names(dataframe)[names(dataframe) != "column_name"])]

其中

• dataframe是输入的数据框架
• column_name是要移到第一个的列的名称。

我们将使用索引操作符将某一列移到第一位置，通过c()函数，我们将结合列名，然后将其推到数据框架的第一位置。

示例： R程序将上述创建的数据框架中的列移到第一位。

# create a dataframe with 4 columns
# they are id,name,age and address
  
data = data.frame(id = c(1,2,3),
                  name = c("sravan","bobby",
                           "satwik"),
                  age = c(23,21,17),
                  address = c("kakumanu","ponnur","hyd"))
  
# display
print("Original Dataframe")
data
  
print("After moving age to first column : ")
  
# move age to first column
data_Sorted = data[ , c("age",
                        names(data)[names(data) != "age"])]
  
# display sorted data
data_Sorted
  
print("After move address to first column : ")
  
# move address to first column
data_Sorted1 = data[ , c("address", 
                         names(data)[names(data) != "address"])]
  
# display sorted data
data_Sorted1

输出

方法2：使用dplyr()包

通过使用这个包，我们可以将特定的列转移到第一个，这里我们使用%>%操作符将转移后的数据加载到数据框中，并使用选择（）函数，该函数接收要转移的特定列名，并使用every()东西来获取数据框的数据

语法: dataframe%>% dplyr::select("column_name", everything())

其中

• dataframe是输入的数据框架
• column_name是要先转移到的列

例子： R程序将特定列移到第一位

# load the dplyr package
library("dplyr")
  
# create a dataframe with 4 columns
# they are id,name,age and address
  
data = data.frame(id = c(1,2,3),
                  name = c("sravan","bobby",
                           "satwik"),
                  age = c(23,21,17),
                  address = c("kakumanu","ponnur","hyd"))
  
# display
print("Original Dataframe")
data
  
print("After moving age to first column : ")
  
# move age to first column
data_Sorted = data %>% dplyr::select("age", 
                                     everything())
  
# display sorted data
data_Sorted

输出