How to Apply the everything & last_col Functions of tidyselect in R (2 Examples)
In this R post you’ll learn how to select all or the last variable using the everything and last_col functions of the tidyselect package.
Preparing the Examples
data(iris) # Example data head(iris) # 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 |
data(iris) # Example data head(iris) # 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
install.packages("tidyselect") # Install & load tidyselect library("tidyselect") |
install.packages("tidyselect") # Install & load tidyselect library("tidyselect")
install.packages("dplyr") # Install & load dplyr library("dplyr") |
install.packages("dplyr") # Install & load dplyr library("dplyr")
Example 1: Using everything() Function to Reorder Data Frame
iris %>% # everything() function everything() # [1] 1 2 3 4 5 |
iris %>% # everything() function everything() # [1] 1 2 3 4 5
iris %>% # select() & everything() functions select(Petal.Length, everything()) %>% head() # Petal.Length Sepal.Length Sepal.Width Petal.Width Species # 1 1.4 5.1 3.5 0.2 setosa # 2 1.4 4.9 3.0 0.2 setosa # 3 1.3 4.7 3.2 0.2 setosa # 4 1.5 4.6 3.1 0.2 setosa # 5 1.4 5.0 3.6 0.2 setosa # 6 1.7 5.4 3.9 0.4 setosa |
iris %>% # select() & everything() functions select(Petal.Length, everything()) %>% head() # Petal.Length Sepal.Length Sepal.Width Petal.Width Species # 1 1.4 5.1 3.5 0.2 setosa # 2 1.4 4.9 3.0 0.2 setosa # 3 1.3 4.7 3.2 0.2 setosa # 4 1.5 4.6 3.1 0.2 setosa # 5 1.4 5.0 3.6 0.2 setosa # 6 1.7 5.4 3.9 0.4 setosa
Example 2: Using last_col() Function to Select Last Column
iris %>% # select() & last_col() functions select(last_col()) %>% head() # Species # 1 setosa # 2 setosa # 3 setosa # 4 setosa # 5 setosa # 6 setosa |
iris %>% # select() & last_col() functions select(last_col()) %>% head() # Species # 1 setosa # 2 setosa # 3 setosa # 4 setosa # 5 setosa # 6 setosa