Question

我正在尝试将数据框中的两列转换为“良好”日期＆amp;时间等级，直到现在并没有取得多大成功。我尝试了各种课程（timeDate，Date，timeSeries，POSIXct，POSIXlt），但没有成功。也许我只是忽略了显而易见的事情，因为我尝试了很多方法，我只是不知道它是什么了。我希望你们中的一些人可以了解我出错的地方。

目标：我想用最早和最晚的日期计算两个日期之间的差异。我使用了head()和tail()，但由于这些值不是我数据中最早和最晚的日期，我需要另一种方式。（我无法对数据进行排序，因为它只在日期当天对数据进行排序。）

第二个目标：我想将日期格式（即8-12-2010）的日期转换为每周，每月和每年的水平（即'49 -2010'，'december-10 '，只是'2010'）。这可以通过格式设置完成（例如%d-%m-%y）。这可以通过将data.frame转换为时间类来完成，而不是以正确的格式转换时间类(8-12-2010 -> format("%B-%y") -> 'december-10'），然后将该时间类转换为每个月具有级别的因子吗？

对于这两个目标，我需要将日期框架以某种方式转换为时间类，这就是我遇到一些困难的地方。

我的数据框如下所示：

> tradesList[c(1,10,11,20),14:15] -> tmpTimes4
> tmpTimes4
   EntryTime ExitTime
1   01-03-07 10-04-07
10  29-10-07 02-11-07
11  13-04-07 14-05-07
20  18-12-07 20-02-08

以下是我尝试过的摘要：

> class(tmpTimes4)
[1] "data.frame"
> as.Date(head(tmpTimes4$EntryTimes, n=1), format="%d-%m-%y")
Error in as.Date.default(head(tmpTimes4$EntryTimes, n = 1), format = "%d-%m-%y") : 
  do not know how to convert 'head(tmpTimes4$EntryTimes, n = 1)' to class "Date"
> as.timeDate(tmpTimes4, format="%d-%m-%y")
Error in as.timeDate(tmpTimes4, format = "%d-%m-%y") : 
  unused argument(s) (format = "%d-%m-%y")
> timeSeries(tmpTimes4, format="%d-%m-%y")
Error in midnightStandard2(charvec, format) : 
  'charvec' has non-NA entries of different number of characters
> tmpEntryTimes4 <- timeSeries(tmpTimes4$EntryTime, format="%d-%m-%y")
> tmpExitTimes4 <- timeSeries(tmpTimes4$ExitTime, format="%d-%m-%y")
> tmpTimes5 <- cbind(tmpEntryTimes4,tmpExitTimes4)
> colnames(tmpTimes5) <- c("Entry","Exit")
> tmpTimes5
     Entry    Exit    
[1,] 01-03-07 10-04-07
[2,] 29-10-07 02-11-07
[3,] 13-04-07 14-05-07
[4,] 18-12-07 20-02-08
> class(tmpTimes5)
[1] "timeSeries"
attr(,"package")
[1] "timeSeries"
> as.timeDate(tmpTimes5, format="%d-%m-%y")
Error in as.timeDate(tmpTimes5, format = "%d-%m-%y") : 
  unused argument(s) (format = "%d-%m-%y")
> as.Date(tmpTimes5, format="%d-%m-%y")
Error in as.Date.default(tmpTimes5, format = "%d-%m-%y") : 
  do not know how to convert 'tmpTimes5' to class "Date"
> format.POSIXlt(tmpTimes5, format="%d-%m-%y", usetz=FALSE)
Error in format.POSIXlt(tmpTimes5, format = "%d-%m-%y", usetz = FALSE) : 
  wrong class
> as.POSIXlt(tmpTimes5, format="%d-%m-%y", usetz=FALSE)
Error in as.POSIXlt.default(tmpTimes5, format = "%d-%m-%y", usetz = FALSE) : 
  do not know how to convert 'tmpTimes5' to class "POSIXlt"
> as.POSIXct(tmpTimes5, format="%d-%m-%y", usetz=FALSE)
Error in as.POSIXlt.default(x, tz, ...) : 
  do not know how to convert 'x' to class "POSIXlt"

TimeDate包具有'range'的功能，但是，转换为Date类适用于单个实例，但由于某种原因不适用于数据框：

> as.Date(tmpTimes4[1,1], format="%d-%m-%y")
[1] "2007-03-01"
> as.Date(tmpTimes4, format="%d-%m-%y")
Error in as.Date.default(tmpTimes4, format = "%d-%m-%y") : 
  do not know how to convert 'tmpTimes4' to class "Date"

此时我几乎认为这是不可能的，所以任何想法都会受到高度赞赏！

此致

Answer 1

从一些虚拟数据开始：

start <- as.Date("2010/01/01")
end <- as.Date("2010/12/31")
set.seed(1)
datewant <- seq(start, end, by = "days")[sample(15)]
tmpTimes <- data.frame(EntryTime = datewant, 
                       ExitTime = datewant + sample(100, 15))
## reorder on EntryTime so in random order
tmpTimes <- tmpTimes[sample(NROW(tmpTimes)), ]
head(tmpTimes)

所以我们有这样的事情：

> head(tmpTimes)
    EntryTime   ExitTime
8  2010-01-14 2010-03-16
9  2010-01-05 2010-01-17
7  2010-01-10 2010-01-30
3  2010-01-08 2010-04-16
10 2010-01-01 2010-01-26
13 2010-01-12 2010-02-15

使用上述内容，查看目标1 ，计算最早和最晚日期之间的差异。您可以将日期视为数字（即无论如何在内部存储它们），因此min()和max()等函数将起作用。您可以使用difftime()功能：

> with(tmpTimes, difftime(max(EntryTime), min(EntryTime)))
Time difference of 14 days

或使用标准减法

> with(tmpTimes, max(EntryTime) - min(EntryTime))
Time difference of 14 days

以获得天数的差异。 head()和tail()仅在您对日期进行排序时才有效，因为这些日期采用向量中的第一个和最后一个值，而不是最高和最低实际值。

目标2：您似乎正在尝试将数据框转换为日期。你不能这样做。您可以做的是重新格式化数据框的组件中的数据。在这里，我通过将tmpTimes列重新格式化为几个不同的日期摘要，将列添加到EntryTime。

tmpTimes2 <- within(tmpTimes, weekOfYear <- format(EntryTime, format = "%W-%Y"))
tmpTimes2 <- within(tmpTimes2, monthYear <- format(EntryTime, format = "%B-%Y"))
tmpTimes2 <- within(tmpTimes2, Year <- format(EntryTime, format = "%Y"))

，并提供：

> head(tmpTimes2)
    EntryTime   ExitTime weekOfYear    monthYear Year
8  2010-01-14 2010-03-16    02-2010 January-2010 2010
9  2010-01-05 2010-01-17    01-2010 January-2010 2010
7  2010-01-10 2010-01-30    01-2010 January-2010 2010
3  2010-01-08 2010-04-16    01-2010 January-2010 2010
10 2010-01-01 2010-01-26    00-2010 January-2010 2010
13 2010-01-12 2010-02-15    02-2010 January-2010 2010

如果您是美国人或想要在一周的开始使用美国会议（%W在星期一开始一周，美国会议将在星期日开始），请更改{{1}到%W。 %U详细了解了?strftime和%W所代表的内容。

关于数据格式的最后一点：在上面我使用了标准R格式的日期。您将数据存储在非标准标记的数据框中，可能是字符或因素。所以你有类似的东西：

%U

您需要将这些字符或因素转换为R可以理解为日期的内容。我的偏好是tmpTimes3 <- within(tmpTimes, EntryTime <- format(EntryTime, format = "%d-%m-%y")) tmpTimes3 <- within(tmpTimes3, ExitTime <- format(ExitTime, format = "%d-%m-%y")) > head(tmpTimes3) EntryTime ExitTime 8 14-01-10 16-03-10 9 05-01-10 17-01-10 7 10-01-10 30-01-10 3 08-01-10 16-04-10 10 01-01-10 26-01-10 13 12-01-10 15-02-10类。在使用您的数据尝试上述答案之前，请将数据转换为正确的格式：

"Date"

以便您的数据如下所示：

tmpTimes3 <- 
    within(tmpTimes3, {
           EntryTime <- as.Date(as.character(EntryTime), format = "%d-%m-%y")
           ExitTime <- as.Date(as.character(ExitTime), format = "%d-%m-%y")
           })

Answer 2

简短回答：

如果尚未完成，则转换为日期。

然后在列表中使用min和max 日期。

date_list = structure(c(15401, 15405, 15405), class = "Date")
date_list
#[1] "2012-03-02" "2012-03-06" "2012-03-06"

min(date_list)
#[1] "2012-03-02"
max(date_list)
#[1] "2012-03-06"

Answer 3

更容易。在日期列上使用summary()可直接获得最小和最大以及更多。示例：summary(df$date)

如何找到最高（最新）和最低（最早）的日期[R]

3 个答案: