在没有先验向量的情况下使用 dplyr 重新排列列(降序/升序)

Question

如果事先知道哪些列可用，则以下代码可以重新排列列，但如果想按降序/升序重新排列列怎么办？ StackOverflow 上有一些类似的帖子，但没有一篇可以在事先不知道哪些列可用的情况下这样做。

  type value
1  rna     1
2  rna     2
3  rna     3
4  dna    20
5  dna    30


d<- data.frame (type=c("rna","rna","rna"), value = c(1,2,3) )
d2 <- data.frame (type=c("dna","dna"), value = c(20,30) )
df <- rbind (d,d2)


library(dplyr)
df %>%
    group_by(type) %>%
    summarise_all(sum) %>%
    data.frame() %>%
    arrange(desc(value)) %>% # reorder row  
    select_(.dots = c("value","type") ) # reorder column

Answer 1

sort(names(.)) 或 rev(sort(names(.))) 应该工作...

d<- data.frame (type=c("rna","rna","rna"), value = c(1,2,3) )
d2 <- data.frame (type=c("dna","dna"), value = c(20,30) )
df <- rbind (d,d2)


library(dplyr)
df %>%
  group_by(type) %>%
  summarise_all(sum) %>%
  data.frame() %>%
  arrange(desc(value)) %>% # reorder row  
  select(sort(names(.)))