r - 在 y>0 处开始 geom_bar / 仅在一侧停用剪辑

Question

我遇到了这两个要求的问题：

• y 轴必须从 3 开始
• 有些geom_text会超出右侧的图表范围

到目前为止我的想法及其缺陷：

• 从所有数据集和假 y 轴标签中减去 -3（不希望这样做）
• 建立一个geom_bar高度为 3 的假人（如何让它远离传说？）

任何想法，将不胜感激！

library(grid)
library(ggplot2)

df=data.frame(
  Date=c("2012-11-30", "2012-12-03", "2012-12-04"),
  d1=c(12, 8, 13),
  d2=c(13, 7, 12),
  e1=c(7, 9, 8)
)

frame()
p=ggplot(df, aes(Date)) + 
    geom_bar(aes(y=e1, fill="e1"), stat="identity", color="red") +
    geom_line(aes(y=d1, group=1, color="d1")) +
    geom_line(aes(y=d2, group=1, color="d2")) +
    geom_text(aes(x =3.5, y=c(14,13,12), label=c("Text1","Text2","Text3"))) +
    scale_colour_manual(" ", values=c("e1"="red", "d1"="blue", "d2"="black"))+
    scale_fill_manual("", values="red") +
    coord_cartesian(ylim=c(3,15), xlim=c(0.5,3.5)) +
    theme(legend.key=element_blank(),legend.title=element_blank(),
          legend.position="top", legend.box="horizontal",
          plot.margin=unit(c(1, 2, 1, 1), "cm"))

p1 <- ggplot_gtable(ggplot_build(p))
p1$layout$clip[p1$layout$name=="panel"] <- "off"
grid.draw(p1)

Answer 1

您定义自己的比例转换

library(scales)
translate3_trans <- function() {
  trans <- function(x) x - 3
  inv   <- function(x) x + 3
  trans_new("translate3_trans", trans, inv)
}      

然后你添加

       p <- p + scale_y_continuous(trans="translate3")

我不明白你想把 geom_text 放在哪里。

PS：对不起，我将 alpha 更改为 0.5，因为你的红色伤害了我的眼睛。