传说R外的情节

Question

我的图例框位于图表之外，但在放大时，图例框的大小非常大且不可见。任何人都可以帮助我吗？

options(scipen=999)
par(mai = c(1, 2, 1, 3))
barplot(out1.1$Total,beside=TRUE,width = .65, space = .5, names.arg = out1.1$DATE,ylim=c(0,30000),yaxs='i', ylab='', col = 'green',las=1,border = 'green',cex.axis = .8,yaxt="n")
axis(2, col.tick='grey')
axis(2, tck=1, col.tick='grey')
m<-barplot(out1.1$Total,beside=TRUE,width = .65, space = .5, names.arg = out1.1$DATE,add=TRUE, ylim=c(0,30000),yaxs='i', ylab='', col = 'green',border = 'green',las=1,cex.axis = .8,yaxt="n")
title(ylab="Total Number Of calls", mgp=c(3.5,1,0),cex.lab=1.2)
box(col='grey')
par(new=TRUE)
plot(m,out1.1$Percentage_cUK,type="l",ylim=c(0,70),yaxs='i',col="orange",axes=FALSE,ann=FALSE)
lines(m,out1.1$Percentage_Dise,col="blue")
mtext('Success rate %', side = 4, col = 'orange', line = 4)
axis(1,at=seq(1, 6, by = .8),col='grey',labels = FALSE,cex.lab=0.8)
axis(4,at=seq(0,70,10),col='grey',las=1,tick = TRUE,labels = paste0(seq(0,70,10),".","00", "%"),cex.axis=0.8)
par(new = TRUE)
plot.new()
legend("bottomright",inset=c(-1.3,0.01), c("Total Entries","cUK %", "Dise %"), lty = c(2,1,1),cex=0.5)
par(new = TRUE)
plot.new()
img <- readJPEG("Capture.jpg")
plot(1:10,xaxt='n',yaxt='n',ann=FALSE,bty='n',pch='',ylab='',xlab='')
rasterImage(img,11,11,12,12)[enter image description here][1]