介绍

• ggplot2绘制双y轴图

加载R包

knitr::opts_chunk$set(message = FALSE, warning = FALSE)
library(tidyverse)
library(readxl)

# rm(list = ls())
options(stringsAsFactors = F)
options(future.globals.maxSize = 10000 * 1024^2)

Importing data

• 下载Underdetection of cases of COVID-19 in France threatens epidemic control的sourceData1数据，然后手动处理Fig 1 a表格成R可读的模式。

inputdata <- read_xlsx("41586_2020_3095_MOESM4_ESM.xlsx", sheet = 2)

head(inputdata)

数据准备

• 柱状图数据