如何在不从 y 轴移除刻度的情况下抑制水平网格线？

Question

我想删除水平网格线但保留垂直网格线。我还想在 x 和 y 轴上保持刻度。

这是我的代码，也是我目前尝试过的：

df <- data.frame("prop" = c(102.73,260.65), "Name" = c("All Genes","RG Genes"))
p<-ggplot(data=df, aes(x=Name, y=prop,fill=Name)) +
  geom_bar(stat="identity")+
  labs(x="", y = "Proportion of cis EQTLs")+
  scale_fill_brewer(palette="Greens") + 
  theme_minimal()+
  theme(legend.position = "none",panel.grid.minor.y = element_blank())
p + annotate("text", x = 1.5, y = 280, label = "p = XXXXXX", size = 3.5) + 
    annotate("rect", xmin = 1, xmax = 2, ymin = 270, ymax =270, alpha=1,colour = "black")

Answer 1

您已经完成了 95% 的工作。网格有两组线——主要的和次要的。您删除了一半的水平网格 (panel.grid.minor.y)。要删除另一半，请添加panel.grid.major.y = element_blank()。要在 x 轴和 y 轴上添加刻度，请添加 axis.ticks = element_line()

df <- data.frame("prop" = c(102.73,260.65), "Name" = c("All Genes","RG Genes"))

p <- ggplot(data = df, aes(x = Name, y = prop, fill = Name)) +
  geom_bar(stat = "identity") +
  labs(x = "", y = "Proportion of cis EQTLs") +
  scale_fill_brewer(palette="Greens") + 
  theme_minimal() +
  theme(legend.position = "none",
        panel.grid.major.y = element_blank(),
        panel.grid.minor.y = element_blank(),
        axis.line = element_line(),
        axis.ticks = element_line())

p + annotate("text", x = 1.5, y = 280, label = "p = XXXXXX", size = 3.5) + 
  annotate("rect", xmin = 1, xmax = 2, ymin = 270, ymax =270, alpha=1,colour = "black")