轴外侧的日志刻度(annotation_logticks)

时间:2016-09-29 10:34:01

标签: r ggplot2

我希望logticks看起来有点像本页底部的数字:http://www.cyto.purdue.edu/archive/flowcyt/research/cytotech/apopto/data/chap16.htm

我正在使用ggcyto包(https://github.com/RGLab/ggcyto),而后者又使用ggplot2。

但是添加annotation_logticks()会在x和y轴的内侧给出刻度(参见附件),而我认为外部的刻度更好。有没有办法做到这一点?我无法在文档中找到答案,但也许我找不到合适的地方? enter image description here

(这是流式细胞仪数据,我使用Bioconductor包加载到R中,并使用ggcyto绘图。我使用此代码绘制图,我不知道如何使用流式细胞仪数据制作MWE,但是如果你认为这是相关的,我已经发布了数据和所有代码来生成一个不相关问题的情节:https://github.com/RGLab/ggcyto/issues/13

ggcyto(gated.selected, aes(x = `PI-A`, y = `BV421-A`)) +
  geom_hex(bins = 200) +
  geom_gate(qg.names) + 
  labs(x = "PI", y = "Annexin V") + 
  geom_stats() +
  annotation_logticks()

编辑:在Henrik评论中尝试链接后:

p <- ggcyto(gated.gs[1], aes(x = `PI-A`, y = `BV421-A`)) +
  geom_hex(bins = 200) +
  geom_gate(qg.names) +
  labs(x = "PI", y = "Annexin V") +
  geom_stats() +
  annotation_logticks(short = unit(-0.1, "cm"), mid = unit(-0.2, "cm"), long = unit(-0.3, "cm"))

p.build.gtable <- ggplot_gtable(ggplot_build(p))
p.build.gtable$layout$clip
p.build.gtable$layout$clip <- c("on", "off", "off", "off", "off", "off", "off", "off", "off")
grid.draw(p.build.gtable)

enter image description here

0 个答案:

没有答案