介绍
- 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)
数据准备
- 柱状图数据