Question

我试图在2015-04-18到2015-11-13（仅限星期六和星期日）创建日期时间列表，时间为7:00到22:30。我到目前为止的代码是：

RadioButton

qmlscene功能无法正常工作，因为它可以回收＆＃39;价值。所以，基本上我想要一组看起来像这样的值：

dates <- seq(as.Date("2015-04-18"),as.Date("2015-11-13"),1)
weekdays<- weekdays(dates)
times<-format(seq(as.POSIXct("2015-04-18 7:30:00"),as.POSIXct("2015-04-18 22:30:00"),by="30 min"),format="%H:%M")
res <- data.frame(dates,weekdays)
res<-res[res$weekdays=="Sunday" | res$weekdays=="Saturday",]

序列中的每一天。我觉得这是一个paste()功能，可以实现这一目标，但我并不熟悉它们。

Answer 1

您可以使用expand.grid查找所有组合：

combo <- with(expand.grid(as.character(times), as.character(res$dates)), paste(Var2, Var1))
head(combo)
# [1] "2015-04-18 07:30" "2015-04-18 08:00" "2015-04-18 08:30" "2015-04-18 09:00" "2015-04-18 09:30"
# [6] "2015-04-18 10:00"

创建从7:30到22:30的时间列表

1 个答案: