Установка временных интервалов для графика [R]

К моему previous question, из набора данных, как я могу использовать его в течение 20-минутного интервала времени.Установка временных интервалов для графика [R]

Я пробовал оба решения, но оба они показывают одинаковые результаты. Мой набор данных не принимает все значения, когда я пытаюсь преобразовать его в другой временной интервал (скажем, 20 минут).

Возможно ли преобразовать его в data.frame() вместо data.table(). Это один из ответа, данного akrun:

x y date time 
1 2 1-1-01 15:00 
2 5 1-1-01 17:00 
3 1 1-1-01 18:00 
5 7 1-1-01 21:00 
2 6 1-1-01 22:00 
6 3 1-1-01 23:00 
9 2 2-1-01 01:00 
6 1 2-1-01 04:00 
..... 

library(data.table) 
DT <- setDT(df1)[, {tmp <- as.numeric(substr(time,1,2)) 
list(time=sprintf('%02d:00', min(tmp):max(tmp)))}, date] 
df1[DT, on=c('date', 'time')] 
DT <- setDT(df1)[, list(time=sprintf('%02d:00', 0:23)) , date] 
res <- df1[DT, on=c('date', 'time') 
     ][,{tmp <- which(!(is.na(x) & is.na(y))) 
     .SD[tmp[1L]:tmp[length(tmp)]]}] 
res 

library(zoo) 
res[, c('x', 'y') :=lapply(.SD, na.approx), .SDcols= x:y]

источник

2015-07-27 Anonymous

Не могли бы вы окупить здесь весь код? –

Ваши исходные данные - один час. Расскажите, как x и y будут разделены на 20-минутный интервал, пропорционально? или у вас есть данные высокой частоты? – Robert

@Robert Да, пропорционально .. У меня есть данные с высокой частотой, но он не является непрерывным ... Иногда у меня есть данные минут, но иногда у меня есть временные интервалы в hrs .. поэтому я пытаюсь иметь умеренный набор данных. –

просил, чтобы запустить следующий код ...

df1 <- structure(list(x = c(1L, 2L, 3L, 5L, 2L, 6L, 9L, 6L), y = c(2L, 
5L, 1L, 7L, 6L, 3L, 2L, 1L), date = c("1-1-01", "1-1-01", "1-1-01", 
"1-1-01", "1-1-01", "1-1-01", "2-1-01", "2-1-01"), time = c("15:00", 
"17:00", "18:00", "21:00", "22:00", "23:00", "01:00", "04:00" 
)), .Names = c("x", "y", "date", "time"), class = "data.frame", 
row.names = c(NA, -8L)) 


library(chron) 
library(data.table) 


time<-as.character(substr(times(00:71/72),1,5)) 
dates <- paste0(1:2,'-1-01') 

all.dt <- expand.grid(date=dates,time=time) 
big.data <- merge(all.dt, df1, all.x=TRUE)

Теперь для последней части вы можете заполнить NA, выполнив следующий код

library(zoo) 
big.data <- within(big.data,{ 
     x <- na.approx(x,na.rm=FALSE) 
     y <- na.approx(y,na.rm=FALSE) 
})

источник

2015-07-27 14:13:42

@Fairy Вы можете удалить 'library (data.table)'. В целом код 'data.table' нигде не используется. Также вывод 'big.data' является фреймом данных (проверьте' is.data.frame (big.data)) '. Поскольку ваша дата отличается, вы можете удалить строку 'date <- paste0 (1: 2, '- 1-01')' и генерировать последовательность переменной даты с помощью 'seq (as.Date (date, format), as. Дата (дата, формат), на = «день»). –

'Ошибка в as.Date.default (дата, формат): не знаю, как преобразовать 'date' в класс" Date "' Это дает мне ошибку, когда я создаю последовательность. –

Попробуйте использовать xts. Я использовал какие-то разные данные, чтобы «увидеть» результаты:

indata <- read.table(text='x y date time 
1 2 1-1-01 15:00 
2 2 1-1-01 15:19 
         2 5 1-1-01 17:00 
         3 1 1-1-01 17:05 
         3 1 1-1-01 18:00 
         3 1 1-1-01 18:20 
         5 7 1-1-01 21:05 
         6 6 1-1-01 21:08 
         2 6 1-1-01 22:00 
         6 3 1-1-01 23:11 
         9 2 2-1-01 1:00 
         9 2 2-1-01 1:21 
         6 1 2-1-01 4:29 
         ', header=TRUE,stringsAsFactors = F) 


library(xts) 
xt <- strptime(paste(indata$date,indata$time), 
       "%d-%m-%y %H:%M") 
its=xts(x = indata[,1:2], 
    order.by = xt, 
    frequency = NULL) 

period.apply(its, INDEX=endpoints(xt, on="minutes", k=20), FUN=mean) 

         x y 
2001-01-01 15:19:00 1.5 2.0 
2001-01-01 17:05:00 2.5 3.0 
2001-01-01 18:00:00 3.0 1.0 
2001-01-01 18:20:00 3.0 1.0 
2001-01-01 21:08:00 5.5 6.5 
2001-01-01 22:00:00 2.0 6.0 
2001-01-01 23:11:00 6.0 3.0 
2001-01-02 01:00:00 9.0 2.0 
2001-01-02 01:21:00 9.0 2.0 
2001-01-02 04:29:00 6.0 1.0

источник

2015-07-28 00:24:38 Robert

Установка временных интервалов для графика [R]

ответ

Смежные вопросы