2016-06-27 63 views
11

Sto cercando di utilizzare arrange_() con stringa di input e in una delle colonne in ordine decrescente.arrange_() più colonne con ordine decrescente

library(dplyr) # R version 3.3.0 (2016-05-03) , dplyr_0.4.3 
# data 
set.seed(1) 
df1 <- data.frame(grp = factor(c(1,2,1,2,1)), 
        x = round(runif(5,1,10), 2)) 

# grp x 
# 1 1 3.39 
# 2 2 4.35 
# 3 1 6.16 
# 4 2 9.17 
# 5 1 2.82 

Qui di seguito è quello che ho bisogno di ottenere:

df1 %>% arrange(grp, -x) 
df1 %>% arrange(grp, desc(x)) 
# grp x 
# 1 1 6.16 
# 2 1 3.39 
# 3 1 2.82 
# 4 2 9.17 
# 5 2 4.35 

Nel mio caso seconda colonna è una stringa:

#dynamic string 
myCol <- "x" 

#failed attempts 
df1 %>% arrange_("grp", desc(myCol)) 

Error: incorrect size (1), expecting : 5

df1 %>% arrange_("grp", "desc(myCol)") 

Error: object 'myCol' not found

df1 %>% arrange_(c("grp", "desc(myCol)")) 
#wrong output 
# grp x 
# 1 1 3.39 
# 2 1 6.16 
# 3 1 2.82 
# 4 2 4.35 
# 5 2 9.17 

ho trovato soluzione simile here, ma non poteva farlo funzionare:

df1 %>% arrange_(.dots = c("grp", "desc(myCol)")) 

Error: object 'myCol' not found

Percepita mi manca qualcosa molto evidente, le idee?

risposta

8

Possiamo "" desc "come una stringa per valutarlo.

myCol1 <- paste0("desc(", "x)") 
df1 %>% 
    arrange_(.dots = c("grp", myCol1)) 
# grp x 
#1 1 6.16 
#2 1 3.39 
#3 1 2.82 
#4 2 9.17 
#5 2 4.35 

O con 'mycol'

df1 %>% 
     arrange_(.dots = c("grp", paste0("desc(", myCol, ")"))) 

Oppure utilizzare lazyeval

library(lazyeval) 
df1 %>% 
    arrange_(.dots = c("grp", interp(~ desc(n1), n1 = as.name(myCol)))) 
# grp x 
#1 1 6.16 
#2 1 3.39 
#3 1 2.82 
#4 2 9.17 
#5 2 4.35 

Utilizzando "desc(myCol)", si tratta di una singola stringa e il valore del 'mycol' è non valutato.

+0

Sì, queste sono buone alternative, vorrei che ci fosse una soluzione più carina evitando incollare. – zx8754

+1

@ zx8754 Ho aggiunto un'opzione con 'interp', ma penso che quella con' paste' sia compatta – akrun

+4

D'accordo, l'incolla sembra una strada da percorrere, 'interp' lo rende ancora peggiore (senza offesa). – zx8754