在使用Pandas的Python中,您可以使用df.resample(‘W’).ffill()来完成它。什么是R中的等价物?
到目前为止,我已经知道了这一点,但是它使用的是周结束数据,而且代码看起来不太容易读懂:
downsample_weekly <- function(tbl, DATE) {
ds_ts <- xts(tbl, order.by = as.POSIXct(tbl$DATE))
as_tibble(ds_ts[endpoints(ds_ts, "weeks")])
}
发布于 2018-04-10 09:33:27
您想在某些数据字段中提取对应于星期一的tibble行吗?
library(tidyverse)
library(lubridate)
# Example data
foo <- data_frame(Date = seq(ymd("2018-01-01"), ymd("2018-01-31"), length.out = 31),
Bar = runif(31))
foo %>%
filter(weekdays(Date) == "Monday")
#> # A tibble: 5 x 2
#> Date Bar
#> <date> <dbl>
#> 1 2018-01-01 0.865
#> 2 2018-01-08 0.119
#> 3 2018-01-15 0.778
#> 4 2018-01-22 0.440
#> 5 2018-01-29 0.550
还不清楚为什么您的代码使用xts
。
https://stackoverflow.com/questions/49759152
复制相似问题