0

我有一个时间序列，显示一年中每 15 分钟的电力负荷。我已经过滤为只显示一个特定的工作日。我的数据框：

Date        Timestamp     Weekday    Load
2017-01-02  00:00:00      Monday     272
2017-01-02  00:15:00       Monday     400
2017-01-02  00:30:00       Monday     699
2017-01-02  00:45:00       Monday     764
2017-01-02  01:00:00       Monday     983
..
..
2017-01-09  00:45:00       Monday     764
2017-01-09  01:00:00       Monday     983
..
2017-12-25  23:45:00      Monday     983

现在我想在一个图中为每个星期一绘制几个折线图：x 轴 = 时间戳 y 轴 = 负载

我试过ggplot：

 ggplot(Loadprofile, aes(x= Timestamp, y = Load, color = Date)) + geom_line()

但这给我带来了以下错误

Error: Aesthetics must be either length 1 or the same as the data (4992): x, y, colour

那就是输出，x轴看起来不是连续的吗？

在此处输入图像描述

有什么建议么？

4

1 回答 1

0

您的问题是您需要 Date 作为一个因素，但是当它在 Date 表单上时，ggplot 将它作为一个连续变量。

我模拟了一些数据，只是为了能够做图表，下面的代码是我用来生成数据的代码：

library(tidyverse)
library(lubridate)


DateTimes <- seq(
  from=as.POSIXct("2017-1-02 0:00", tz="UTC"),
  to=as.POSIXct("2017-1-09 23:59", tz="UTC"),
  by="15 min"
)  

DF <- data.frame(Date = as.Date(DateTimes), timestamp = strftime(DateTimes, format="%H:%M:%S"), Weekday = weekdays(DateTimes)) %>% filter(Weekday == "Monday") %>% mutate(load = as.numeric(timestamp)*20 + -as.numeric(timestamp)^2 + rnorm(nrow(DF), sd = 1000) + (as.numeric(Date))) %>% mutate(load = ifelse(Date < ymd("2017_01_4"), load -5000, load))

一旦我这样做了，如果我执行以下操作：

ggplot(DF, aes(x = timestamp, y = load)) + geom_line(aes(group = as.factor(Date), color = as.factor(Date

我得到以下图表

在此处输入图像描述

我认为这就是您所需要的，如果您需要更多帮助来格式化 x 轴和图例，请告诉我

干杯

于 2018-11-03T15:35:50.380 回答