0

我正在尝试将我的日期数据集从 chr 转换为时间格式。

这是我的代码：

time<-f1%>%
  mutate(`ymd_hms(Timestamp)`=strftime(f1$`ymd_hms(Timestamp)`, tz="GMT", format = "%H:%M:%S"))%>%
  transform(as.numeric(f1$SpotPrice))
  chron(times=f1$`ymd_hms(Timestamp)`)

其显示错误：

Error in chron(., times = f1$`ymd_hms(Timestamp)`) : 
  . and f1$`ymd_hms(Timestamp)` must have equal lengths

如果我评论它

time<-f1%>%
  mutate(`ymd_hms(Timestamp)`=strftime(f1$`ymd_hms(Timestamp)`, tz="GMT", format = "%H:%M:%S"))%>%
  transform(as.numeric(f1$SpotPrice))
#chron(times=f1$`ymd_hms(Timestamp)`)

输出是

'data.frame':   10078 obs. of  4 variables:
 $ InstanceType      : chr  "  a1.2xlarge" "  a1.2xlarge" "  a1.2xlarge" "  a1.4xlarge" ...
 $ ProductDescription: chr  "  Linux/UNIX" "  Red Hat Enterprise Linux" "  SUSE Linux" "  Linux/UNIX" ...
 $ SpotPrice         : num  0.0671 0.1971 0.2171 0.1343 0.2643 ...
 $ ymd_hms(Timestamp): chr  "06:17:23" "06:17:23" "06:17:23" "12:15:54" ...

另外，但我将此推荐用作单个变量，如下所示：

f2<-chron(times=DfUse$`ymd_hms(Timestamp)`)

它工作并显示输出

 'times' num [1:10078] 06:17:23 06:17:23 06:17:23 12:15:54 12:15:54 ...
 - attr(*, "format")= chr "h:m:s"`

但我想将它与我的整个数据集一起使用，而不是将它单独用作单个变量。

提前致谢。

4

1 回答 1

1

代码中几乎没有语法错误和改进空间。

  • 尽管ymd_hms(Timestamp) = 在左侧有效，但您不需要它，因为它会创建一个具有该名称的列。只有使用Timestamp应该是好的。

  • 不要$在dplyr管道中使用。

  • 通常最好将基本 R 函数和dplyr函数分开。transform以 R 为基数，但您可以使用相同的mutate管道转换SpotPrice为数字。

library(dplyr)

time<-f1%>%
  mutate(Timestamp = strftime(ymd_hms(Timestamp), tz="GMT", format = "%H:%M:%S"),
         SpotPrice = as.numeric(SpotPrice),
         Timestamp = chron::chron(times=Timestamp))
于 2021-07-12T13:12:13.677 回答