数据抽取小时

Question

我是一个在R的新手，我正在寻找一种方法，只提取小时分钟和第二次在我的数据。我试过一些图书馆，但没有成功。

这是我目前的代码：

daily_data = read.csv("/Us/eco.csv", header=TRUE, stringsAsFactors=FALSE)

daily_hour= daily_data$time

daily_hour

我的约会对象是这样的：

 [1] "2016-08-19 17:45:19" "2016-08-19 17:45:19" "2016-08-19 17:45:19" "2016-08-19 17:45:19"
   [5] "2016-08-19 18:59:19" "2016-08-19 18:59:19" "2016-08-19 18:59:19" "2016-08-19 18:59:19"
   [9] "2016-08-19 18:59:19" "2016-08-19 18:59:19" "2016-08-19 18:59:19" "2016-08-19 18:59:19"
  [13] "2016-08-19 19:27:07" "2016-08-19 19:27:07" "2016-08-19 19:27:07" "2016-08-19 19:27:07"
  [17] "2016-08-19 19:27:07" "2016-08-19 19:27:07" "2016-08-19 23:33:46" "2016-08-19 23:33:46"
  [21] "2016-08-19 23:33:46" "2016-08-19 23:33:46" "2016-08-20 07:13:32" "2016-08-20 07:13:32"
  [25] "2016-08-20 07:13:32" "2016-08-20 07:13:32" "2016-08-20 08:52:12" "2016-08-20 08:52:12"
  [29] "2016-08-20 08:52:12" "2016-08-20 08:52:12" "2016-08-20 10:06:53" "2016-08-20 10:06:53"
  [33] "2016-08-20 10:06:53" "2016-08-20 10:06:53" "2016-08-20 10:06:56" "2016-08-20 10:06:56"

Answer 1

hms <- sub('\\d+-\\d+-\\d+ ', '', daily_hour)将提取小时:分钟:秒作为字符串的一部分。如果需要将这些变量分离为其他变量，则有两个选项。

# Option 1
hours <- sub(':\\d+:\\d+', '', hms)
mins <- sub('\\d+:(\\d+):\\d+', '\\1', hms)
secs <- sub('\\d+:\\d+:', '', hms)

# Option 2
daily_hour <- as.POSIXct(daily_hour)
hours <- as.numeric(format(daily_hour, "%H"))
mins <- as.numeric(format(daily_hour, "%M"))
secs <- as.numeric(format(daily_hour, "%S"))

Answer 2

假设您的数据：

daily_hour = data.frame(time = c("2016-08-19 17:45:19", "2016-08-19 17:45:36"))

然后将其除以sep = " "，然后取列表中的第二个元素，您将得到hh:mm:ss的向量：

sapply(daily_hour$time, function(x) strsplit(as.character(x), " ")[[1]][2])

Answer 3

如果您的日期格式是一致的，也可以使用substr。

substr(daily_hour, 12, 19)

substr("2016-08-19 17:45:19", 12, 19)
[1] "17:45:19"