ggplot：在扩展x标度限制后缩写水平网格线

Question

如何在扩展水平轴范围后缩写ggplot的水平网格线？我正在扩展范围以显示geom_text元素。

我希望在x＆gt; = 2014之后使my line graph中的水平网格线消失。我使用geom_text标记其中一个geom_lines。这是可能的，还是以错误的方法扩展范围？

以下是我创建情节的方法：

library(quantmod)
library(plyr)
library(ggplot2)

abblist <- list(CA="California",IL="Illinois",TX="Texas",NY="New York")

cleandata <- function(thelist,i) {
    abbname <- names(thelist)[[i]]
    fullname <- thelist[[i]]
    seriesname <- paste(abbname, "UR", sep = "")
    df <- apply.yearly(getSymbols(seriesname,src='FRED',auto.assign=F),mean)
    df <- data.frame(year=time(df),coredata(df))
    df$year <- as.numeric(format(df$year, "%Y"))
    names(df)[names(df)==seriesname] <- "urate"
    df$state <- as.factor(fullname)
    df
}

urates <- rbind.fill(lapply(seq_along(abblist), cleandata, thelist=abblist))

mytheme <- theme_grey() +
theme(
    panel.background = element_rect(fill="white"),
    legend.position="none",
    axis.title.x = element_blank(),
    axis.title.y = element_blank()
)

p <- ggplot(urates, aes(x=year, y=urate)) +
geom_line(data=subset(urates,state!="New York"), aes(group=state), color="grey") +
geom_line(data=subset(urates,state=="New York"), color="maroon") +
geom_text(data=subset(urates,year==max(year) & state == "New York"), aes(label=state,x=year+0.25), hjust=0, color="grey20", size=3) + 
mytheme +
scale_x_continuous(limits=c(2000,2015),breaks=seq(2000,2014,2),minor_breaks=seq(2001,2013,2))

Answer 1

借用this answer中的一些想法，这里有一些可能适用于您的想法。

首先计算NY标签的值

ny.year <- max(urates$year)
ny.val <- urates$urate[urates$year==ny.year & urates$state=="New York"]
ny.year <- ny.year +.25 # offset padding

我们还需要更改主题以在右边距留出一些空间

mytheme <- theme_grey() +
theme(
    panel.background = element_rect(fill="white"),
    legend.position="none",
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    plot.margin = unit(c(1,5,1,1), "lines")
)

现在不使用geom_text，而是使用自定义注释。另外，我们将限制修改为2000-2014并告诉ggplot不要扩展它们。

p <- ggplot(urates, aes(x=year, y=urate)) +
geom_line(data=subset(urates,state!="New York"), aes(group=state), color="grey") +
geom_line(data=subset(urates,state=="New York"), color="maroon") +
mytheme +
scale_x_continuous(expand=c(0,0), limits=c(2000,2014),
    breaks=seq(2000,2014,2), minor_breaks=seq(2001,2013,2))+
annotation_custom(
    grob = textGrob(label = "New York", hjust = 0, gp=gpar(col="grey20", fontsize=3)),
    ymin = ny.val, ymax = ny.val,
    xmin = ny.year, xmax = ny.year)

现在注释将被剪裁，除非我们禁用面板剪裁。我们用

禁用它

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

最终给了我们这个情节。

基本上这个策略实际上只是绘制情节之外的东西，而不是真正剪切网格线，但是我认为这是实现类似结果的不同方式。