标签，数据点等的过度绘图（w geom_dl＆amp; direct label）

Question

我找不到解决我的过度绘图问题的方法。如果有人能帮我找到解决方案，我会非常感激。

我的数据看起来像这样（csv格式）：http://pastebin.com/embed_js.php?i=Cnfpkjsz

这是我正在运行的代码：

     library(dplyr)
    library(gdata)
    library(ggplot2)
    library(directlabels)


    all<-read.xls('all_auto_bio_adjusted.xls')

    all$station<-as.factor(all$station)
    all$automatic<-log(all$automatic)
    all$averagebiol<-log(all$averagebiol)
    all$stdevbiol<-log(all$stdevbiol)

    pd <- position_dodge(.9) 

    allp<-ggplot(data=all, aes(y=averagebiol, x=automatic, colour=group)) +
      geom_errorbar(aes(ymin=averagebiol-stdevbiol, ymax=averagebiol+stdevbiol), colour="red", width=.1, position=pd) +
      geom_point(aes(size=size), show_guide = TRUE) +
      geom_abline(intercept=0, slope=1) +
      stat_smooth(method="loess",se=FALSE,colour='blue') +
      geom_dl(aes(label=shortname),method="last.bumpup",cex = 1.3, hjust = 1) +
      facet_wrap(~station,nrow=2)+
      xlab("auto")  +
      ylab("manual") +
      ggtitle("Comparison of automatic vs manual identification") +
      scale_y_continuous(limits=c(0, max(all$averagebiol + all$stdevbiol))) +
      theme_bw() +
      theme(plot.title = element_text(lineheight=.8, face="bold", size=20,vjust=1), axis.text.x = element_text(colour="grey20",size=15,angle=0,hjust=.5,vjust=.5,face="bold"), axis.text.y = element_text(colour="grey20",size=15,angle=0,hjust=1,vjust=0,face="bold"),  axis.title.x = element_text(colour="grey20",size=20,angle=0,hjust=.5,vjust=0,face="bold"), axis.title.y = element_text(colour="grey20",size=20,angle=90,hjust=.5,vjust=1,face="bold"),legend.position="right")

allp

我尝试使用不同的geom_dl方法，但无法找到合适的方法。有没有可以在错误栏上方绘制的内容？

如果对我来说没有好的。我能做些什么才能让标签很好地贴上标签，这样我才能在photoshop中自行重新排列？

非常感谢您的投入！

Answer 1

我不熟悉directlabels但是如果你想将标签移到顶部，你可以用geom_text()来做：

allp <- ggplot(data = all, aes(y = averagebiol, x = automatic, colour = group)) + 
  geom_errorbar(aes(ymin = averagebiol - stdevbiol, ymax = averagebiol + stdevbiol),
                colour = "red", width = 0.1, position = pd) +
  geom_point(aes(size = size), show_guide = TRUE) +
  geom_abline(intercept = 0, slope = 1) +
  stat_smooth(method = "loess", se = FALSE, colour = "blue") +
  facet_wrap(~station, nrow = 2) +
  xlab("auto") + ylab("manual") +
  ggtitle("Comparison of automatic vs manual identification") + 
  scale_y_continuous(limits = c(0, max(all$averagebiol + all$stdevbiol)))

allp + geom_text(aes(label = shortname, y = averagebiol + stdevbiol), vjust = -0.1) 

然而，仍然似乎太忙，无法区分群体。如何在station和group上跳过文字标签和小平面？这是一个可能的开始，如果你喜欢它，你需要调整它...

allp <- ggplot(data = all, aes(y = averagebiol, x = automatic, colour = group)) + 
  geom_errorbar(aes(ymin = averagebiol - stdevbiol, ymax = averagebiol + stdevbiol),
                colour = "grey", width = 0.5, position = pd) +
  geom_point(aes(size = size), show_guide = TRUE) +
  geom_abline(intercept = 0, slope = 1) +
  stat_smooth(method = "loess", se = FALSE, colour = "blue") +
  facet_grid(station ~ group) +
  xlab("auto") + ylab("manual") +
  ggtitle("Comparison of automatic vs manual identification") + 
  scale_y_continuous(limits = c(0, max(all$averagebiol + all$stdevbiol))) +
  theme_minimal()

allp

Answer 2

我希望你想要这样的话。

我的代码：

allp<-ggplot(data=all, aes(y=averagebiol, x=automatic, colour=group)) +
  geom_point(aes(size=size), show_guide = TRUE) +
  geom_abline(intercept=0, slope=1) +
  stat_smooth(method="loess",se=FALSE,colour='blue') +
  facet_wrap(~station,nrow=2)+
  xlab("auto")  +
  ylab("manual") +
  ggtitle("Comparison of automatic vs manual identification") +
  scale_y_continuous(limits=c(0, max(all$averagebiol + all$stdevbiol + 1, na.rm=T))) +
  theme_bw() +
  theme(plot.title = element_text(lineheight=.8, face="bold", size=20,vjust=1), axis.text.x = element_text(colour="grey20",size=15,angle=0,hjust=.5,vjust=.5,face="bold"), axis.text.y = element_text(colour="grey20",size=15,angle=0,hjust=1,vjust=0,face="bold"),  axis.title.x = element_text(colour="grey20",size=20,angle=0,hjust=.5,vjust=0,face="bold"), axis.title.y = element_text(colour="grey20",size=20,angle=90,hjust=.5,vjust=1,face="bold"),legend.position="right")+
  geom_errorbar(aes(ymin=averagebiol-stdevbiol, ymax=averagebiol+stdevbiol), colour="red", width=.1, position=pd) +
  geom_text(aes(label = shortname, y = averagebiol+stdevbiol), vjust = -.3) 

我删除了标签的代码行，然后我介绍了这一行：

  geom_text(aes(label = shortname, y = averagebiol+stdevbiol), vjust = -.3) 

这只是将标签放在错误栏的顶部，只需稍作调整即可。

我也修改了这部分：

scale_y_continuous(limits=c(0, max(all$averagebiol + all$stdevbiol + 1, na.rm=T)))

标签位于顶部，一些标签被灰色栏覆盖，所以我增加了一点X栏的值（+1），但最大值不想正常使用我的小补充，所以我不得不删除NA值。