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

熱線電話:13121318867

登錄
首頁(yè)精彩閱讀R語(yǔ)言之讀取Excel及csv數(shù)據(jù)
R語(yǔ)言之讀取Excel及csv數(shù)據(jù)
2018-06-09
收藏

R語(yǔ)言之讀取Excel及csv數(shù)據(jù)

1、讀取R內(nèi)置數(shù)據(jù) data()
data()  #查看數(shù)據(jù)集列表
data(mtcars)  #載入數(shù)據(jù)集
如用library()載入程序包后,可用data(package=”“)查看包內(nèi)附帶的數(shù)據(jù)集。

library(vcd)
data(package="vcd")  #查看vcd包中的數(shù)據(jù)集
data(Arthritis,package = "vcd")  #載入數(shù)據(jù)集Arthritis
2、鍵盤輸入數(shù)據(jù)

a、調(diào)用文本編輯器edit()。
首先必須創(chuàng)建一個(gè)空的數(shù)據(jù)框或者矩陣,且數(shù)據(jù)框或者矩陣中的變量名與變量類型必須與最終數(shù)據(jù)集一致。下列代碼創(chuàng)建了一個(gè)名為mydata的數(shù)據(jù)框,數(shù)據(jù)框里保存了姓名,英語(yǔ)成績(jī),數(shù)學(xué)成績(jī)?nèi)齻€(gè)變量,且通過(guò)調(diào)用文本編輯器edit()可修改或增加變量。

mydata<-data.frame(name=character(0),English=numeric(0),Math=numeric(0))   #創(chuàng)建一個(gè)空的數(shù)據(jù)框
mydata<-edit(mydata)
mydata
程序運(yùn)行結(jié)果如下:

可在此數(shù)據(jù)編輯器中直接輸入數(shù)據(jù),或者通過(guò)單擊來(lái)修改變量名或者變量類型,也可以增加變量。
b、直接在程序中嵌入數(shù)據(jù),代碼如下:

> mydatatext<-"
+ name English Math
+ 張三  92      93
+ 李四  80      92
+ "
> mydata<-read.table(header=T,text=mydatatext)
> mydata
  name English Math
1 張三      92   93
2 李四      80   92

3、導(dǎo)入帶分隔符的文本文件(ASCII)

使用read.table()導(dǎo)入一個(gè)帶分隔符的文本文件,其輸出類型為數(shù)據(jù)框。語(yǔ)法如下:

read.table(file , header=F , sep=”” ,quote , row.names , col.names , na.strings=”NA” , colClasses , skip , stringsAsFactors=T, blank.lines.skip=T, strip.white=F, text,…)

下面使用read.table()來(lái)讀取一個(gè)分隔符為逗號(hào),名為“分?jǐn)?shù)”的csv文件,代碼如下:
>mydata<-read.table(header=T,file="C:\\Users\\mx\\Desktop\\分?jǐn)?shù).csv",sep=",")  #路徑中的單右斜杠“\”需換成雙右斜杠“\\”或者單左斜杠“/”。文件名后一定要加上擴(kuò)展名
> mydata
  name English Math
1 張三      92   93
2 李四      80   92

與read.table()用法類似的函數(shù)還有read.csv(),read.delim()。
*
*4、讀取Excel數(shù)據(jù)read.xlsx()

a、將其保存為csv格式,用前文所描述的方法讀取
b、直接用read.xlsx()讀取。讀取前確保已安裝“xlsxjars”,”rJava”,”xlsx”包,且第一次使用前需確保配置了Java環(huán)境。下載安裝的Java的位數(shù)必須與電腦位數(shù)、R的位數(shù)一致。
語(yǔ)法: read.xlsx(file, n),其中n表示要讀取的工作表序號(hào)。
如用read.xlsx()讀取以上名為“分?jǐn)?shù)”的.xlsx形式,代碼如下:

> library(xlsxjars)
> library(rJava)
> library(xlsx)
> mydata<-read.xlsx("C:\\Users\\mx\\Desktop\\分?jǐn)?shù).xlsx",1,encoding="UTF-8")   #encoding="UFT-8"調(diào)整中文字集符,防止表格中的中文讀取時(shí)亂碼
> mydata
  name English Math
1 張三      92   93
2 李四      80   92

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

若不方便掃碼,搜微信號(hào):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)證碼對(duì)象,之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個(gè)配置參數(shù)為必須,不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺(tái)檢測(cè)極驗(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ù)說(shuō)明請(qǐng)參見: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 = '請(qǐng)輸入'+oInput.attr('placeholder')+'!'; var errTxt = '請(qǐng)輸入正確的'+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); }