打开/关闭分钟价格数据。 “下一分钟打开”始终等于“前一分钟关闭”。数据集示例:
dt open close
1998-01-02 09:30:00 100 101
1998-01-02 09:31:00 101 102
...
1998-01-02 15:59:00 105 106
我要在最后一行之后添加另一行,如下所示:
dt open close
1998-01-02 09:30:00 100 101
1998-01-02 09:31:00 101 102
...
1998-01-02 15:59:00 105 106
1998-01-02 16:00:00 106 NA
即,时间戳增加一分钟,打开等于前一分钟关闭,关闭为NA。我幼稚的方法不有效:
library(lubridate)
library(dplyr)
data <- add_row(data, dt = max("dt") + minute(1), open = close[[n()]])
有什么想法吗?
答案 0 :(得分:3)
首先,您应该使用minutes
(创建时间段),而不要使用minute
(用于获取日期时间的分钟部分)。其次,在add_row
中您不能像其他data
函数中那样使用字符串或列名来引用dplyr
中的列。
一种方法是:
> data <- data %>% add_row(dt = max(.$dt) + minutes(1), open = last(.$close))
> data
# A tibble: 4 x 3
dt open close
<dttm> <int> <int>
1 1998-01-02 09:30:00 100 101
2 1998-01-02 09:31:00 101 102
3 1998-01-02 15:59:00 105 106
4 1998-01-02 16:00:00 106 NA
示例data
在哪里:
> dput(data)
structure(list(dt = structure(c(883733400, 883733460, 883756740
), class = c("POSIXct", "POSIXt"), tzone = "UTC"), open = c(100L,
101L, 105L), close = c(101L, 102L, 106L)), row.names = c(NA,
-3L), class = c("tbl_df", "tbl", "data.frame"))
答案 1 :(得分:0)
我们也可以使用bind_rows
library(tidyverse)
data %>%
summarise(dt = max(dt) + minutes(1), open = last(close)) %>%
bind_rows(data, .)
# A tibble: 4 x 3
# dt open close
# <dttm> <int> <int>
#1 1998-01-02 09:30:00 100 101
#2 1998-01-02 09:31:00 101 102
#3 1998-01-02 15:59:00 105 106
#4 1998-01-02 16:00:00 106 NA