0

だから私はID番号と時間に関するデータを持っています

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時間間隔にして、その特定の時間に対応するIDを取得したい...私はこのコードを使用することに決めたdata <- data2[seq(0, nrow(data2), by=5), ] が、時間は10時間間隔ではなく... ID番号は10間隔である....しかし、私はその出力を望んでいません..これまでのところ、この出力を得ています

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

2 に答える 2

0

%%(mod) 演算子を使用できます。

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

于 2013-03-11T10:17:38.793 に答える
0

cut()andを使用し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
于 2013-03-11T11:11:35.540 に答える