R 打印轴上的线是否被轴隐藏？

我正在用geom_线和ggplot绘制一条线。我遇到了一个问题，因为直线没有数据（0），它最终会被轴遮挡，如下所示：

---

是否有任何已知的方法可以避免这种情况，而不必移除scale_y_连续层上的扩展（0,0）

您可以删除实际的x轴，并使用

geom_hline（yintercept=0）

手动添加位于数据下方的轴线。将

geom\u hline（）

轴放在将数据打印到打印代码中的

geom\u线（）

之前非常重要。ggplot按写入的顺序绘制项目，因此如果在

geom\u hline（）

之后调用

geom\u line（）

，数据将绘制在轴线的顶部

#some made up data
df <- data.frame(x = 1:12, y = c(rep(0,12), rep(c(1,2), 6)), 
                 group = c(rep("zeros", 12), rep("not zeros", 12)))

ggplot(df, aes(x = x, y = y, color = group)) +
  geom_hline(yintercept = 0) + #first, add an axis line using geom_hline
  geom_line() + #next, add the geom for your data
  theme_classic() +
  coord_cartesian(expand = FALSE) +
  theme(axis.line.x = element_blank())  #remove actual x axis line

#一些虚构的数据
df您可以删除实际的x轴，并使用
geom_hline（yintercept=0）
手动添加位于数据下方的轴线。将
geom\u hline（）
轴放在将数据打印到打印代码中的
geom\u线（）
之前非常重要。ggplot按写入的顺序绘制项目，因此如果在
geom\u hline（）
之后调用
geom\u line（）
，数据将绘制在轴线的顶部

#some made up data
df <- data.frame(x = 1:12, y = c(rep(0,12), rep(c(1,2), 6)), 
                 group = c(rep("zeros", 12), rep("not zeros", 12)))

ggplot(df, aes(x = x, y = y, color = group)) +
  geom_hline(yintercept = 0) + #first, add an axis line using geom_hline
  geom_line() + #next, add the geom for your data
  theme_classic() +
  coord_cartesian(expand = FALSE) +
  theme(axis.line.x = element_blank())  #remove actual x axis line

#一些虚构的数据
df您希望如何解决此问题？在轴的顶端画一条线？在寻求帮助时，您应该包括一个简单的示例输入和所需的输出，可用于测试和验证可能的解决方案。您希望如何解决此问题？在轴的顶端画一条线？在寻求帮助时，您应该包括一个简单的示例输入和所需的输出，可用于测试和验证可能的解决方案。