R語言-繪制雙坐標圖直方圖與折線的結合方式

Posted on by

看代碼吧~

par(mar = c(5, 5, 3, 4)+0.1) #似乎是設置圖片位置
bar<-barplot(gu[1:22,6],xlim=c(0.5,26),ylim=c(0,200000),ylab="交易量",
col="blue",col.axis="blue",col.lab="blue")

mtext(c(1:22),side=1,line=1,at=bar,cex=0.8,col="black")
mtext("time",side =1,line=3,col="black")
par(new=T)
plot(bar,gu[1:22,2],axes=F,xlim=c(0.5,26),ylim=c(17,23),xlab="",ylab="",
col="green",type="o")

#ylim設置不好的話就會看不見折線

axis(4,col="red",col.ticks="red",col.axis="red")
mtext("價格",side=4,line=3,col="red")
par(new=T)
plot(bar,gu[1:22,5],axes=F,xlim=c(0.5,26),ylim=c(17,23),xlab="",ylab="",
col="red",type="o")
legend("top",c('開盤價','收盤價'),col=3:2,lty=1)

效果如下

補充：在R中繪制折線圖的方法與進階

在顯示隨時間而變化的連續數據時通常可以使用折線圖。尤其是顯示在相等時間間隔下數據的趨勢時折線圖則更加優勢。在折線圖中，類別數據沿水平軸均勻分佈，所有值數據沿垂直軸均勻分佈。一般分類標簽是文本並且代表均勻分佈且遞增的數值（例如月度、季度或財年等）。

事實上，在Excel中繪制折線圖是相當方便的。但我們現在要來討論的是在R中如何繪制折線圖，尤其是一些不常見但非常有用的技巧我們也會在本文中討論。

我們首先來討論最簡單的情況，繪制一條折線：

> dose = c(20, 30, 40, 50, 60)
> drugA= c(16, 20, 27, 40, 60)
> drugB= c(15, 18, 25, 31, 40)
> plot(dose, drugA, type = "b")

其中 type = “b” 表示同時畫出點和線。上述代碼執行結果如下：

當使用 type = “c” 時沒有點而隻畫出線。如果想把上圖中的圓圈換成實心三角形，並想用虛線代替實現來連接各個數據點的話，則可以像下面這個做：

上述代碼執行結果如下：

現在我們把這幅圖畫得復雜一些！我們來畫出次刻度線，為此請加載Hmisc包用，以便添加次要刻度線：

> library(Hmisc)

然後執行下面的代碼：

> plot(dose,drugB,type="b",pch=3,lty=3,col="blue",ylim=c(0,max(drugB)*1.1),
+ xlab="x",ylab="y",main="Example")
> minor.tick(nx=5,ny=2,tick.ratio=0.5)#添加次要刻度線

其中nx和ny分別表示x軸和y軸上每個主刻度之間被劃分的子間隔數，上述代碼的執行結果如下

下面我們要做的事情會更加復雜，我們要實現在同一界面上繪制三張圖，並在最後一張圖中繪制多條折線以及添加圖例。

以上為個人經驗，希望能給大傢一個參考，也希望大傢多多支持WalkonNet。如有錯誤或未考慮完全的地方，望不吝賜教。

推薦閱讀：

    None Found