Question

我有一个日期列的字样：

df <- structure(list(date = structure(c(1489494191.81966, 1489494125.153, 
    1489494058.48633, 1489493991.81966, 1489493925.153, 1489493858.48633, 
    1489493791.81966, 1489493725.153, 1489493658.48633, 1489493591.81966
    ), class = c("POSIXct", "POSIXt"), tzone = "")), .Names = "date", class = c("tbl_df", 
    "tbl", "data.frame"), row.names = c(NA, -10L))

df

# A tibble: 10 × 1
                  date
                <dttm>
1  2017-03-14 13:23:11
2  2017-03-14 13:22:05
3  2017-03-14 13:20:58
4  2017-03-14 13:19:51
5  2017-03-14 13:18:45
6  2017-03-14 13:17:38
7  2017-03-14 13:16:31
8  2017-03-14 13:15:25
9  2017-03-14 13:14:18
10 2017-03-14 13:13:11

我希望将其转换为列表列，其中包含部件列表（年，月，日，小时，分钟，秒），如：

# A tibble: 10 × 1
                     result
                     <list>
1  list(2017,3,14,13,23,11)
2  list(2017,3,14,13,22,5)
3  list(2017,3,14,13,20,58)
4  list(2017,3,14,13,19,51)
5  list(2017,3,14,13,18,45)
6  list(2017,3,14,13,17,38)
7  list(2017,3,14,13,16,31)
8  list(2017,3,14,13,15,25)
9  list(2017,3,14,13,14,18)
10 list(2017,3,14,13,13,11)

我尝试过一系列字符串拆分策略，但效率非常低（实际df很大）。列表的组件最后需要是整数或数字。

有巧妙的方法吗？

修改

这就是我现在正在做的事情，但它似乎没有那么好地扩展：

library(lubridate)
library(purrr)

df %>%
  transmute(y = year(date),
            m = month(date),
            d = day(date),
            hh = hour(date),
            mm = minute(date),
            ss = second(date)
         ) %>%
  by_row(c, .to = "result") %>%
  select(result)

# A tibble: 10 × 1
       result
       <list>
1  <list [6]>
2  <list [6]>
3  <list [6]>
4  <list [6]>
5  <list [6]>
6  <list [6]>
7  <list [6]>
8  <list [6]>
9  <list [6]>
10 <list [6]>

Answer 1

您可以使用library(lubridate)：

library(lubridate)

y <- year(df$date)
m <- month(df$date)
d <- day(df$date)
h <- hour(df$date)
min <- minute(df$date)
s <- as.integer(second(df$date))

然后合并到一个列表。

res <- lapply(1:length(y), function(x){

  return(c(y[x], d[x], d[x], h[x], min[x], s[x]))

})

tibble::tibble(res)

Answer 2

您可以使用<parent> <groupId>com.mycompany</groupId> <artifactId>MyProject</artifactId> <version>8</version> <relativePath>path-to-your-parent-pom.xml</relativePath> </parent>作为一行代码执行此操作：

data.table

将DT[, unclass(as.POSIXlt(date))][, .(year+1900, mon, mday, hour, min, sec)]转换为data.frame，将日期转换为POSIXlt格式。

data.table

这将操作链接起来，结果如下：

DT <- as.data.table(df)
DT[, unclass(as.POSIXlt(date))][, ':=' (year=year+1900, mon=mon+1, sec=floor(sec)) ][, .(year, mon, mday, hour, min, sec)]

这可能是R中处理数百万条按日期分割日期的记录的最快方式。

日期时间列列出部分列

2 个答案: