在ggplot标签中隐藏/切断/覆盖字母"g"和"y"等的较低尾部

Question

"y"和"g"的底部部分在此地图中被截断.在大豆下看"旱地"和"灌溉".

什么设置控制这个？这是我的theme_map功能

theme_map <- function (base_size = 12, base_family = "") {
  theme_gray(base_size = base_size, base_family = base_family) %+replace% 
    theme(
      axis.line=element_blank(),
      axis.text.x=element_blank(),
      axis.text.y=element_blank(),
      axis.ticks=element_blank(),
      axis.ticks.length=unit(0.3, "lines"),
      axis.ticks.margin=unit(0.5, "lines"),
      axis.title.x=element_blank(),
      axis.title.y=element_blank(),
      legend.background=element_rect(fill="white", colour=NA),
      legend.key=element_rect(colour="white"),
      legend.key.size=unit(1.2, "lines"),
      legend.position="right",
      legend.text=element_text(size=rel(0.8)),
      legend.title=element_text(size=rel(0.8), face="bold", hjust=0),
      panel.background=element_blank(),
      panel.border=element_blank(),
      panel.grid.major=element_blank(),
      panel.grid.minor=element_blank(),
      panel.spacing=unit(0, "lines"),
      plot.background=element_blank(),
      plot.margin=unit(c(1, 1, 0.5, 0.5), "lines"),
      plot.title=element_text(size=rel(1.2)),
      strip.background=element_rect(fill="white", colour="white"),
      strip.text.x=element_text(size=rel(.8)),
      strip.text.y=element_text(size=rel(0.8), angle=-90) 
    )   
}

ggplot2在花了很长时间作为基础图形的忠实奉献者之后,我只是蘸了我的脚趾.我theme_map在互联网上找到了这个功能,所以我还不明白.有人可以告诉我,我需要调整哪些设置来解决我的问题？

这是我生成(其中一个)这些地图的代码,但我假设相关部分在theme_map函数中

mapcorn <- ggplot(USA_fort_premade) + 
    aes(long,lat,group=group) + 
    geom_polygon(aes(x=long,y=lat, group=group, fill=yield.mean), 
                 data=REAP_fort_corn)+
    geom_path(color="grey", lwd = .1) +
    coord_fixed(1.3) +
    facet_wrap( ~ irr) +
    scale_fill_gradient2(low = rgb(.9, .4, 0), mid = rgb(.9, .9, 0),
                         high = rgb(0,.8,0), midpoint = mean(REAP_fort_corn$yield.mean, na.rm = TRUE), 
                         space = "Lab", name = "bu/ac",
                         na.value = "grey50", guide = "colourbar") +
    theme_map() +ggtitle("Corn")

抱歉不可重复,但数据量巨大,这应该是一个相当简单的问题.如果你不知道条款,那么谷歌很难.

Answer 1

如果这些是小平面条标签,请尝试strip.text.x=element_text(margin=margin(b=5)),b点的底部边距在哪里.将其设置为足够大的值,以显示完整的文本.您可以使用margin=margin(t=5, r=2, b=7, l=2)或适用于绘图的任何值调整顶部,右侧,底部和左侧边距.