R语言与医学统计图形-【24】ggplot位置调整函数

ggplot2绘图系统——位置调整函数

可以参数position来调整，也有专门的函数position_*系列来设置。

位置函数汇总：

1.排列

并排排列

mean <- runif(12,1,3)

lower <- mean-runif(12,0,2)

upper <- mean+runif(12,0,2)

mydata <- data.frame(group=rep(LETTERS[1:4],each=3),

                     levels=rep(c('low','middle','high'),4),

                     mean=mean,lower=lower,upper=upper)

dodge <- position_dodge(width = 0.5)

ggplot(mydata,aes(levels,ymin=lower,ymax=upper,color=as.factor(group)))+

  geom_errorbar(position = dodge,width=0.2,size=1.2)+

  geom_point(aes(levels,mean),position = dodge,size=4)

堆栈排列

death <- c('胃癌','肺癌','食管癌','肝癌','脑癌')

percent <- c(0.21,0.28,0.09,0.32,0.1)

pro=scales::percent(percent)

cancer <- data.frame(death=death,per=percent,

                     disease='cancer',prop=pro)

ggplot(cancer,aes(x=disease,y=per,fill=death))+

  geom_bar(stat = 'identity')+

  geom_text(aes(label=prop),

            position = position_stack(vjust = 0.5),size=6.5)

2.扰动点

a <- ggplot(mpg,aes(class,hwy))+geom_boxplot()+geom_point()

b <- ggplot(mpg,aes(class,hwy))+geom_boxplot()+

  geom_jitter()

c <- ggplot(mpg,aes(class,hwy))+geom_boxplot()+

  geom_point(position = 'jitter')

grid.arrange(a,b,c,ncol=3)

上图b和c的扰动方式稍有不同。

3.水平和垂直的调整

包括hjust/vjust，position_nudge等，注意nudge（推动）不能作为postion参数的选项，即不能类似geom_point(position='nudge')

df <- data.frame(x=c(1,3,2,5),y=c('a','b','c','d'))

#在点的原位置添加标签

a <- ggplot(df,aes(x,y))+geom_point()+geom_text(aes(label=y))

#标签向下移动一个单位

b <- ggplot(df,aes(x,y))+geom_point()+geom_text(aes(label=y),

                                                position=position_nudge(y=-0.1))

grid.arrange(a,b,ncol=2)

4.有规则扰动

同样只能作为函数position_jitterdodge使用。

同一组内，红色点只出现在红色盒形上，不会出现在其他位置。

dsub <- diamonds[sample(nrow(diamonds),1000),]

#无规则

a <- ggplot(dsub,aes(x=cut,y=carat,fill=clarity))+

  geom_boxplot(outlier.size = 0)+

  geom_point(pch=21,position = position_jitter())

#有规则

b <- ggplot(dsub,aes(x=cut,y=carat,fill=clarity))+

  geom_boxplot(outlier.size = 0)+

  geom_point(pch=21,position = position_jitterdodge())

grid.arrange(a,b,ncol=2)

巴特西