descending order a list in r

library(dplyr)
set.seed(1234)
data_frame <- tibble(  
	c1 = rnorm(50, 5, 1.5),   
	c2 = rnorm(50, 5, 1.5),  
	c3 = rnorm(50, 5, 1.5),
	c4 = rnorm(50, 5, 1.5), 	
	c5 = rnorm(50, 5, 1.5)
)
# Sort by c1
df <-data_frame[order(data_frame$c1),]
head(df)

x_sorted = sort(x, decreasing = FALSE, na.last = NA, ...)

#sort by mpg (ascending) and cyl (descending)
newdata <- mtcars[order(mpg, -cyl),]