我被要求在下面的图周围放置一个完整的边框:
使用 panel.border = element_rect(colour = "black")
会导致绘图变为空白。
我无法使用theme_bw()
,因为它没有与通常主题相同的功能,我当前使用的代码如下:
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
任何有关如何获得全黑边框的建议将非常感激!
最佳答案
要使用panel.border
,您还必须使用fill=NA
指定空白填充。
试试这个:
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)
)
关于r - 向 ggplot2 添加面板边框,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/26191833/