假设我必须跟踪数据帧

 dput(df)
structure(list(Date_time = structure(c(1641025800, 1641025800, 
1641025800, 1641025800, 1641025800, 1641025800, 1641025800, 1641025800, 
1641027600, 1641027600, 1641027600, 1641027600, 1641027600, 1641027600, 
1641027600, 1641027600, 1641027600, 1641027600, 1641027600, 1641027600, 
1641027600, 1651396800, 1651396800, 1651396800, 1651396800, 1651396800, 
1651396800, 1651396800, 1651396800, 1651396800, 1651401000, 1651401000, 
1651401000, 1651401000, 1651401000, 1669966200, 1669966200, 1669966200, 
1669966200, 1669966200, 1669966200, 1669966200, 1669966200, 1669969800, 
1669969800, 1669969800, 1669969800, 1669969800, 1669969800, 1669969800, 
1669969800, 1669969800, 1669969800, 1669969800, 1669969800), class = c("POSIXct", 
"POSIXt"), tzone = "Europe/London"), Category = c("heat", "heat", 
"heat", "heat", "heat", "heat", "heat", "heat", "cold", "cold", 
"cold", "cold", "cold", "cold", "cold", "medium", "medium", "medium", 
"medium", "medium", "medium", "heat", "heat", "heat", "heat", 
"cold", "cold", "cold", "cold", "cold", "cold", "cold", "medium", 
"medium", "medium", "heat", "heat", "heat", "heat", "heat", "cold", 
"cold", "cold", "cold", "cold", "cold", "cold", "medium", "medium", 
"medium", "medium", "medium", "medium", "heat", "heat"), SubCat = c("r", 
"r", "r", "r", "n", "n", "n", "r", "r", "r", "r", "n", "n", "n", 
"n", "r", "r", "r", "n", "n", "n", "n", "n", "n", "r", "r", "r", 
"r", "n", "n", "n", "n", "r", "r", "r", "r", "r", "r", "n", "n", 
"n", "n", "n", "n", "r", "r", "r", "r", "n", "n", "r", "r", "r", 
"n", "n"), Site = c("1a", "1a", "1a", "1a", "1a", "1a", "1a", 
"1a", "1a", "1a", "1b", "1b", "1b", "1b", "1b", "1b", "1b", "1b", 
"1b", "1b", "1b", "2c", "2c", "2c", "2c", "2c", "2c", "2c", "2c", 
"2c", "2c", "2c", "2c", "2c", "2c", "7c", "7c", "7c", "7c", "7c", 
"7c", "7c", "7c", "7c", "7c", "7c", "7c", "7c", "7c", "7c", "7c", 
"7c", "7c", "7c", "7c")), row.names = c(NA, -55L), class = "data.frame")
> 

我会产生每个类别的累计和的一些情节,按日期,子类别(可能网站也是,但不确定这是否有意义). 基本上,每天将每一类别的总数相加,然后将其添加到数据帧总数中的第二天,依此类推. 所以我以下面这样的东西结束,我可以画出

         Date Category Subcategory Count
1  01/01/2022     Heat           r     5
2  01/01/2022     Cold           r     6
3  01/01/2022   Medium           r     9
4  01/01/2022     Heat           n     3
5  01/01/2022     Cold           n     6
6  01/01/2022   Medium           n    10
7  05/01/2022     Heat           r     3
8  05/01/2022     Cold           r     6
9  05/01/2022   Medium           r     9
10 05/01/2022     Heat           n     4
11 05/01/2022     Cold           n     8
12 05/01/2022   Medium           n    12
13 12/01/2022     Heat           r     3
14 12/01/2022     Cold           r     6
15 12/01/2022   Medium           r    10
16 12/01/2022     Heat           n     3
17 12/01/2022     Cold           n     3
18 12/01/2022   Medium           n     5

推荐答案

像这样的吗?

library(tidyverse)

df %>% 
  count(Date_time, Category, SubCat) %>% 
  mutate(x = cumsum(n)) %>% 
  ggplot(aes(x = Date_time, y=x, color=SubCat, group=SubCat))+
  geom_line()+
  geom_point()+
  facet_wrap(.~Category)

enter image description here

R相关问答推荐

如何修复R码的置换部分?

如何根据组大小应用条件过滤?

通过使用str_detect对具有相似字符串的组进行分组

手动打印线型gplot

如何将dygraph调用到R Markdown作为一个shiny 的react 对象的参数?

从BRM预测价值

Ggplot2中的重复注记

R中的时间序列(Ts)函数计数不正确

使用不同的定性属性定制主成分分析中点的 colored颜色 和形状

如何对r中包含特定(未知)文本的行求和?

对R中的列表列执行ROW Mean操作

如果满足条件,则替换列的前一个值和后续值

希望解析和复制R中特定模式的数据

从两个数据帧中,有没有办法计算R中一列的唯一值?

在不带max()的data.table中按组查找最后一个元素

使用dplyr删除具有条件的行

通过分析特定列中的字符串在数据框中创建新的行和列

使用循环改进功能( struct 简单)

用LOOCV进行K近邻问题

如何在调查包中获得与行比例相关的配置项?