r - 在 R 中根据时间绘制数据

Question

我有一个数据框，其中一列作为日期/时间（内部存储为数字），其他列作为数字/整数，我想根据日期/时间绘制数据。

使用以下内容填充数据框中的日期/时间。

as.POSIXct(strptime(time, '%H:%M:%S %p %m/%d/%Y',tz='GMT')) 

class(table$time)是numeric。

1. 如何以某种格式将 x 轴上的数据绘制和显示为可读的日期时间。
2. 如何绘制行的子集而不是所有行 例如：行之间dateTime1和dateTime2位置之间的行dateTime1以及dateTime2以某种格式给出的日期。

Answer 1

您也可以使用ggplot2，更具体地说，geom_point或者geom_line（请注意，我使用来自@plannapus 的示例数据）：

require(ggplot2)
theme_set(theme_bw()) # Change the theme to my preference
ggplot(aes(x = time, y = variable), data = data) + geom_point()

或使用线几何：

ggplot(aes(x = time, y = variable), data = data) + geom_line()

ggplot2自动识别 x 轴的数据类型是日期，并相应地绘制轴。

Answer 2

这是一些虚拟数据：

data <- structure(list(time = structure(c(1338361200, 1338390000, 1338445800, 1338476400, 1338532200, 1338562800, 1338618600, 1338647400, 1338791400, 1338822000), class = c("POSIXct", "POSIXt"), tzone = ""), variable = c(168L, 193L, 193L, 201L, 206L, 200L, 218L, 205L, 211L, 230L)), .Names = c("time", "variable"), row.names = c(NA, -10L), class = "data.frame")
data
              time variable
1  2012-05-30 09:00:00      168
2  2012-05-30 17:00:00      193
3  2012-05-31 08:30:00      193
4  2012-05-31 17:00:00      201
5  2012-06-01 08:30:00      206
6  2012-06-01 17:00:00      200
7  2012-06-02 08:30:00      218
8  2012-06-02 16:30:00      205
9  2012-06-04 08:30:00      211
10 2012-06-04 17:00:00      230

要在轴中显示日期和时间，您可以使用函数axis.POSIXct：

plot(data, xaxt="n")
axis.POSIXct(side=1, at=cut(data$time, "days"), format="%m/%d") 

您可以控制刻度线的位置at（对于常规函数，axis除了这里它将提供 POSIXct 类的对象）并控制它们将如何出现format。

就子集而言，只要您的 dateTime1 和 dateTime2 对象也是 POSIXct 对象，您就可以像进行任何其他类型的子集一样进行操作。

dateTime1 <- strptime("00:00 05/31/2012", format="%H:%M %m/%d/%Y")
dateTime2 <- strptime("3 Jun 2012 05-30", format="%d %b %Y %H-%M")
data[data$time < dateTime2 & data$time > dateTime1, ]
                 time variable
3 2012-05-31 08:30:00      193
4 2012-05-31 17:00:00      201
5 2012-06-01 08:30:00      206
6 2012-06-01 17:00:00      200
7 2012-06-02 08:30:00      218
8 2012-06-02 16:30:00      205