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

熱線電話:13121318867

登錄
首頁大數(shù)據(jù)時代R語言繪圖基礎 | 直方圖和散點圖怎么畫?
R語言繪圖基礎 | 直方圖和散點圖怎么畫?
2020-10-21
收藏

作者:丁點helper

來源: 丁點幫你

前面2篇R語言相關的文章以泰坦尼克號的數(shù)據(jù)為例,介紹了描述性統(tǒng)計中用到的計算操作,以及柱形圖的繪制操作。今天我們繼續(xù)聊聊如何在R中繪制直方圖散點圖。

繪制直方圖

仍使用titanic.csv這個數(shù)據(jù)。

#  導入數(shù)據(jù)
titanic <- read.csv("http://Users//Desktop//titanic.csv",header = TRUE) 
names(titanic) #  查看titanic中的變量名
[1] "pclass"  "survived"  "sex"  "age"  "sibsp"    "parch"  

假設我們想對age這個變量繪制直方圖,了解泰坦尼克號上乘客的年齡分布,可用hist()這個函數(shù):

hist(titanic$age)

上圖中直方圖標題、顏色、坐標軸名稱均可調整:

hist(titanic$age, col='orange', main='Passenger Age', 
     lwd=2, xlab='Age (years)')

其中,col、main、xlab這三個命令在之前的文章中講過;lwd為線條寬度命令,取值須為整數(shù),默認值為1。

繪制散點圖

接下來我們看看如何繪制散點圖。還是老規(guī)矩,要用到的數(shù)據(jù)可通過以下方式下載:

文件名: wb.csv

鏈接: https://pan.baidu.com/s/1gOAuccW5i8cIW5HaPHnm8A  

密碼: nc5u

這是世界銀行(word bank)對部分國家社會、經(jīng)濟、環(huán)境指標的統(tǒng)計數(shù)據(jù)。

#  導入數(shù)據(jù)
wb <- read.csv("http://Users//Desktop//wb.csv",header = TRUE) 
names(wb) #  查看wb中的變量名
[1] "Country"   "Code"      "Population"    "Rural"         "GNI"    "IncomeTop10"   "Imports"       
[8] "Exports"    "Military"    "Cell"     "Fertility66"   "Fertility16"   "Measles"       "InfMort"      
[15] "LifeExp"     "PM2.5"      "Diesel"     "CO2"      "EnergyUse"     "FossilPct"     "Forest94"    
[22] "Forest14"   "Deforestation" "GunTotal"   "GunHomicide"   "GunSuicide"   "GunUnint"   "GunUndet"    
[29] "GunsPer100"

這里我們先關注第五個變量『GNI』,其意義是人均國民收入。GNI是Gross National Income的縮寫;再關注第18個變量『CO2』,其意義是人均二氧化碳排放量。

一項研究想觀察人均國民收入和人均二氧化碳排放量之間存在何種關系,由于二者均為數(shù)值型變量,我們可以用散點圖的方式直觀感受一下:

plot(wb$GNI,wb$CO2, main="CO2 vs. GNI (both per capita)",
     xlab="Gni per capita", ylab="CO2 per capita",
     col="red", pch=19)
#  col命令的取值還可以是數(shù)字,本例中red對應的數(shù)字是2
plot(wb$GNI,wb$CO2, main="CO2 vs. GNI (both per capita)", 
     xlab="Gni per capita", ylab="CO2 per capita",
     col=2, pch=19)

上面兩條代碼的運行結果是一樣的。wb$GNI 和 wb$CO2 分別為散點圖的橫軸和縱軸;pch表示點的形狀,取值為整數(shù),本例中用到的19表示圓點。

下面用一個圖片來給大家介紹1-20的數(shù)字分別代表什么顏色、什么形狀:

plot(c(1:20),rep(1,20),col=c(1:20),pch=c(1:20),cex=2)

cex表示對圖中的文本或符號放大多少倍,大家可自行在R中操作,感受cex=1時圖像的變化。

舉個例子,col=15:黃色;pch=15:方塊。在R中,可選的顏色還有很多,大家可以查看下圖中的顏色名稱,繪圖時在col命令中輸入即可。

手機用戶可橫屏查看效果更佳,告別大紅大藍秋褲色就靠它了~

今天就學到這里啦,之后還有更多R繪圖課程來和大家見面!


——熱門課程推薦:

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

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

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

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

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

想了解更多優(yōu)質課程,請點擊>>>

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

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

數(shù)據(jù)分析師考試動態(tài)
數(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(), // 加隨機數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調用 initGeetest 進行初始化 // 參數(shù)1:配置參數(shù) // 參數(shù)2:回調,回調的第一個參數(shù)驗證碼對象,之后可以使用它調用相應的接口 initGeetest({ // 以下 4 個配置參數(shù)為必須,不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺檢測極驗服務器是否宕機 new_captcha: data.new_captcha, // 用于宕機時表示是新驗證碼的宕機 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){ //倒計時完成 $(".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); }