将面板边框添加到ggplot2 [英] Add panel border to ggplot2

问题描述

我被要求在我的情节下面放置一个完整的边界： panel.border = element_rect（color =black）

我不能使用 theme_bw（）作为它没有与通常主题相同的功能，我目前使用的代码如下：

 图< -ggplot（d ，aes（x = d $ AOE，y = d $ MEI）
）+ 
 geom_point（shape = 20，size = 3）+ 
 geom_rug（）+ 
 annotate（ text，x = -1.1，y = 14000，label =27/04/2011）+ 
 annotate（text，x = -1.3，y = 10400，label =03/04 / （MEI）+ 
 ylab（AOE）+ 
 scale_y_log10（）+ 
主题（axis.text.y = element_text（size = 14），
 axis.text.x = element_text（size = 14），
 axis.title.y = element_text（size = 14），
 axis.title.x = element_text（s ize = 14），
 panel.background = element_blank（），
 panel.grid.major = element_blank（），
 panel.grid.minor = element_blank（），
 axis .line = element_line（color =black）
）
 
图
  

有关如何获得全黑边框的任何建议将非常感谢！ 使用 panel.border 您也必须指定一个空格填充使用 fill = NA 。

试试这个：

< pre
$ b $ ggplot（mtcars，aes（mpg，disp））+ geom_point（）+ geom_rug（）+
theme（axis .text.y = element_text（size = 14），
axis.text.x = element_text（size = 14），
axis.title.y = element_text（size = 14），
axis.title.x = element_text（size = 14），
panel.background = element_blank（），
panel.grid.major = element_blank（），
panel.grid.minor = element_blank （），
axis.line = element_line（color =black），
panel.border = element_rect（color =black，fill = NA，size = 5）
）

I have been asked to place a full border around my plot below:

Using panel.border = element_rect(colour = "black") results in losing in the plot becoming blank.

I can't use theme_bw() as it does not have the same functionality as the usual theme, the code I am currently using is below:

graph<-ggplot(d,aes(x=d$AOE, y=d$MEI)
            )+
  geom_point(shape=20, size=3)+
  geom_rug()+
  annotate("text", x = -1.1, y = 14000, label = "27/04/2011") +
  annotate("text", x = -1.3, y = 10400, label = "03/04/1974") +
  xlab("MEI")+
  ylab("AOE")+
  scale_y_log10()+
  theme(axis.text.y   = element_text(size=14),
        axis.text.x   = element_text(size=14),
        axis.title.y  = element_text(size=14),
        axis.title.x  = element_text(size=14),
        panel.background = element_blank(),
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(),
        axis.line = element_line(colour = "black")
  )

graph 

Any advice on how to get a full black border would be very much appreciated!

解决方案

To use panel.border you also have to specify a blank fill using fill=NA.

Try this:

library(ggplot2)

ggplot(mtcars, aes(mpg, disp)) + geom_point() + geom_rug() +
  theme(axis.text.y   = element_text(size=14),
        axis.text.x   = element_text(size=14),
        axis.title.y  = element_text(size=14),
        axis.title.x  = element_text(size=14),
        panel.background = element_blank(),
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(),
        axis.line = element_line(colour = "black"),
        panel.border = element_rect(colour = "black", fill=NA, size=5)
  )

这篇关于将面板边框添加到ggplot2的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！