0

他の人からのコメントによると、この投稿は 、このOPの以前のバージョンから いくつかの小さな質問に分割されています。

下のグラフで、(Newbie to R) を手伝ってくれますか?

  • 変数 1 の塗りつぶし、変数 2 の円の点、変数 3 の線、およびそれらの色のように、それらが表すデータに応じたカスタムの凡例。
  • 凡例と軸名の文字サイズは同じです。

以下のグラフは、次のレイアウトの pdf デバイスのデータで生成されます。

m <- matrix(c(1,2,3,3,4,5),nrow = 3,ncol = 2,byrow = TRUE)
layout(mat = m,heights = c(0.47,0.06,0.47))
par(mar=c(4,4.2,3,4.2))

#Codes for Fig A and B
...

#Margin for legend
par(mar = c(0.2,0.2,0.1,0.1))
    # Code for legend
...

#Codes for Fig C and D
...

R からのグラフ

4

2 に答える 2

1

次のことを試してください。

1) 凡例部分

データはhttps://www.dropbox.com/s/4kgq8tyvuvq22ym/stackfig1_2.csvにあります。

私が使用したコードは次のとおりです。

data <- read.csv("stackfig1_2.csv")
library(Hmisc)

label1=c(0,100,200,300)
plot(data$TimeVariable2C,data$Variable2C,axes=FALSE,ylab="",xlab="",xlim=c(0,24),
     ylim=c(0,2.4),xaxs="i",yaxs="i",pch=19)
lines(data$TimeVariable3C,data$Variable3C)
axis(2,tick=T,at=seq(0.0,2.4,by=0.6),label= seq(0.0,2.4,by=0.6))
axis(1,tick=T,at=seq(0,24,by=6),label=seq(0,24,by=6))
mtext("(C)",side=1,outer=F,line=-10,adj=0.8)
minor.tick(nx=5,ny=5)

par(new=TRUE)
plot(data$TimeVariable1C,data$Variable1C,axes=FALSE,xlab="",ylab="",type="l",
     ylim=c(800,0),xaxs="i",yaxs="i")
axis(3,xlim=c(0,24),tick=TRUE,at= seq(0,24,by=6),label=seq(0,24,by=6),col.axis="violetred4",col="violetred4")
axis(4,tick=TRUE,at= label1,label=label1,col.axis="violetred4",col="violetred4")
polygon(data$TimeVariable1C,data$Variable1C,col='violetred4',border=NA)


legend("top", legend = c("Variable A","Variable B","Variable C"), col = c("black","violetred4","black"),
       ncol = 2, lwd =c("","",2),pch=c(19,15,NA),cex=1)

出力は次のとおりです。

ここに画像の説明を入力

2）フォントサイズを同じにするには、パラメーターcexを使用してどこでも同じにします。

于 2013-06-15T22:32:21.037 に答える