Временные ряды графика, зная только время начала / дату и периоды выборки

Question

Я хочу построить временной ряд плотности со следующими данными:

вектор плотности (4,2,5,8,4,6,4) вектор периода выборки (единица измерения: секунды) (2,2,2,2,3,2,2)

Как видите, период выборки не является постоянным. Я знаю только дату и время начала.

Мне нужно как-то назначить дату начала для первого измерения, а затем вычислить следующие даты и время для следующих измерений, но я не знаю, как именно ее кодировать.

Answer 1

Попробуйте сначала преобразовать желаемый вектор в ts, при условии начального времени начала и периода периода. Я предположил, что вы пробуете непрерывный процесс (нет времени нахождения / смерти)

require (lubridate)
require (tidyr)
require (ggplot2)
require (ggfortify)
require (timetk)


density <- c (4,2,5,8,4,6,4)
seconds <- c (2,2,2,2,3,2,2)
starttime <- 0
time <- 0 + cumsum (seconds)

df <- as.data.frame (cbind (time, seconds, density))
df$time <- as_datetime(df$time)
df$ts <- tk_ts (df, select = density)

autoplot (df$ts, ts.geom = 'bar', fill = 'blue')

Answer 2

График зависимости плотности от суммарной суммы секунд, добавленных к началу.

dens <- c(4,2,5,8,4,6,4)
secs <- c(2,2,2,2,3,2,2)
st <- as.POSIXct("2000-01-01 00:00:00")

plot(st + cumsum(secs), dens, xlab = "", type = "l")