>>543
idx <- seq(10, length(time), by=24)
result <- data[idx]
じゃダメなのか?