论文
论文原图
❝此图主要通过多个几何对象的叠加来进行绘制,图形的绘制并非难点,难点在于如何对源数据进行统计分析得到绘图所需数据,在此小编随意构建了数据仅供绘图展示。...❞
加载R包
library(tidyverse)
library(readxl)
library(magrittr)
导入数据
df x=NULL,y=NULL)+ # 移除x和y轴标签
scale_x_discrete(expand=c(0,0))+ # 设置x轴
scale_fill_manual(values...element_text(color="black",size=8,face="bold",angle = 90,vjust=0.5), # 自定义x轴文本
axis.text.y=element_text...= unit(0.05,"in"), # 设置图例内部的水平间距
plot.margin = ggplot2::margin(10,30,10,10),
legend.direction