r - 为什么在强制转换为字符时列表中的日期首先转换为数字

Question

我正在尝试将一列日期转换为字符串，因为我想在稍后的代码中将它们用作因子级别。

日期列是 tibble 的一部分，属于 Date 类。我认为一个简单的 as.character() 转换就可以解决问题，但不幸的是我错了。它返回一个字符串形式的数字，而不是整齐格式化的字符串。例如，今天(2017 年 11 月 22 日)将显示为“17492”。所以在这个过程的某个地方，日期被转换成它的数字格式，然后才变成一个字符串。

现在我确实找到了一种解决方法，通过取消列出数据，将其再次转换为日期，然后再转换为字符串，但效率相当低。

任何人都可以解释 i) 为什么会发生这种情况以及 ii) 是否有更简单的解决方法？

下面是一个可重现的例子:

#Get current system date
foo <-Sys.Date()
#Convert to list
foo <- as.list(foo)
#The following then produces the number string:
as.character(foo)
[1] "17492"
#The following code works but is a rather annoying work-around
as.character(as.Date(unlist(foo), origin=as.Date("1970-01-01")))
[1] "2017-11-22"

Answer 1

鉴于有用的评论和提供的最终解决方案的数量，我将在此处发布答案摘要。

如果遇到此问题，首先要做的是检查您是否真的要转换完整列表，或者 列表中的一列，该列实际上是一个向量 .正如 MrFlick 和 neilfws 指出的那样，这是我的潜在问题。我错过的原因是因为在我的情况下，列表是一列小标题，该列被命名为“日期”。使用 as.character(foo)返回了我的“数字字符串”"17492" ，但使用 as.character(foo$date) , 做了它应该做的事情并返回 "2017-11-22" .

如果您的列表真的只是一个列表或列表列表，d.b. 的解决方案。轻而易举:使用 lapply(foo, as.character)或 sapply(foo, as.character)取决于您想要的输出。

现在至于为什么会发生这种情况:直接原因，正如 d.b. 所指出的。是如果as.character()首先遇到一个列表unlist()它，然后进行转换。

joran 指出的更深层次的原因以及关于该问题的重复问题 here .简而言之:通常将完整列表转换为单个数据类型类是没有意义的，因为它可以包含多个。例如 as.numeric(foo)只会返回一个错误。唯一的异常(exception)是 as.character() ，这实际上是对列表的完整写出(可能是为了保留记录)。