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

熱線電話：13121318867

登錄
首頁精彩閱讀R語言畫圖教程之盒形圖
R語言畫圖教程之盒形圖
2017-04-07
收藏

R語言畫圖教程之盒形圖

我們之前有分享過一系列的R語言畫圖代碼（PCA圖、Pathway圖、火山圖、RDA圖、熱圖），今天再來補充一個盒形圖（箱形圖）的代碼。

以下代碼只是示例，不能直接搬來用哦，注意看注釋。

--------------代碼開始了-------------

setwd("E:/") #改變工作目錄

data=read.table("data.txt",header=T) #讀取數(shù)據(jù)，“header=T”第一行為表頭

mycolors=c("#A50F15","#DE2D26","#FB6A4A","#FCAE91","#FEE5D9","white","#EFF3FF","#BDD7E7","#6BAED6","#3182BD","#08519C","#74c476",rgb(107,174,213,max=255))

matrix_data= as.matrix(data)

boxplot(matrix_data,

boxwex=0.8, #盒型寬度

main = "ABC", #圖表命名

ylim = c(10, 35), #y軸坐標范圍，可以不寫，可以替換成x

xlab = "X_LAB", #x軸名稱，可以替換成y

staplewex=0.6, #邊緣線（訂書釘）寬度

range=1.5, #邊緣線擴展范圍，默認1.5

border=8, #盒形圖顏色，1~8,整數(shù)

col= mycolors,

#col = "bisque", #盒子填充顏色

outline=T, #是否繪制異常值，默認為TRUE

#horizontal=TRUE, #水平，橫縱坐標對換

#notch=FALSE/TRUE, #蜂腰

) 


#添加標題

title("ABC")


#加圖例

legend(0.5,33, #前一個是距離左側(cè)距離，后一個是距離底端距離,現(xiàn)在的位置是左上角

c("a","b","c"), #圖例名稱

fill = c("yellow","orange","brown") #圖例填充顏色

)

#添加平均數(shù)點

points(c(1:12), #“(1:12)”要添加到1~12個盒子

c(read.table("mean.txt")), #讀取平均值數(shù)據(jù)，我不會寫直接運算的代碼，用了最笨的辦法，需要其他同事完善。

pch=15, #點的樣式，0~25，圖例可以在R中輸入“？points”查看

cex=0.5) #點的大小

------------運行結(jié)果展示------------

當然要用起來會對代碼有細微的調(diào)整，根據(jù)注釋去修改一下對應(yīng)的代碼就可以了。PS：以上的代碼缺少一些參數(shù)（例如：中位數(shù)線的粗細，顏色等）。數(shù)據(jù)分析師培訓(xù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(), // 加隨機數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調(diào)用 initGeetest 進行初始化 // 參數(shù)1：配置參數(shù) // 參數(shù)2：回調(diào)，回調(diào)的第一個參數(shù)驗證碼對象，之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個配置參數(shù)為必須，不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺檢測極驗服務(wù)器是否宕機 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); }