请教：关于数据框中时间变量格式转换

earclimate

如题。

想把数据框中非NA值的ts数值（读取自Excel）转换为日期（如"2013-06-27"）。数据如下，单个向量转化没有问题，对数据框转化总是得不到日期变量，数据如下：

dput(dd)

structure(list(播种 = c(NA, "1982-06-11 00:00:00", NA, NA), 出苗 = c(NA,

"1982-06-16 00:00:00", NA, NA)), .Names = c("播种", "出苗"), row.names = 7:10, class = "data.frame")

str(dd)

'data.frame': 4 obs. of 2 variables:

$ 播种: chr NA "1982-06-11 00:00:00" NA NA

$ 出苗: chr NA "1982-06-16 00:00:00" NA NA

#预期结果

as.Date(as.POSIXct("2012-09-18 00:00:00"))

[1] "2012-09-17"

apply(dd,c(1,2),function(x) as.Date(as.POSIXct(x)))

播种出苗

7 NA NA

8 4543 4548

9 NA NA

10 NA NA

PS：按列来算，可以得到正确结果：

as.Date(as.POSIXlt(dd[,1]))

问题是想知道为什么对数据框无法直接使用函数，用apply后又得不到正确结果？？

helend

apply函数应用于matrix或者array。如果你查看apply函数的源代码，apply调用了unlist函数将所有元素的属性值去掉了。

<br />
ts <- c('1982-06-11 00:00:00', '1982-06-16 00:00:00')<br />
ts <- as.Date(as.POSIXct(ts))<br />
unlist(as.list(ts))</p>
<p>[1] 4543 4548<br />

</p>

并且array或者matrix不能存储Non-atomic class，在matrix的帮助页面可以看到“an optional data vector (including a list or expression vector). Non-atomic classed R objects are coerced by as.vector and all attributes discarded.”

<br />
matrix(ts, nrow = 1)<br />
     [,1] [,2]<br />
[1,] 4543 4548<br />

</p>

Robert_Hoo

<br />
dd <- cbind(BZ = c(NA,NA, as.character("1982-06-11 00:00:00"),NA), CM = c(NA,NA,"1982-06-16 00:00:00", NA))<br />
DD <- matrix(as.character(as.Date(as.POSIXct(dd))),nrow(dd))  ##先用as.character把变量类型变过来，因为matrix只能存储单一类型的变量</p>
<p>[,1]         [,2]<br />
[1,] NA           NA<br />
[2,] NA           NA<br />
[3,] "1982-06-11" "1982-06-16"<br />
[4,] NA           NA </p>
<p>

</p>

earclimate

回复第2楼的 helend：原来如此！！

非常感谢，解释得很清楚！！

earclimate

回复第3楼的 Robert_Hoo：非常感谢，使用as.character转化下果然可以。另外首先需要先对dd进行matrix转换下!

felix_lee

涉及到数据类型的时候，确实容易出现这样那样的问题，特别是涉及到关系型数据库的读写的时候显得异常麻烦，不知道有没有好的解决办法