mutate(group=case_when(value < -0.5 ~ "latter",
TRUE ~ "former"))
数据可视化
ggplot...c("#E6956F","#788FCE"))+
scale_color_gradient2(mid="#FBFEF9",low="#0C6291",high="#A63446") + # 设置填充颜色...主题
theme(axis.text.x=element_text(color="black",size=8,face="bold",angle = 90,vjust=0.5), # 自定义x轴文本..., # 自定义图例文本
legend.position ="right", # 设置图例位置
legend.spacing.x = unit(0.05,"in"),...# 设置图例内部的水平间距
plot.margin = ggplot2::margin(10,30,10,10),
legend.direction = "vertical