图片灵感来源: 效果图: 1、设置工作环境并加载所需R包: rm(list=ls())#clear Global Environmentsetwd("D:/桌面/散点+箱线图+小提琴图+辅助线+显著性") #加载包library(ggplot2) # Create Elegant Data…