【发布时间】：2014-05-21 20:12:02
【问题描述】：
我有一个如下的数据框。最初它只是两列/变量-“时间戳”（包含日期和时间）和“演员”。我将“时间戳”变量分解为“日期”和“时间”，然后将“时间进一步分解为“小时”和“分钟”。然后给出以下结构
dataf<-structure(list(hours = structure(c(3L, 4L, 4L, 3L, 3L, 3L, 6L,
6L, 6L, 6L, 6L, 2L, 2L, 2L, 2L, 5L, 5L, 5L, 1L, 1L, 2L, 2L), .Label = c("9",
"12", "14", "15", "16", "17"), class = "factor"), mins = structure(c(17L,
1L, 2L, 14L, 15L, 16L, 3L, 4L, 6L, 6L, 7L, 9L, 9L, 13L, 13L,
10L, 11L, 12L, 2L, 5L, 8L, 8L), .Label = c("00", "04", "08",
"09", "10", "12", "13", "18", "19", "20", "21", "22", "27", "39",
"51", "52", "59"), class = "factor"), date = structure(c(3L,
3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 4L, 4L,
4L, 1L, 1L, 1L, 1L), .Label = c("4/28/2014", "5/18/2014", "5/2/2014",
"5/6/2014"), class = "factor"), time = structure(c(7L, 8L, 9L,
4L, 5L, 6L, 13L, 14L, 15L, 15L, 16L, 2L, 2L, 3L, 3L, 10L, 11L,
12L, 17L, 18L, 1L, 1L), .Label = c("12:18", "12:19", "12:27",
"14:39", "14:51", "14:52", "14:59", "15:00", "15:04", "16:20",
"16:21", "16:22", "17:08", "17:09", "17:12", "17:13", "9:04",
"9:10"), class = "factor"), Timestamp = structure(c(13L, 14L,
15L, 10L, 11L, 12L, 6L, 7L, 8L, 8L, 9L, 2L, 2L, 3L, 3L, 16L,
17L, 18L, 4L, 5L, 1L, 1L), .Label = c("4/28/2014 12:18", "4/28/2014 12:19",
"4/28/2014 12:27", "4/28/2014 9:04", "4/28/2014 9:10", "5/18/2014 17:08",
"5/18/2014 17:09", "5/18/2014 17:12", "5/18/2014 17:13", "5/2/2014 14:39",
"5/2/2014 14:51", "5/2/2014 14:52", "5/2/2014 14:59", "5/2/2014 15:00",
"5/2/2014 15:04", "5/6/2014 16:20", "5/6/2014 16:21", "5/6/2014 16:22"
), class = "factor"), Actor = c(7L, 7L, 7L, 7L, 7L, 7L, 5L, 5L,
2L, 12L, 2L, 7L, 7L, 7L, 7L, 10L, 10L, 10L, 7L, 10L, 7L, 7L)), .Names = c("hours",
"mins", "date", "time", "Timestamp", "Actor"), row.names = c(NA,
-22L), class = "data.frame")
将时间戳和时间变量分解为单独变量的原因是，在我的真实数据中，我在按数据和/或时间排序时遇到了很多问题。将这些变量分解成更小的块使排序变得更加容易。
我现在想做的是创建一个名为“Rank”的新变量，它将为数据框中最早的事件返回“1”（这将是 2014 年 4 月 28 日上午 9 点的观察），然后是“2”，用于按日期/时间顺序进行下一次观察，依此类推。
对数据框进行排序似乎比较简单：
dataf<-dataf[order(as.Date(dataf$date, format="%m/%d/%Y"), dataf$hours, dataf$mins),]
这可以完成工作。但我现在苦苦挣扎的是分配等级。
我试过这个，因为我使用了 'ave' 和 FUN=rank 来对整数进行排名，但它产生的结果是可笑的错误：
dataf$rank <- ave((dataf[order(as.Date(dataf$date, format="%m/%d/%Y"), dataf$hours, dataf$mins),]),FUN=rank )
任何帮助表示赞赏
【问题讨论】：
-
dataf$rank <- rank(dataf$Timestamp)还不够吗？ -
@sgibb 出于某种原因，OP 通过将所有内容存储为因素而不是使用日期和日期时间对象，让生活变得相当困难。而且有重复的时间戳，所以我们甚至不能回避这个问题并说要去做
seq_len(nrow(dataf))。