Мне было предложено разместить полную границу вокруг моего сюжета ниже:
Использование 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
Любые советы о том, как получить полную черную границу, будут очень оценены!