每组绘制 2 种 colored颜色

我可以试着画一张简单的线条图.

首先，加载所需的包

library(ggplot2)
library(lubridate)

然后制作一个数据帧:

data <- data.frame(ymdhms=c(20230301000000,20230301000010,20230301000020,20230301000030,20230301000040,20230301000050,20230301000100,20230301000110),switch=c(0,0,0,1,0,0,1,0), power=c(20,21,22,23,20,19,29,28))

接下来，将日期-时间数据转换为POSIXct格式

# ymdhms to POSIXct
data$timestamp <- ymd_hms(data$ymdhms)

接下来，创建一个状态‘Switch’.这将有助于为绘图中的数据上色

# status variable 
data$switchStatus <- ifelse(data$switch == 1, "on", "off")

最后，根据数据绘制曲线图

# plot
ggplot(data, aes(x = timestamp, y = power, color = switchStatus)) +
  geom_line() +
  geom_rect(aes(xmin = lag(timestamp, default = first(timestamp)),
                xmax = timestamp, ymin = -Inf, ymax = Inf,
                fill = switchStatus), alpha = 0.2, inherit.aes = FALSE) +
  scale_fill_manual(values = c("red", "green")) +
  xlab("Time (seconds)") + ylab("Power") +
  theme_classic()

这将产生如下所示的结果:

如果您愿意，您还可以绘制step chart等变量.

让我知道这是否有帮助.

步骤图:

# step chart
ggplot(data, aes(x = timestamp, y = power, group = 1)) +
  geom_step(aes(color = factor(switch)), direction = "hv") +
  scale_color_manual(values = c("red", "green")) +
  labs(x = "Time", y = "Power", color = "Switch")