R программы - получение конкретных значений в зависимости от другого столбца

Question

Поэтому у меня есть данные о идентификационный номер и время

Id number Time(hr) 
1 5 
2 6.1 
3 7.2 
4 8.3 
5 9.6 
6 10.9 
7 13 
8 15.1 
9 17.2 
10 19.3 
11 21.4 
12 23.5 
13 25.6 
14 27.1 
15 28.6 
16 30.1 
17 31.8 
18 33.5 
19 35.2 
20 36.9 
21 38.6 
22 40.3 
23 42 
24 43.7 
25 45.4 

Я хочу, чтобы этот выход

Time Id number 
    10 5 
    20 10 
    30 16 
    40 22 

Так что я хочу время быть в 10 час интервалы и получить идентификатор, соответствующий этому конкретному часу ... Я решил использовать этот код data <- data2[seq(0, nrow(data2), by=5), ], но вместо времени, находящегося в 10-часовых интервалах ... Идентификационный номер находится через 10 интервалов .... но я не хочу, чтобы output..so далеко я получаю этот выход

Id.number Time..s. 
     10  19.3 
     20  36.9 

Answer 1

Вы можете использовать %% (mod) оператор.

data[data$Time %% 10 == 0, ]

Answer 2

Я использую cut() и cumsum(table()), но я не совсем получить ответ, который вы ожидаете. Как именно вы это вычисляете?

# first load the data 
v.txt <- '1 5 
2 6.1 
3 7.2 
4 8.3 
5 9.6 
6 10.9 
7 13 
8 15.1 
9 17.2 
10 19.3 
11 21.4 
12 23.5 
13 25.6 
14 27.1 
15 28.6 
16 30.1 
17 31.8 
18 33.5 
19 35.2 
20 36.9 
21 38.6 
22 40.3 
23 42 
24 43.7 
25 45.4' 
# load in the data... awkwardly... 
v <- as.data.frame(matrix(as.numeric(unlist(strsplit(strsplit(v.txt, '\n')[[1]], ' +'))), byrow=T, ncol=2)) 
tens <- seq(from=0, by=10, to=100) 
v$cut <- cut(v$Time, tens, labels=tens[-1]) 
v2 <- as.data.frame(cumsum(table(v$cut))) 
names(v2) <- 'Time' 
v2$Id <- rownames(v2) 
rownames(v2) <- 1:nrow(v2) 
v2 <- v2[,c(2,1)] 
rm(v, v.txt, tens) # not needed anymore 
v2 # the answer... but doesn't quite match your expected answer... 

    Id Time 
1 10 5 
2 20 10 
3 30 15 
4 40 21 
5 50 25