我想在同一个面板图上绘制几个时间序列,而不是在单独的面板中。我从another stackoverflow post获取了以下R代码。
请注意3个时间序列如何在3个不同的面板中。我怎样才能将3个时间序列层叠在1个panal上,每行的颜色可能不同。
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()
函数时,我得到一个包含日期和时间的变量。我似乎无法逃脱日期部分。
答案 0 :(得分:3)
由于数据文件每个组的时间不同,因此将所有组放到同一个图上的一种方法是创建一个新变量,为所有组提供相同的“虚拟”日期,但使用实际收集的时间。
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)