R 地块比例变化图

我想用柱状图绘制每天

datetime

列的比例。例如，第一天的计数为6，第二天的计数为3，第三天的计数为7，我想绘制从第一天到第二天以及从第二天到第三天的变化比例pr百分比，并对其余数据进行同样的处理

代码

---

在绘制绘图之前，进行同样多的处理往往是最容易的。在这里，我计算每天的病例数和两天之间的变化，然后绘制它。由于我预先计算了计数，我可以使用

geom\u col

而不是

geom\u直方图

库（tidyverse）
图书馆（lubridate）
dat%
分组单位（日期）%>%
总结（n=n（））%>%
突变（prop=n/滞后（n））
#>`summary（）`解组输出（用`.groups`参数重写）
ggplot（dat2，aes（x=日期，y=n，标签=圆形（道具，2）））+
geom_col（）+
几何图形文字（微移y=0.1）+
缩放x日期（日期间隔=“1天”，日期标签=“%b-%d-%y”）+
主题（axis.text.x=元素\文本（角度=90，vjust=0.5，hjust=1，大小=6））
#>警告：已删除1行，其中包含缺少的值（geom_文本）。

由（v0.3.0）于2020年7月22日创建

data <- read.table("input.csv", sep=",", head=T)
data$datetime <- as.Date(data$datetime)
ggplot(data, aes(x=datetime)) +
  geom_histogram(binwidth=0.5, colour="black", fill="white")   +
  stat_bin(aes(y=..count..+1,
               label=ifelse(..count..!=0, ..count.., NA)), geom='text', binwidth = 0.5, size=3)+ 
  #scale_x_date(date_minor_breaks = "1 day")+
  scale_x_date(date_breaks = "1 day",  date_labels = "%b-%d-%y")+ 
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1, size=6))

index,datetime,value,type
461,2020-03-03 00:00:00,1.9942995846439968,x
462,2020-03-03 01:00:00,2.1268067887438273,x
463,2020-03-03 02:00:00,2.465004647476598,x
464,2020-03-03 04:00:00,2.6925364129228964,x
465,2020-03-03 10:00:00,2.9067051924252225,x
466,2020-03-03 23:00:00,3.15486048056035,x
467,2020-03-04 04:00:00,3.129483871690328,x
468,2020-03-04 05:00:00,2.9299302120270583,x
469,2020-03-04 07:00:00,2.8233925583949744,x
470,2020-03-05 02:00:00,2.7136509773224926,x
471,2020-03-05 03:00:00,2.414295826379634,x
472,2020-03-05 04:00:00,2.3617177577192523,x
473,2020-03-05 05:00:00,2.3603488433328494,x
474,2020-03-05 06:00:00,2.3820833128692214,x
475,2020-03-05 17:00:00,2.376124347303893,x
476,2020-03-05 18:00:00,2.4256585822020846,x
477,2020-03-06 03:00:00,2.363671952946105,x
478,2020-03-06 05:00:00,2.431267806961426,x
479,2020-03-06 06:00:00,2.5549387862153146,x
480,2020-03-06 07:00:00,2.607673788605378,x
481,2020-03-06 14:00:00,2.670112987652902,x
482,2020-03-06 16:00:00,2.9147875278302138,x