同样的日期数据分别生成矩阵和数据框的结果不一样？

yuanfan

用当前时间生成一个数据框，日期都能正常显示。

```{r}
date <- data.frame(
  toDateString = c(Sys.time(), Sys.Date()),
  toISOString = c(Sys.time(), Sys.Date()),
  toLocaleDateString = c(Sys.time(), Sys.Date()),
  toLocaleString = c(Sys.time(), Sys.Date()),
  toLocaleTimeString = c(Sys.time(), Sys.Date()),
  toString = c(Sys.time(), Sys.Date()),
  toTimeString = c(Sys.time(), Sys.Date()),
  toUTCString = c(Sys.time(), Sys.Date())
)
head(date)
```
         toDateString         toISOString  toLocaleDateString      toLocaleString  toLocaleTimeString            toString        toTimeString
1 2022-10-09 21:45:53 2022-10-09 21:45:53 2022-10-09 21:45:53 2022-10-09 21:45:53 2022-10-09 21:45:53 2022-10-09 21:45:53 2022-10-09 21:45:53
2 2022-10-09 08:00:00 2022-10-09 08:00:00 2022-10-09 08:00:00 2022-10-09 08:00:00 2022-10-09 08:00:00 2022-10-09 08:00:00 2022-10-09 08:00:00
          toUTCString
1 2022-10-09 21:45:53
2 2022-10-09 08:00:00

换作先生成矩阵，再转化成数据框，日期就变得很奇怪了。

```{r}
date <-
  matrix(rep(c(Sys.time(), Sys.Date()), 8),
         nrow = 2,
         ncol = 8,
         byrow = T)
date <- as.data.frame(date)
methods <- c(
  'toDateString',
  'toISOString',
  'toLocaleDateString',
  'toLocaleString',
  'toLocaleTimeString',
  'toString',
  'toTimeString',
  'toUTCString'
)
colnames(date) <- methods
head(date)
```
  toDateString toISOString toLocaleDateString toLocaleString toLocaleTimeString   toString toTimeString toUTCString
1   1665323289  1665273600         1665323289     1665273600         1665323289 1665273600   1665323289  1665273600
2   1665323289  1665273600         1665323289     1665273600         1665323289 1665273600   1665323289  1665273600

这是为撒呢？

chuxinyuan

矩阵里的元素必须是实数或复数。我们看到的日期型数据其实底层都映射了一个具体的数值。

yuanfan

chuxinyuan
哦，可是后面用矩阵生成的数据，再转换成日期格式，也不是今天，而是1970-01-20.

```{r}
library(DT)
datatable(
  date,
  extensions = 'FixedColumns', #冻结窗格
  options = list(
    dom = 't',
    scrollX = TRUE,
    fixedColumns = list(leftColumns = 2, rightColumns = 1) 
  )
) |>
  formatDate(
    columns = 1:8,
    method = methods
  )
```

fenguoerbian

data.frame的本质是个list，所以里面存的变量可以各种类型都允许。而关于matrix，可以参考它的文档中关于参数data的说明：

an optional data vector (including a list or expression vector). 
Non-atomic classed R objects are coerced by as.vector and all attributes discarded.

也就是说只支持基础数据类型，并且在转换的时候会舍弃所有属性。

而Sys.Date()和Sys.time() 实际上底层都是单纯的数值，是相对于1970-01-01过去的天数和秒数。属性是Date和POSIXct，POSIX。

attributes(Sys.Date())
attributes(Sys.time())

在你rep他俩在一起之后，两者都变成Sys.time所对应的那个秒数，当然整天数的时候对应的秒数就会是整数，这在你的结果里也能看出来。

至于转换回来，首先要考虑DT::formatDate的这些方法所需要的输入真的是你传进去的这些秒数吗？是否有额外参数需要设置呢？以base R而言还是可以转换回来的（虽然我这个做法可能不精确）:

as.Date(
    date / 3600 / 24,     #  date中是秒数，转化为天数
    origin = as.Date("1970-01-01"))

恩，刚去查了formatDate的文档，关于methods的具体文档在此处，可以看到它输入的需要是milliseconds，而这里date中保存的单位是second，所以需要乘个1000就行了吧。

datatable(
  date * 1000,    # 需要milliseconds为单位
  extensions = 'FixedColumns', #冻结窗格
  options = list(
    dom = 't',
    scrollX = TRUE,
    fixedColumns = list(leftColumns = 2, rightColumns = 1) 
  )
) |>
  formatDate(
    columns = 1:8,
    method = methods
  )

yuanfan

fenguoerbian
哦，明白了，谢谢您。
话说引用的那段英文背景好好看，仔细看上下边框还有小小的锯齿线，这个是怎么做到的呢？

fenguoerbian

就是一个“引用”的格式，回帖的时候在下方编辑栏可以选。实际就是在要引用的内容的每一行开头加上">"的符号。

像这样
> 这是一个引用
就会得到

这是一个引用

yuanfan