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

熱線電話：13121318867

登錄
首頁精彩閱讀R語言操作數(shù)據(jù)
R語言操作數(shù)據(jù)
2017-07-02
收藏

R語言操作數(shù)據(jù)

1.把數(shù)據(jù)放到操作框中

R語言的最大用處就是處理數(shù)據(jù)，不然學它干嘛，講了那么多了，現(xiàn)在才是主題。

[java]view plaincopy
  1. #把數(shù)據(jù)放到操作框中  
  2. salary<-c(18700000,14626720,15426545,54659532,5445442101)  
  3. position<-c("QB","DE","QB","QA","QB")  
  4. team<-c("Colts","Patriots","Panthers","Bengals","Giants")  
  5. name.last<-c("Manning","Brady","Pepper","Palmer","Manning")  
  6. name.first<-c("Peyton","Tom","Julius","Carson","Eli")  
  7. top.5.salaries<-data.frame(name.last,name.first,team,position,salary)  
  8. top.5.salaries 

輸出：

[java]view plaincopy
  1.   name.last name.first     team position     salary  
  2. 1   Manning     Peyton    Colts       QB   18700000  
  3. 2     Brady        Tom Patriots       DE   14626720  
  4. 3    Pepper     Julius Panthers       QB   15426545  
  5. 4    Palmer     Carson  Bengals       QA   54659532  
  6. 5   Manning        Eli   Giants       QB 5445442101  

2.圖形界面操作

[java]view plaincopy
  1. top.5.salaries<-edit(top.5.salaries)  

執(zhí)行到這的時候，會出現(xiàn)圖形界面

等你編輯完，關閉，你修改的信息就已經(jīng)保存了。比如我修改了最后一行的position列QBC->QB

[java]view plaincopy
  1. > top.5.salaries  
  2.   name.last name.first     team position     salary  
  3. 1   Manning     Peyton    Colts       QB   18700000  
  4. 2     Brady        Tom Patriots       DE   14626720  
  5. 3    Pepper     Julius Panthers       QB   15426545  
  6. 4    Palmer     Carson  Bengals       QA   54659532  
  7. 5   Manning        Eli   Giants       QB 5445442101 

修改成功。下面的語句也一樣能調(diào)出圖形界面

[java]view plaincopy
  1. fix(top.5.salaries)  

3.保存數(shù)據(jù)包到本地

save方法保存數(shù)據(jù)包到本地

[java]view plaincopy
  1. save(top.5.salaries,file="D:/R/product/0119/top.5.salaries.RData") 

執(zhí)行后，會在目錄下生成一個文件

用一下命令可以再讀到RGui中。

[java]view plaincopy
  1. load("D:/R/product/0119/top.5.salaries.RData")  
  2. 4.讀取外部文件

新建top.5.salaries.csv文件，內(nèi)容如下：

[java]view plaincopy
  1. ame.last,name.firts,team,position,salary  
  2. "Manning","Peyton","Colts","QB",18700000  
  3. "Brady","Tom","Patriots","QB",1245624  
  4. "Pepper","Julius","Panthers","DE",14137500  
  5. "Palmer","Carson","Bengals","QB",13980000  
  6. "Manning","Eli","Giants","QB",12916666 
[java]view plaincopy
  1. top.5.salaries<-read.table("top.5.salaries.csv",header=TRUE,seq=",",quote="\"")  
  2. top.5.salaries  

輸出：

[java]view plaincopy
  1. 1 name.last,name.firts,team,position,salary  
  2. 2          Manning,Peyton,Colts,QB,18700000  
  3. 3             Brady,Tom,Patriots,QB,1245624  
  4. 4        Pepper,Julius,Panthers,DE,14137500  
  5. 5         Palmer,Carson,Bengals,QB,13980000  
  6. 6            Manning,Eli,Giants,QB,12916666  

你還可以將數(shù)據(jù)寫到本地文件，用write.table函數(shù)。

5.數(shù)據(jù)庫中數(shù)據(jù)

最佳方案是先將數(shù)據(jù)庫中的數(shù)據(jù)導出到文本文件中，然后再導入到R中。

關于R語言的學習暫時到此為止，以后有時間再提升。

數(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)用相應的接口 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); }