快捷導(dǎo)航

R語(yǔ)言-繪制雙坐標(biāo)圖直方圖與折線的結(jié)合方式

更新時(shí)間：2021年04月19日 15:00:51 作者：import_torch_as_tf

這篇文章主要介紹了R語(yǔ)言-繪制雙坐標(biāo)圖直方圖與折線的結(jié)合方式，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧

看代碼吧~

par(mar = c(5, 5, 3, 4)+0.1) #似乎是設(shè)置圖片位置
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設(shè)置不好的話就會(huì)看不見折線

axis(4,col="red",col.ticks="red",col.axis="red")
mtext("價(jià)格",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('開盤價(jià)','收盤價(jià)'),col=3:2,lty=1)

效果如下

補(bǔ)充：在R中繪制折線圖的方法與進(jìn)階

在顯示隨時(shí)間而變化的連續(xù)數(shù)據(jù)時(shí)通?？梢允褂谜劬€圖。尤其是顯示在相等時(shí)間間隔下數(shù)據(jù)的趨勢(shì)時(shí)折線圖則更加優(yōu)勢(shì)。在折線圖中，類別數(shù)據(jù)沿水平軸均勻分布，所有值數(shù)據(jù)沿垂直軸均勻分布。一般分類標(biāo)簽是文本并且代表均勻分布且遞增的數(shù)值（例如月度、季度或財(cái)年等）。

事實(shí)上，在Excel中繪制折線圖是相當(dāng)方便的。但我們現(xiàn)在要來討論的是在R中如何繪制折線圖，尤其是一些不常見但非常有用的技巧我們也會(huì)在本文中討論。

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

> 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" 表示同時(shí)畫出點(diǎn)和線。上述代碼執(zhí)行結(jié)果如下：

當(dāng)使用 type = "c" 時(shí)沒有點(diǎn)而只畫出線。如果想把上圖中的圓圈換成實(shí)心三角形，并想用虛線代替實(shí)現(xiàn)來連接各個(gè)數(shù)據(jù)點(diǎn)的話，則可以像下面這個(gè)做：

上述代碼執(zhí)行結(jié)果如下：

現(xiàn)在我們把這幅圖畫得復(fù)雜一些！我們來畫出次刻度線，為此請(qǐng)加載Hmisc包用，以便添加次要刻度線：

> library(Hmisc)

然后執(zhí)行下面的代碼：

> 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軸上每個(gè)主刻度之間被劃分的子間隔數(shù)，上述代碼的執(zhí)行結(jié)果如下