R 轴外侧的日志记号（注释\u日志记号）

我希望日志标记看起来有点像本页底部的图：

为此，我使用ggcyto包（），它反过来使用ggplot2

但是添加注释_logticks（）会在x轴和y轴的内侧产生记号（请参见附件），而我认为在外侧添加记号会更好。有没有办法做到这一点？我在文档中找不到答案，但可能我找的地方不对

（这是流式细胞仪数据，我使用Bioconductor软件包将其加载到R中，并使用ggcyto进行绘图。我使用此代码进行绘图，我不确定如何使用流式细胞仪数据进行MWE，但如果您认为这是相关的，我已将数据和所有代码发布到此处，以生成一个无关问题的绘图：）

编辑：尝试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)

---

p您可以尝试以下解决方法：@Henrik，我尝试过更改剪辑设置，但我不知道如何更改GeomLogticks的代码？（我现在的位置请看新的数字）。谢谢。你可以找到
annotation\u logticks
和
GeomLogticks
的代码。谢谢，我从那里得到了代码，但是我不知道在哪里添加
yticks base^scales$y.range[1]&value
。如果我在
yticks之后添加它，似乎没有任何区别。您可以尝试以下解决方法：@Henrik，我尝试了更改剪辑设置，但我不知道如何更改GeomLogticks的代码？（我现在的位置请看新的数字）。谢谢。你可以找到
annotation\u logticks
和
GeomLogticks
的代码。谢谢，我从那里得到了代码，但是我不知道在哪里添加
yticks base^scales$y.range[1]&value
。如果我在
yticks之后添加它，似乎没有任何区别
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)