如何通过收集日期(x轴)和其他因素(R)绘制阳性病例百分比(y轴)?

请帮忙! 我有案例数据,我需要尽快为报告做准备,只是无法正确显示图表。

From a dataset with CollectionDate as the "record" of cases (i.e. multiple rows with the same date means more cases that day), I want to display Number of positive cases/total (positive + negative) cases for that day as a percent on the y-axis, with collection dates along the x-axis. Then I want to break down by region. Goal is to look like this but in terms of daily positives/# of tests rather than just positives vs negatives. I also want to add a horizontal line on every graph at 20%.

  • I have tried manipulating it before, in and after ggplot:
    ggplot(df_final, aes(x =CollectionDate, fill = TestResult)) +
    geom_bar(aes(y=..prop..)) +
    scale_y_continuous(labels=percent_format())

再次关闭。但是这些百分比是错误的,因为它们只是将当天的比例与所有天数而不是每天的计数相对应。

Then I tried using tally()in the following command to try and count per region and aggregate:

  df_final %>% 
  group_by(CollectionDate, Region, as.factor(TestResult)) %>% 
  filter(TestResult == "Positive") %>%
  tally()

而且我仍然无法正确显示图表。 有什么建议吗?

A quick look at my data:

head(df_final)