m*****n
发帖数: 3575 | 1 R设计日期时间的这帮人真是懒到了极点
根本没有把国际标准时间的日期和时间给分割的函数
于是我自己想办法分割，竟然也不对！
用的办法是造出来和原来标准时同一天的零点标准时
再相减
早上10点钟只过了零点2.5小时是什么鬼！
> mytime = as.POSIXlt("2010-11-21 10:30:40")
> timeorigin = as.POSIXlt(as.Date(mytime))
> format(mytime, '%Y-%m-%d %H:%M:%S' )
[1] "2010-11-21 10:30:40"
> format(timeorigin, '%Y-%m-%d %H:%M:%S' )
[1] "2010-11-21 00:00:00"
> mytime - timeorigin
Time difference of 2.511111 hours
> Sys.timezone()
[1] "Asia/Taipei"
R的铁杆粉们给解释解释？ |
m*****n
发帖数: 3575 | 2 > mytime
[1] "2010-11-21 10:30:40 CST"
> timeorigin
[1] "2010-11-21 UTC"
这又是什么鬼？自己改时区了？ |
d******c
发帖数: 2407 | 3 帮助里有，你没有看
?as.Date
## S3 method for class 'POSIXct'
as.Date(x, tz = "UTC", ...)
缺省使用了UTC
另外一般不要用POSIXlt, 应该用POSIXct
日期相关操作使用lubridate
> library(lubridate)
> mytime <- ymd_hms("2010-11-21 10:30:40")
> mytime
[1] "2010-11-21 10:30:40 UTC"
> hour(mytime)
[1] 10
> minute(mytime)
[1] 30 |
m******r
发帖数: 1033 | 4 你简直太牛逼了 什么都知道。
上回你给我的factor文档，我是来来回回看，自认为是个比较有耐心的人，还是看的云
里雾里。
R文档的缺点，我总结如下：
不是为实际应用设计的，说一些底层的东西，又没说透。 文风是想到哪里写到哪里。
建议：1. 看文档的时候，多想想自己以后怎么用它。
2. 实在看不懂，就算了。
【在 d******c 的大作中提到】
: 帮助里有，你没有看
: ?as.Date
: ## S3 method for class 'POSIXct'
: as.Date(x, tz = "UTC", ...)
: 缺省使用了UTC
: 另外一般不要用POSIXlt, 应该用POSIXct
: 日期相关操作使用lubridate
: > library(lubridate)
: > mytime <- ymd_hms("2010-11-21 10:30:40")
: > mytime
|
g****t
发帖数: 31659 | 5 招商银行现在好几个地方都是机器人回答常见问题。
文风还和老邢的机器人挺像，LoL
软件手册迟早也应该这样。
【在 m******r 的大作中提到】
: 你简直太牛逼了 什么都知道。
: 上回你给我的factor文档，我是来来回回看，自认为是个比较有耐心的人，还是看的云
: 里雾里。
: R文档的缺点，我总结如下：
: 不是为实际应用设计的，说一些底层的东西，又没说透。 文风是想到哪里写到哪里。
: 建议：1. 看文档的时候，多想想自己以后怎么用它。
: 2. 实在看不懂，就算了。
|
m******r
发帖数: 1033 | 6 现在连好多推销电话都是机器人的，你问问题，对方马上能回答出来，没有时间间隔，
和真人一样。 还能模仿人类的笑声，跟你small talk, 神了。 不过你多接几次电话，
发现她总是说：
'hahahaha...I forgot to put on my headset just now..I have a Caribbean
cruise coupon for you... '
【在 g****t 的大作中提到】
: 招商银行现在好几个地方都是机器人回答常见问题。
: 文风还和老邢的机器人挺像，LoL
: 软件手册迟早也应该这样。
|
m*****n
发帖数: 3575 | 7 谢谢
勉强可以分割了
> require(lubridate)
> now()-> thetime
> thetime - floor_date(thetime,"day") #得到difftime对象
虽然lubridate也有一些问题，例如识别不出CST时区
【在 d******c 的大作中提到】
: 帮助里有，你没有看
: ?as.Date
: ## S3 method for class 'POSIXct'
: as.Date(x, tz = "UTC", ...)
: 缺省使用了UTC
: 另外一般不要用POSIXlt, 应该用POSIXct
: 日期相关操作使用lubridate
: > library(lubridate)
: > mytime <- ymd_hms("2010-11-21 10:30:40")
: > mytime
|
