Генерация временной последовательности для торговых часов

Я хотел бы создать последовательность, в которой я генерирую точки в 9:30 и 16:00, начиная с Sys.time() до указанной даты окончания.

#So for example if:
end.date = 2019-04-12 
Sys.time() = 2019-04-10 12:00 #the sequence should look like this.

2019-04-10 12:00
2019-04-10 16:00
2019-04-11 09:30
2019-04-11 16:00
2019-04-12 09:30
2019-04-12 16:00

#The goal is to put it into a function where the output would be :

x = function(Sys.time(), end.date)
print(x)
 2019-04-10 12:00
 2019-04-10 16:00
 2019-04-11 09:30
 2019-04-11 16:00
 2019-04-12 09:30
 2019-04-12 16:00

r time-series

09.04.2019 04:53

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Мы могли бы создать функцию, используя outer

get_date_time <- function(start.date, end.date, times) {
  c(outer(seq(as.Date(start.date), as.Date(end.date), by = "1 day"), 
  times, paste, sep = " "))
}

get_date_time("2019-04-10","2019-04-12",c("09:30:00", "16:30:00"))

#[1] "2019-04-10 09:30:00" "2019-04-11 09:30:00" "2019-04-12 09:30:00" 
#[4] "2019-04-10 16:30:00" "2019-04-11 16:30:00" "2019-04-12 16:30:00"

Приведенное выше возвращает вывод в символьном формате. Если вам нужен объект даты и времени, а также важен порядок значений, мы можем использовать их as.POSIXct и sort.

get_date_time <- function(start.date, end.date, times) {
   sort(as.POSIXct(outer(seq(as.Date(start.date), as.Date(end.date), by = "1 day"), 
   times, paste, sep = " ")))
}

#[1] "2019-04-10 09:30:00 +08" "2019-04-10 16:30:00 +08" "2019-04-11 09:30:00 +08" 
#[4] "2019-04-11 16:30:00 +08" "2019-04-12 09:30:00 +08" "2019-04-12 16:30:00 +08"

09.04.2019 05:09

Другие вопросы по теме

Как заполнить Даты в функции ts(), если отсутствуют данные за многие месяцы более 2 лет?

Как использовать данные временных рядов за 24 часа в качестве функции прогнозирования

Ошибка при импутации дневных временных рядов с пакетом зоопарка

Получение максимального значения для прокатки 15 минут

Временные ряды с использованием линейной регрессии

Как изменить выборку столбца по идентификатору

Как я могу ввести темпы роста и стандартное отклонение скользящего окна годовых данных о продажах в R?

Как выполнить итерацию веб-скрипта над объектом ежедневного временного ряда, чтобы создать ежедневный временной ряд данных с веб-страницы

Анализировать временные ряды без дат

Добавление строк на основе данных TimeSeries с использованием R

Генерация временной последовательности для торговых часов

Ответы 1

Другие вопросы по теме

Похожие вопросы