mutate(group=case_when(value < -0.5 ~ "latter",
TRUE ~ "former"))
数据可视化
ggplot...()+
geom_tile(data=p1,aes(ID,name,fill=group))+
geom_text(data=p1,aes(ID,name,label=p_value),...color="white",vjust=1,size=5,hjust=0.5)+
geom_point(data=df2 %>%
filter(name %in% c...color=value,size=value))+
coord_cartesian(clip = "off") + # 关闭坐标轴裁剪
labs(x=NULL,y=NULL)+ # 移除x和y...= unit(0.05,"in"), # 设置图例内部的水平间距
plot.margin = ggplot2::margin(10,30,10,10),
legend.direction