99999久久久久久亚洲,欧美人与禽猛交狂配,高清日韩av在线影院,一个人在线高清免费观看,啦啦啦在线视频免费观看www

熱線電話:13121318867

登錄
首頁大數(shù)據(jù)時(shí)代R語言繪圖 | 折線圖畫法,如何畫出你滿意的圖?
R語言繪圖 | 折線圖畫法,如何畫出你滿意的圖?
2020-10-27
收藏

作者:丁點(diǎn)helper

來源:丁點(diǎn)幫你

上篇文章中,我們用世界銀行的例子給大家介紹了R語言散點(diǎn)圖怎么畫,那折線圖呢?

繪制折線圖

如果將散點(diǎn)圖上的點(diǎn)從左往右連接起來,就會得到一個(gè)折線圖。今天我們以R中自帶的Orange 數(shù)據(jù)集為例,來學(xué)習(xí)折線圖的畫法,該數(shù)據(jù)集中包含五種橘樹的樹齡和年輪數(shù)據(jù)。要考察橘樹的年輪如何隨著樹齡變化,先畫個(gè)散點(diǎn)圖看看:

#?先看第一種橘樹,提取第一種樹的數(shù)據(jù),保存在t1中
t1?<-?subset(Orange,?Tree==1)

戳此復(fù)習(xí)subset()函數(shù)的功能。

# 繪制散點(diǎn)圖
plot(t1$age, t1$circumference, 
        xlab="Age (days)",
        ylab="Circumference (mm)",
        main="Orange Tree 1 Growth")

再畫折線圖

# 繪制折線圖
plot(t1$age, t1$circumference, 
     xlab="Age (days)", 
     ylab="Circumference (mm)",
     main="Orange Tree 1 Growth",
     type="b")

可以發(fā)現(xiàn),繪制折線圖使用的仍是plot()函數(shù),其代碼只比散點(diǎn)圖的多了一個(gè)用來設(shè)置圖形外觀的命令:type='b','b'表示用線條將點(diǎn)連接起來,因此我們就得到了下圖:

折線圖的圖形外觀還可以有很多種,均可通過type命令來完成,下表展示了type可選的取值:

選取上表中各種類型的type值,就可以得到各式各樣的折線圖

試著調(diào)整圖形

雖然上面的圖形已經(jīng)可以準(zhǔn)確表達(dá)數(shù)據(jù)信息,但有時(shí)自動生成的圖形可能無法滿足需求。

比如,我們想把上面的散點(diǎn)圖折線圖放在同一張圖中,便于比較,或者想改變文字的字體、顏色等…… 此時(shí),可以在用plot()作圖前,先用par()函數(shù)設(shè)置你想改變的參數(shù):

#?設(shè)置par()函數(shù)
par(mfrow=c(1,2),bty='l',cex.main=1.5, 
    col.main='deepskyblue4',font.lab=2, 
    family='Times New Roman')
# 繪制散點(diǎn)圖
plot(t1$age,?t1$circumference,
     xlab="Age (days)",
     ylab="Circumference (mm)", 
     main="Orange Tree 1 Growth")
# 繪制折線圖
plot(t1$age, t1$circumference,
     xlab="Age (days)", 
     ylab="Circumference (mm)", 
     main="Orange Tree 1 Growth",col='deepskyblue4',
     type="b")

大家可以先將這段代碼復(fù)制到R中運(yùn)行(記得先用本文開頭的方法生成t1這個(gè)對象),看看出現(xiàn)了什么?

par(mfrow=c(1,2),bty='l',cex.main=1.5,
    col.main='deepskyblue4',font.lab=2,
    family='Times New Roman')

par()是R中用來設(shè)置圖形參數(shù)的函數(shù)。

上面的代碼中,mfrow是圖形整體布局命令,不是針對某個(gè)具體的圖形而言的,而是對整個(gè)繪圖區(qū)域的布局。定義整體有幾行、幾列圖形,其賦值形式為c(行數(shù),列數(shù));

bty是設(shè)置圖形邊框類型的函數(shù),其取值及效果如下圖:

cex.main:設(shè)置標(biāo)題文本的放大倍數(shù),還可用cex.axis 和 cex.lab分別設(shè)置坐標(biāo)軸刻度值和名稱文本的放大倍數(shù);

col.main:設(shè)置文本標(biāo)題的顏色,大家能猜出坐標(biāo)軸刻度值和名稱的顏色如何設(shè)置嗎?歡迎留言呀~

font.lab:設(shè)置坐標(biāo)軸名稱的字型:

family:設(shè)置圖形中所有文本的字體。

最終得到的圖形如下,你還能想到哪些需要改進(jìn)或調(diào)整的地方呢,我們可以作為今后講授的內(nèi)容


——熱門課程推薦:

想從事業(yè)務(wù)型數(shù)據(jù)分析師,您可以點(diǎn)擊>>>“數(shù)據(jù)分析師”了解課程詳情;

想從事數(shù)據(jù)分析師,您可以點(diǎn)擊>>>“大數(shù)據(jù)就業(yè)”了解課程詳情;

想成為人工智能工程師,您可以點(diǎn)擊>>>“人工智能就業(yè)”了解課程詳情;

想了解Python數(shù)據(jù)分析,您可以點(diǎn)擊>>>“Python數(shù)據(jù)分析師”了解課程詳情;

想咨詢互聯(lián)網(wǎng)運(yùn)營,你可以點(diǎn)擊>>>互聯(lián)網(wǎng)運(yùn)營就業(yè)班”了解課程詳情;

想了解更多優(yōu)質(zhì)課程,請點(diǎn)擊>>>

數(shù)據(jù)分析咨詢請掃描二維碼

若不方便掃碼,搜微信號:CDAshujufenxi

數(shù)據(jù)分析師資訊
更多

OK
客服在線
立即咨詢
客服在線
立即咨詢
') } function initGt() { var handler = function (captchaObj) { captchaObj.appendTo('#captcha'); captchaObj.onReady(function () { $("#wait").hide(); }).onSuccess(function(){ $('.getcheckcode').removeClass('dis'); $('.getcheckcode').trigger('click'); }); window.captchaObj = captchaObj; }; $('#captcha').show(); $.ajax({ url: "/login/gtstart?t=" + (new Date()).getTime(), // 加隨機(jī)數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調(diào)用 initGeetest 進(jìn)行初始化 // 參數(shù)1:配置參數(shù) // 參數(shù)2:回調(diào),回調(diào)的第一個(gè)參數(shù)驗(yàn)證碼對象,之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個(gè)配置參數(shù)為必須,不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺檢測極驗(yàn)服務(wù)器是否宕機(jī) new_captcha: data.new_captcha, // 用于宕機(jī)時(shí)表示是新驗(yàn)證碼的宕機(jī) product: "float", // 產(chǎn)品形式,包括:float,popup width: "280px", https: true // 更多配置參數(shù)說明請參見:http://docs.geetest.com/install/client/web-front/ }, handler); } }); } function codeCutdown() { if(_wait == 0){ //倒計(jì)時(shí)完成 $(".getcheckcode").removeClass('dis').html("重新獲取"); }else{ $(".getcheckcode").addClass('dis').html("重新獲取("+_wait+"s)"); _wait--; setTimeout(function () { codeCutdown(); },1000); } } function inputValidate(ele,telInput) { var oInput = ele; var inputVal = oInput.val(); var oType = ele.attr('data-type'); var oEtag = $('#etag').val(); var oErr = oInput.closest('.form_box').next('.err_txt'); var empTxt = '請輸入'+oInput.attr('placeholder')+'!'; var errTxt = '請輸入正確的'+oInput.attr('placeholder')+'!'; var pattern; if(inputVal==""){ if(!telInput){ errFun(oErr,empTxt); } return false; }else { switch (oType){ case 'login_mobile': pattern = /^1[3456789]\d{9}$/; if(inputVal.length==11) { $.ajax({ url: '/login/checkmobile', type: "post", dataType: "json", data: { mobile: inputVal, etag: oEtag, page_ur: window.location.href, page_referer: document.referrer }, success: function (data) { } }); } break; case 'login_yzm': pattern = /^\d{6}$/; break; } if(oType=='login_mobile'){ } if(!!validateFun(pattern,inputVal)){ errFun(oErr,'') if(telInput){ $('.getcheckcode').removeClass('dis'); } }else { if(!telInput) { errFun(oErr, errTxt); }else { $('.getcheckcode').addClass('dis'); } return false; } } return true; } function errFun(obj,msg) { obj.html(msg); if(msg==''){ $('.login_submit').removeClass('dis'); }else { $('.login_submit').addClass('dis'); } } function validateFun(pat,val) { return pat.test(val); }