在y> 0时启动geom_bar /仅在一侧停用剪辑

Question

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

• y轴必须从3
开始
• 某些geom_text将超出右侧的图表

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

• 从所有数据集和假y轴标签中减去-3（不愿意）
• 构建一个高度为3的虚拟geom_bar（如何使其远离传奇？）

任何想法都将不胜感激！

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，因为你的红色会伤到我的眼睛。