R 在重叠点之间水平增加空间 geom_point答案

【问题标题】：R increase space horizontally between overlapping points geom_pointR 在重叠点之间水平增加空间 geom_point
【发布时间】：2020-01-17 13:31:08
【问题描述】：

我有一个类似于以下的数据表：我正在尝试绘制与每周每位患者相对应的点（分类变量“数据”）（缺少一些纵向数据），但我需要增加水平轴上分类变量“数据”点之间的距离。我正在尝试使用以下代码：

df=read.delim("/Volumes/test.txt",header=TRUE,sep="\t")

df=df[order(df$ID),]

df$Timepoint<-factor(df$Timepoint,levels=c("w0","w1","w6","w7","w8","w10"))
df$Phase<-factor(df$Phase,levels=c("pre_treat","treat","post_treat"))

ggplot(df,aes(x=Timepoint,y=ID,shape=Data))+
  geom_point(aes(color=Data,shape=Data),size=3.5, position = position_jitter(w = 0.1, h = 0))+
  facet_wrap(~Phase,scales="free_x")+
  scale_shape_manual(values=c(16,0,17))+
  scale_colour_manual(values=c("black","black","gray60"))+
  theme_bw()+ylab("ID")+
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

我遇到的问题是点太近了，每个符号的顺序似乎是随机表示的。

我尝试了 position_jitter 和 position_dodge 但我仍然获得了对角线或重叠点。非常感谢您的帮助！

【问题讨论】：

标签： r ggplot2 space overlapping

【解决方案1】：

您可以使用 position_dodge2() 代替 position_dodge() 并在 scale_x_discrete 中设置 expand(..) 参数以查看点：

df = expand.grid(
  ID=c("P1","P2"),
  Timepoint = c("w0","w1","w6"),
  Phase = c("pre_treat","treat","post_treat"),
  Data  =c("Transcriptomics","Methylation","IM")
)

#sample some data
df=df[runif(45)>0.1,]


ggplot(df,aes(x=Timepoint,y=ID,shape=Data))+
  geom_point(aes(color=Data,shape=Data),size=3.5, 
             position = position_dodge2(w = 0.75))+
  facet_wrap(~Phase,scales="free_x")+
  scale_shape_manual(values=c(16,0,17))+
  scale_colour_manual(values=c("black","black","gray60"))+
  scale_x_discrete(expand=c(0.1, 0.5))+
  theme_bw()+ylab("ID")+
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

【讨论】：