How to sort a dataframe by columns giving column names as a variable

Question

I need to sort a data frame by several columns, and I have the name of the columns in a variable. My question is related to this one but in my case the columns to be used to sort are stored in a variable, like in this other question.

I borrow the data frame from the first question:

dd <- data.frame(b = factor(c("Hi", "Med", "Hi", "Low"), 
      levels = c("Low", "Med", "Hi"), ordered = TRUE),
      x = c("A", "D", "A", "C"), y = c(8, 3, 9, 9),
      z = c(1, 1, 1, 2))
dd
    b x y z
1  Hi A 8 1
2 Med D 3 1
3  Hi A 9 1
4 Low C 9 2

What I need to do is sort dd by z decreasing, and by b increasing. The sort answer is:

dd[with(dd, order(-z, b)), ]

What I have is:

sort_list <- c("z","b")

From the second question I know I can do:

dd[do.call(order, dd[, sort_list]),]

But that only gives me increasing order for both variables. What I can't figure out is how to do it with decreasing order. I've tried this:

dd[do.call(order, list(dd[, sort_list]), decreasing = c(TRUE,FALSE)),]

which produces an error, because it's assuming the decreasing argument is just another ordering item.

Are you looking for this? require(dplyr) ; dd %>% group_by(b,z) %>% arrange(b,desc(z)) — count
– count, Commented Oct 28, 2016 at 9:19
No, sorry. As I say, my column names are stored in a variable, so I don't know them in advance. — eindzl
– eindzl, Commented Oct 28, 2016 at 11:49

cderv · Accepted Answer · 2016-10-28 09:27:39Z

2

Using data.table order function, you could do :

dd <- data.frame(b = factor(c("Hi", "Med", "Hi", "Low"), 
                            levels = c("Low", "Med", "Hi"), ordered = TRUE),
                 x = c("A", "D", "A", "C"), y = c(8, 3, 9, 9),
                 z = c(1, 1, 1, 2))


library(data.table)
sort_list <- c("z","b")
sort_order <- c(-1, 1)
setDT(dd)
setorderv(dd, sort_list, sort_order)
dd
#>      b x y z
#> 1: Low C 9 2
#> 2: Med D 3 1
#> 3:  Hi A 8 1
#> 4:  Hi A 9 1

answered Oct 28, 2016 at 9:27

cderv

6,5921 gold badge24 silver badges36 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

tim riffe · Accepted Answer · 2016-10-28 09:21:29Z

1

This works:

dd <- data.frame(b = factor(c("Hi", "Med", "Hi", "Low"), 
      levels = c("Low", "Med", "Hi"), ordered = TRUE),
      x = c("A", "D", "A", "C"), y = c(8, 3, 9, 9),
      z = c(1, 1, 1, 2))
sort_list <- c("z","b")
dd[order(-dd[,sort_list[1]], dd[,sort_list[2]]), ]
# or
dd[order(-dd[,sort_list["z"]], dd[,sort_list["b"]]), ]

if that's annoying to type, or the variable names change, or whatever, you could stick it in a function (in right order):

downup <- function(dat, sort_list){
    dat[order(-dat[,sort_list[1]], dat[,sort_list[2]]), ]
}
downup(dd)

That help?

answered Oct 28, 2016 at 9:21

tim riffe

5,7011 gold badge29 silver badges40 bronze badges

2 Comments

Batanichek Over a year ago

What if you sort by 3 columns ? or other order(asc \desc)?

eindzl Over a year ago

As @Batanichek says this solution is limited to a very specific situation (two columns first decreasing, second increasing). It would be interesting to have a more general solution. It solves my particular problem though. Thanks.

Batanichek · Accepted Answer · 2016-10-28 11:53:40Z

0

dplyr example

library(dplyr)
sort_list <- c("z","b")
sort_order=c(TRUE,FALSE)
dd %>% arrange_(.dots=ifelse(sort_order,paste0("desc(",sort_list,")"),sort_list))

edited Oct 28, 2016 at 11:53

answered Oct 28, 2016 at 9:49

Batanichek

7,91134 silver badges49 bronze badges

Collectives™ on Stack Overflow

How to sort a dataframe by columns giving column names as a variable

3 Answers 3

Comments

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related