对长数据帧进行排序，就好像它很宽一样

Question

我希望对长格式的数据帧进行排序，就好像它是宽格式的一样，但是我不希望改变数据帧的结构来使其变宽。如何使用tidyverse/dplyr工具来实现这一点，例如排列、组、forcat::fct_reorder等？

举个例子：如果数据是宽格式的，它会是这样的：

df1 <- data.frame(id = c("A", "B", "C"),
              col1 = c(8, 8, 7),
              col2 = c(7, 9, 3))

  id col1 col2
1  A    8    7
2  B    8    9
3  C    7    3

我会简单地按col1和col2对它进行排序，按两列的降序排列，所以它只是交换前两行。

事实上，我有很长的格式，如下所示：

df2 <- data.frame(id = c("A", "A", "B", "B", "C", "C"),
             type = c(1, 2, 1, 2, 1, 2),
             value = c(8, 7, 8, 9, 7, 3))

  id type value
1  A    1     8
2  A    2     7
3  B    1     8
4  B    2     9
5  C    1     7
6  C    2     3

在分类之后，我希望它看起来像这样：

      id type value
1  B    1     8
2  B    2     9
3  A    1     8
4  A    2     7
5  C    1     7
6  C    2     3

为了对单词进行排序，我想首先根据类型1的值进行排序，如果存在关联，则根据类型2的值对这些关联进行排序。

Answer 1

使用dcast（）-order（）-melt（）方法。

library(reshape2)
m1 <- dcast(df2, ... ~ id)
m2 <- m1[, order(-m1[2, ])]
m3 <- melt(m2, id=c("type"))
rm(m1, m2)

> m3[, c(2, 1, 3)]
  variable type value
1        B    1     8
2        B    2     9
3        A    1     8
4        A    2     7
5        C    1     7
6        C    2     3

数据

> dput(df2)
structure(list(id = structure(c(1L, 1L, 2L, 2L, 3L, 3L), .Label = c("A", 
"B", "C"), class = "factor"), type = c(1, 2, 1, 2, 1, 2), value = c(8, 
7, 8, 9, 7, 3)), class = "data.frame", row.names = c(NA, -6L))

Answer 2

下面是一种可能的方法。它不是很简洁，但可以完成工作。

library(dplyr)

df2 %>%
  group_by(type) %>%
  arrange(id) %>%
  group_by(id) %>%
  mutate(
    col1 = ifelse(type == 1, value, NA),
    col1 = max(col1, na.rm = T),
    total = sum(value)
  ) %>%
  arrange(desc(col1), desc(total)) %>%
  select(id:value)

# # A tibble: 6 x 3
# # Groups:   id [3]
#   id     type value
#   <fct> <dbl> <dbl>
# 1 B         1     8
# 2 B         2     9
# 3 A         1     8
# 4 A         2     7
# 5 C         1     7
# 6 C         2     3