使用strtime中的datetime数据绘制直方图

下面是我的数据

Tue Feb 11 18:21:45 +0000 2014
Tue Feb 11 18:22:03 +0000 2014
Tue Feb 11 18:22:05 +0000 2014

每一行都是一个事件的发生。我正试图把这些数据绘制成直方图

由于时间缩短到了小时、分钟和秒，我有一周的数据。我的直方图箱需要以天为基础。所以我可以看到实际的重大变化

这是我到目前为止的代码

Time_Data <- read.csv("Twitter_Data_2.csv")

Time_Data_Strptime <- strptime(data[,1], format ="%a%b%d %I:%M:%S %z%y")

我收到这个错误：

lappy中出错（X=X，FUN=“[”，…，drop=drop）： 缺少参数，没有默认值

我是R工作室的新手，所以任何帮助或建议都将不胜感激

编辑：输入样本

dput（头（时间数据））

edit2：键入

Time\u数据\u strtime的示例

   [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
  [42] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
  [83] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
 [124] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA

edit3：来自时间的样本\u数据\u strtime

[1] "2014-02-11 23:19:56" "2014-02-11 23:20:04"
[3] "2014-02-11 23:21:06" "2014-02-11 23:21:15"
[5] "2014-02-11 23:21:30" "2014-02-11 23:22:02"

这对我来说很有用：

Time_Data <- read.table(text = "Tue Feb 11 18:21:45 +0000 2014
Tue Feb 11 18:22:03 +0000 2014
Tue Feb 11 13:22:05 +0000 2014", head = F, sep = ";", stringsAsFactors = F)


然后像这样使用
hist
：

hist(x=Time_Data_Strptime, breaks = "hours", freq = TRUE)


有关这方面的更多信息，请参阅

请提供一个数据样本，用于编辑您的Q的
dput（head（Time_data））
输出。键入代码并获得此输出（仅为一个样本）：“Wed Feb 12 23:52:42+0000 2014”，“Wed Feb 12 23:52:43+0000 2014”，它应该返回一个数据结构，可以轻松加载以重现您的问题。例如
dput（c（1,2,3）)
返回
c（1,2,3）
然后可以很容易地复制。我已经在我的帖子上编辑了输入代码的结果。即使只是一个标题，仍然有很多行……你能给我们看一个时间数据样本吗？我试图弄清楚发生了什么。结果，所有的时间数据都是
NA
时间数据@stritime@Liam：我编辑了我的答案。现在我t包含所有步骤。非常感谢，非常有用。事实证明，从直方图行内部删除[，1]产生了巨大的差异。当然。请参阅strtime（或as.POSXct）返回向量。因此它只有一个维度。也就是说，您不需要/无法访问任何列（使用x[，1]）.很高兴我能help@Liam只需一句话：我建议您使用
%H
和
%Y
，因为您可能会遇到其他选项的问题。
Time_Data <- read.table(text = "Tue Feb 11 18:21:45 +0000 2014
Tue Feb 11 18:22:03 +0000 2014
Tue Feb 11 13:22:05 +0000 2014", head = F, sep = ";", stringsAsFactors = F)

Sys.setlocale("LC_ALL","English")
Time_Data_Strptime <- as.POSIXct(Time_Data[,1], format ="%a %b %d %H:%M:%S %z %Y")

hist(x=Time_Data_Strptime, breaks = "hours", freq = TRUE)