溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶(hù)服務(wù)條款》

使用R語(yǔ)言怎么繪制雙坐標(biāo)圖直方圖

發(fā)布時(shí)間:2021-05-08 16:58:21 來(lái)源:億速云 閱讀:466 作者:Leah 欄目:開(kāi)發(fā)技術(shù)

這期內(nèi)容當(dāng)中小編將會(huì)給大家?guī)?lái)有關(guān)使用R語(yǔ)言怎么繪制雙坐標(biāo)圖直方圖,文章內(nèi)容豐富且以專(zhuān)業(yè)的角度為大家分析和敘述,閱讀完這篇文章希望大家可以有所收獲。

什么是R語(yǔ)言

R語(yǔ)言是用于統(tǒng)計(jì)分析、繪圖的語(yǔ)言和操作環(huán)境,屬于GNU系統(tǒng)的一個(gè)自由、免費(fèi)、源代碼開(kāi)放的軟件,它是一個(gè)用于統(tǒng)計(jì)計(jì)算和統(tǒng)計(jì)制圖的優(yōu)秀工具。

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ì)看不見(jiàn)折線

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('開(kāi)盤(pán)價(jià)','收盤(pán)價(jià)'),col=3:2,lty=1)

效果如下

使用R語(yǔ)言怎么繪制雙坐標(biāo)圖直方圖

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

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

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

我們首先來(lái)討論最簡(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í)畫(huà)出點(diǎn)和線。上述代碼執(zhí)行結(jié)果如下:

使用R語(yǔ)言怎么繪制雙坐標(biāo)圖直方圖

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

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

使用R語(yǔ)言怎么繪制雙坐標(biāo)圖直方圖

現(xiàn)在我們把這幅圖畫(huà)得復(fù)雜一些!我們來(lái)畫(huà)出次刻度線,為此請(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é)果如下

使用R語(yǔ)言怎么繪制雙坐標(biāo)圖直方圖

下面我們要做的事情會(huì)更加復(fù)雜,我們要實(shí)現(xiàn)在同一界面上繪制三張圖,并在最后一張圖中繪制多條折線以及添加圖例。

使用R語(yǔ)言怎么繪制雙坐標(biāo)圖直方圖

上述就是小編為大家分享的使用R語(yǔ)言怎么繪制雙坐標(biāo)圖直方圖了,如果剛好有類(lèi)似的疑惑,不妨參照上述分析進(jìn)行理解。如果想知道更多相關(guān)知識(shí),歡迎關(guān)注億速云行業(yè)資訊頻道。

向AI問(wèn)一下細(xì)節(jié)

免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI