使用EpiCurve包和influenza_england_1978_school数据压缩X轴-如何使其看起来像标准epi曲线?

plicqrtu  于 2023-11-14  发布在  其他
关注(0)|答案(1)|浏览(109)

我在R中使用influenza_england_1978_school数据集和EpiCurve package。这是我的代码:

library(EpiCurve)    
library(outbreak) ## for influenza data
data <- influenza_england_1978_school
EpiCurve(x = data, date = "date", freq = "in_bed", period = "day")

字符串
我试图绘制epi曲线,但x轴真的被压扁了,只显示2个日期,如下图所示。

X轴挤在一起是有原因的吗?我检查过了,date变量有Date类。任何帮助都很感激。

p5cysglq

p5cysglq1#

我不知道为什么要这样指定(也许是因为表示格的小图形元素实际上是正方形?),但显然EpiCurve在内部使用了coord_fixed(1),这样x和y轴上的1单位就用相同的物理尺寸表示了。

e <- EpiCurve(x = data, date = "date", freq = "in_bed", period = "day")
e + coord_cartesian()

字符串


的数据

相关问题