从 SPLUS 的 timeSpan 类到 R 的 POSIXlt 类答案

【问题标题】：From timeSpan class of SPLUS to POSIXlt class of R从 SPLUS 的 timeSpan 类到 R 的 POSIXlt 类
【发布时间】：2017-07-26 02:19:53
【问题描述】：

我正在尝试将具有 timeSpan 类的 SPLUS 数据转换为具有 POSIXlt 类的 R 数据。我查看了lubridate 包，但找不到方法。 R 无法检测到 timeSpan 类，因此当我尝试使用数据创建变量时它会吐出错误。

lubridate 软件包帮助文件 ?'lubridate-package' 这么说

Lubridate 区分时间点（称为瞬间）和时间跨度（称为时间跨度，请参阅时间跨度类）。时间 span 进一步分为 Duration-class、Period-class 和间隔类对象。

我还从包开发人员编写的lubridate 上的article 寻求帮助，但找不到解决方法。是否可以将SPLUS 的timeSpan 类转换为R 中的posixlt 类？

SPLUS 数据：

"span" = new("timeSpan", .Data = list(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 7,
    7, 30, 30, 91, 91, 365, 1826, 9131, 36525),
    c(1, 1, 2, 5, 10, 25, 50, 100, 250, 500, 1000, 5000, 15000, 60000, 60000, 
    300000, 300000, 900000, 900000, 3600000, 10800000, 10800000, 21600000,
    0, 0, 0, 37800000, 37800000, 27000000, 27000000, 21600000, 21600000,
    21600000, 0)),
   .Data.names = c("julian.day", "milliseconds"),
   .Data.classes = new("CLASS",c("integer", "integer")),
   format = "%dd %Hh %Mm %Ss %NMS")

在 SPLUS 工作台上评估后的数据外观：

span
 [1] 0d 0h 0m 0s 1MS     0d 0h 0m 0s 1MS     0d 0h 0m 0s 2MS    
 [4] 0d 0h 0m 0s 5MS     0d 0h 0m 0s 10MS    0d 0h 0m 0s 25MS   
 [7] 0d 0h 0m 0s 50MS    0d 0h 0m 0s 100MS   0d 0h 0m 0s 250MS  
[10] 0d 0h 0m 0s 500MS   0d 0h 0m 1s 0MS     0d 0h 0m 5s 0MS    
[13] 0d 0h 0m 15s 0MS    0d 0h 1m 0s 0MS     0d 0h 1m 0s 0MS    
[16] 0d 0h 5m 0s 0MS     0d 0h 5m 0s 0MS     0d 0h 15m 0s 0MS   
[19] 0d 0h 15m 0s 0MS    0d 1h 0m 0s 0MS     0d 3h 0m 0s 0MS    
[22] 0d 3h 0m 0s 0MS     0d 6h 0m 0s 0MS     1d 0h 0m 0s 0MS    
[25] 7d 0h 0m 0s 0MS     7d 0h 0m 0s 0MS     30d 10h 30m 0s 0MS 
[28] 30d 10h 30m 0s 0MS  91d 7h 30m 0s 0MS   91d 7h 30m 0s 0MS  
[31] 365d 6h 0m 0s 0MS   1826d 6h 0m 0s 0MS  9131d 6h 0m 0s 0MS 
[34] 36525d 0h 0m 0s 0MS

R 控制台出错：

Error in getClass(Class, where = topenv(parent.frame())) : 
  “timeSpan” is not a defined class

【问题讨论】：

标签： r lubridate s-plus

【解决方案1】：

从 S 对象中取出核心 list .Data 对象，然后您可以将其操作为 R difftime，然后可以从 POSIXct/lt 或 Date 对象中添加/减去：

out <- Reduce(`+`,
         Map(as.difftime, Map(`/`, x, c(1,1000)), units=list("days","secs"))
       )
units(out) <- "days"

round(out,4)
#Time differences in days
# [1]     0.0000     0.0000     0.0000     0.0000     0.0000     0.0000
# [7]     0.0000     0.0000     0.0000     0.0000     0.0000     0.0001
#[13]     0.0002     0.0007     0.0007     0.0035     0.0035     0.0104
#[19]     0.0104     0.0417     0.1250     0.1250     0.2500     1.0000
#[25]     7.0000     7.0000    30.4375    30.4375    91.3125    91.3125
#[31]   365.2500  1826.2500  9131.2500 36525.0000

x 在哪里：

x <- list(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 1, 7, 7, 30, 30, 91, 91, 365, 1826, 9131, 36525
), c(1, 1, 2, 5, 10, 25, 50, 100, 250, 500, 1000, 5000, 15000, 
60000, 60000, 3e+05, 3e+05, 9e+05, 9e+05, 3600000, 10800000, 
10800000, 21600000, 0, 0, 0, 37800000, 37800000, 2.7e+07, 2.7e+07, 
21600000, 21600000, 21600000, 0))

【讨论】：