Rにて作図時にX軸の目盛をY=0の位置に変更したい

Question

library(ggplot2)
library(ggsci)

x <- data.frame(
  time = c("2min.","8min.","14min.","20min.","26min.","30min."),
  average_alpha = c(-1.0952,0,0.3095,0.2381,0.3095,0.2381),
  score = c(0,0,0,0,0,0)
)

x$time <- factor(x$time, levels=c("2min.","8min.","14min.","20min.","26min.","30min."))


g <- ggplot(x, aes(x = average_alpha, y = score,shape=time)) + 
  theme_classic()+
  scale_shape_manual(values=c(1,23,25,4,2,22)) +
  geom_point(size=5) + 
  theme(axis.title.y = element_blank(), axis.ticks.y = element_blank(),axis.text.y = element_blank(),axis.line.y=element_blank()) + 
  geom_hline(yintercept=0) +
  ylim(c(-1.25,1.75))+
  xlim(c(-1.5,0.5))

plot(g)

【環境】
PC：MacBook Air ver.11.5.2(Big Sur)
R：R 4.1.1
Rstudio：2021.09.0 Build 351

【質問内容】
上記コードにて作図されるグラフのgeom_hline(yintercept=0)を消して、X軸の目盛位置をy=0の位置に変更したい。

Answer 1

こちらの回答 Moving x or y axis together with tick labels to the middle of a single ggplot にある shift_axis() 関数を使う事で実現できます。

## refer https://stackoverflow.com/a/39097733
shift_axis <- function(p, y=0){
  g <- ggplotGrob(p)
  dummy <- data.frame(y=y)
  ax <- g[["grobs"]][g$layout$name == "axis-b"][[1]]
  p + annotation_custom(
    grid::grobTree(ax, vp = grid::viewport(y=1, height=sum(ax$height))), 
                   ymax=y, ymin=y) +
    geom_hline(aes(yintercept=y), data = dummy) +
    theme(axis.text.x = element_blank(), 
          axis.ticks.x=element_blank())
}

                   :

g <- shift_axis(g)
plot(g)

Comments

[kurokaba]

また、早急に解決して頂き助かりました。
本当にありがとうございます。