无法使用 dplyr::arrange() 对 r 中日期形式的列进行排序

Question

有谁知道 dplyr 的 arrange() 函数无法对列名是类似日期字符串形式的列进行排序的原因吗？

看一下下面的示例：

rnames <- LETTERS[1:10]
set.seed(1)
values <- runif(10, 0, 10) %>% 
  round(1) %>% 
  data.frame(., row.names = rnames) %>% 
  `colnames<-`("2022-03-01") 
values %>% dplyr::arrange("2022-03-01") 

如果运行该代码块，您可以清楚地看到该列未排序：

 2022-03-01
A        2.7
B        3.7
C        5.7
D        9.1
E        2.0
F        9.0
G        9.4
H        6.6
I        6.3
J        0.6

有多种方法可以修复代码以允许排序，包括但不限于：(i) 使用 dplyr::arrange_all()，(ii) 在arrange() 调用中嵌套 dplyr::across()，(iii) 更改列名称一个不像日期的人，或 (iv) 将基本 R 的 order() 函数与括号结合使用。

我的问题是为什么尽管该列采用字符形式，但 arrange() 函数不起作用（不会抛出错误）：

> typeof(colnames(values))
[1] "character

我问是因为对于处理股票或其他时间序列数据的人来说，有时日期确实会成为列名称，因此在需要对此类列进行排序的情况下，这种怪癖可能会产生意想不到的结果。

Answer 1

使用反引号代替双引号列名

library(dplyr)
values %>% 
   dplyr::arrange(`2022-03-01`) 

-output

   2022-03-01
J        0.6
E        2.0
A        2.7
B        3.7
C        5.7
I        6.3
H        6.6
F        9.0
D        9.1
G        9.4

---

如果我们想作为字符串传递，可以在 across 内使用

values %>%
   dplyr::arrange(across("2022-03-01"))
  2022-03-01
J        0.6
E        2.0
A        2.7
B        3.7
C        5.7
I        6.3
H        6.6
F        9.0
D        9.1
G        9.4

，或者转换为 symbol 并求值 (! !)

values %>%
  dplyr::arrange(!! rlang::sym("2022-03-01"))
  2022-03-01
J        0.6
E        2.0
A        2.7
B        3.7
C        5.7
I        6.3
H        6.6
F        9.0
D        9.1
G        9.4

或者使用 .data

values %>% 
  dplyr::arrange(.data[["2022-03-01"]])