ggplot 时间序列绘图：按日期分组

Question

我想在同一个面板图上绘制多个时间序列，而不是在不同的面板上。我从 another Whosebug post.

中获取了以下 R 代码

请注意 3 个时间序列在 3 个不同面板中的显示方式。我如何才能将 3 个时间序列分层放在 1 个面板上，并且每条线的颜色都不同。

Time = Sys.time()+(seq(1,100)*60+c(rep(1,100)*3600*24, rep(2, 100)*3600*24, rep(3, 100)*3600*24))
Value = rnorm(length(Time))
Group = c(0, cumsum(diff(Time) > 1))

library(ggplot2)
g <- ggplot(data.frame(Time, Value, Group)) + 
 geom_line (aes(x=Time, y=Value, color=Group)) +
 facet_grid(~ Group, scales = "free_x")

如果你运行上面的代码，你会得到：

删除 facet_grid() 部分后，我得到一个如下所示的图表：

基本上，我希望 ggplot 忽略日期差异，只考虑时间。然后使用 group 来识别不同的日期。

这个问题可以通过创建一个只包含时间的新列来解决（例如 22:01、format="%H:%M"）。但是，当使用 as.POSIXct() 函数时，我得到一个包含日期和时间的变量。我似乎无法逃避日期部分。

Answer 1

由于数据文件对每个组的时间有不同的日期，将所有组放在同一个图上的一种方法是创建一个新变量，为所有组提供相同的 "dummy" 日期，但使用实际收集的时间。

experiment <- data.frame(Time, Value, Group)  #creates a data frame
experiment$hms <- as.POSIXct(paste("2015-01-01", substr(experiment$Time, 12, 19)))  # pastes dummy date 2015-01-01 onto the HMS of Time

既然你有了所有相同日期的时间，你就可以轻松地绘制它们了。

experiment$Grouping <- as.factor(experiment$Group)  # gglot needed Group to be a factor, to give the lines color according to Group
ggplot(experiment, aes(x=hms, y=Value, color=Grouping)) + geom_line(size=2)

下面是生成的图像（您可以 change/modify 认为合适的基本图）：

ggplot 时间序列绘图：按日期分组

ggplot time series plotting: group by dates

r

time-series

ggplot2

timeserieschart