Composition de la légende pour les graphiques à barres et à lignes

Question

J'ai quelques données météorologiques que je trace comme une série chronologique montrant des moyennes mensuelles. J'ai la pluie comme un barplot et la température comme un tracé de ligne sur la même toile de terrain. J'ai besoin de générer une légende avec différents symboles, c'est-à-dire une boîte colorée pour la pluie, et deux lignes colorées pour la température.

est ici les données

> month max_temp min_temp  rain  humid 
    >  Jan 24.65032258 12.54193548 1.425806452 75.44064516 
    >  Feb 25.65248227 13.39219858 1.876595745 79.06666667 
    >  Mar 24.26129032 12.41354839 2.318709677 83.55806452 
    >  Apr 21.038  10.62933333 5.013333333 90.026 
    >  May 17.29548387 7.16516129 4.080645161 91.83225806 
    >  Jun 14.98733333 5.529333333 4.4   91.2 
    >  Jul 13.98516129 4.06516129 3.987096774 90.60322581 
    >  Aug 15.18258065 5.316129032 3.350322581 89.26129032 
    >  Sep 16.434  7.668  4.229333333 84.03666667 
    >  Oct 18.13225806 8.481290323 2.277419355 81.26129032 
    >  Nov 20.07666667 9.558666667 2.562  75.99266667 
    >  Dec 22.51032258 12.13225806 2.296774194 76.28193548 

Et voici mon code pour tracer la courbe

weather<-weather 
month_number<-seq(1,12,1) 
months<-months[1:12] 
new<-data.frame(rain=c(weather$rain),order=c(months)) 
graph<-barplot(height=new$rain, names.arg=new$order,col="light blue", 
    cex.axis=0.2,border=NA,xaxt='n',yaxt="n",xlab="",ylab="",ylim=c(0,10)) 
axis(side=1, pos=0,tck=-0.05,at=graph, labels=months[1:12],cex.axis=0.7,las=2,font.axis=2) 
axis(4,las="1",cex.axis=0.7,font.axis=2) 
mtext("Accumulated rainfall (mm)",side=4,line=2,cex=0.7) 
par(new=TRUE) 
weather$x<-month_number 
plot(weather$x,weather$max_temp,type="l",las=1,col="red",lwd=1.5,xaxt="n", 
    ylim=c(0,30),xlab=NA,ylab = expression(paste("Temperature ",degree,"C")), 
    ,cex.lab=0.8,cex.axis=0.7,font.axis=2) 
lines(weather$x,weather$min_temp,col="blue",lwd=1.5) 
legend("bottom",inset=c(0,1.05),legend=c("Rainfall", "Max temp", "Min temp"),xpd=TRUE, 
     ,horiz=TRUE,pch=c(15),col=c("light blue","red","blue"), 
     lty=c(0,1,1),lwd=2,title=NA,cex=0.6,bty='n') 

Et l'intrigue elle-même. Dans la légende, je voudrais augmenter la taille du caractère pluviométrique et omettre complètement les caractères de l'intrigue montrés dans les lignes pour les deux températures. La taille de la police doit rester la même. J'ai essayé pch=26 que j'ai seen plots a null character mais j'ai un message d'erreur. Aussi looked here mais cela n'a pas résolu mon problème.

Answer 1

Voilà comment vous omettez les caractères de tracé dans les lignes (par exemple, utiliser pch=c(19,NA,NA)):

legend("bottom",inset=c(0,1.05),legend=c("Rainfall", "Max temp", "Min temp"),xpd=TRUE, 
     ,horiz=TRUE,pch=c(19,NA,NA),col=c("light blue","red","blue"), 
     lty=c(0,1,1),lwd=2,title=NA,cex=0.6,bty='n') 

Pour les personnages de l'intrigue pas dans les lignes et de rendre le personnage de l'intrigue des précipitations plus , Je voudrais effectivement utiliser fill:

legend("bottom",inset=c(0,1.05),legend=c("Rainfall", "Max temp", "Min temp"),xpd=TRUE, 
     ,horiz=TRUE,col=c("light blue","red","blue"), fill=c("light blue", NA,NA), border = c("light blue", NA,NA), 
     lty=c(0,1,1),lwd=2,title=NA,cex=0.6,bty='n')