棒グラフと線グラフの凡例構成

Question

気象データがありますが、私は毎月の平均を示す時系列としてプロットしています。私は、同じプロットキャンバス上にラインプロットとしてバープロットと温度として降雨があります。私は雨のための色付けされたボックスと、温度のための2つの色のついた線で異なるシンボルを持つ凡例を生成する必要があります。

は、ここでデータ

> 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 

だと、ここに私のコードは、プロット

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') 

、プロット自体を生成することです。伝説では、降雨プロット文字のサイズを大きくし、両方の温度のラインに示されているプロット文字を省略したいと思います。フォントサイズは同じままにする必要があります。私はseen plots a null characterのpch=26を試しましたが、エラーメッセージが表示されます。またlooked hereしかし私の問題を解決しませんでした。ここで

Answer 1

は、あなたが行（例えば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') 

ラインにプロット文字をいない取得するには、レインフォールプロット文字を大きくするために実際には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')