R：在ggplot2中的绘图和图例周围添加矩形边框

Question

我知道我错过了一些非常简单的东西，但我似乎无法弄明白，我无法在网上找到它。我是R的新手，所以非常感谢任何帮助！

代码如下：

graph1<-ggplot()+
  geom_polygon(data=df,colour="black",aes(x=long,y=lat,group=group,fill=ALG))+
  ggtitle("Figure 2.2A: Assessment Results for\nGeneral Aquatic Life Use, Spatial Extent")+
  xlab("")+
  ylab("")+
  coord_equal()+
  scale_fill_manual("Aquatic Life Designated\nUse 2014 Assessment",values=c((values=c(colors))))+
  cowplot::background_grid(major= "none",minor = "none") +
  theme(axis.text.x = element_blank(), axis.ticks.x = element_blank(),
        axis.text.y = element_blank(), axis.ticks.y = element_blank(),
        axis.line = element_blank(),
        panel.border = element_rect(fill=NA),
        legend.title = element_text(colour="black", size=8, face="bold"),
        plot.title=element_text(size=15, face="bold",vjust=1.0,hjust = .3))

这就是我得到的：

如何让图例位于边框内？

Answer 1

您需要使用lexik_jwt_authentication.security.guard.jwt_token_authenticator您必须更改数字以定位图例。对于参数theme(legend.position=c(0.5,0.6))中的x和y变量，值将介于0和1之间。