Data.Frame()數(shù)據(jù)框操作

Data Frame一般被翻譯為數(shù)據(jù)框虹曙,感覺就像是R中的表氓癌,由行和列組成,與Matrix不同的是统扳,每個列可以是不同的數(shù)據(jù)類型喘帚,而Matrix是必須相同的。

Data Frame每一列有列名咒钟,每一行也可以指定行名吹由。如果不指定行名,那么就是從1開始自增的Sequence來標識每一行朱嘴。

初始化

使用data.frame函數(shù)就可以初始化一個Data Frame倾鲫。比如我們要初始化一個student的Data Frame其中包含ID和Name還有Gender以及Birthdate,那么代碼為:

student<-data.frame(ID=c(11,12,13),Name=c("Devin","Edward","Wenli"),Gender=c("M","M","F"),Birthdate=c("1984-12-29","1983-5-6","1986-8-8”))

另外也可以使用read.table() read.csv()讀取一個文本文件萍嬉,返回的也是一個Data Frame對象乌昔。讀取數(shù)據(jù)庫也是返回Data Frame對象。

查看student的內(nèi)容為:

? ID ? Name Gender ?Birthdate

1 ?11 ?Devin ? ? ?M 1984-12-29

2 ?12 Edward ? ? ?M ? 1983-5-6

3 ?13 ?Wenli ? ? ?F ? 1986-8-8

這里只指定了列名為ID壤追,Name玫荣,Gender和Birthdate,使用names函數(shù)可以查看列名大诸,如果要查看行名捅厂,需要用到row.names函數(shù)贯卦。這里我們希望將ID作為行名,那么可以這樣寫:

row.names(student)<-student$ID

更簡單的辦法是在初始化date.frame的時候焙贷,有參數(shù)row.names可以設(shè)置行名的向量撵割。

訪問元素

與Matrix一樣,使用[行Index,列Index]的格式可以訪問具體的元素辙芍。

比如訪問第一行:

student[1,]

訪問第二列:

student[,2]

使用列的Index或者列名可以選取要訪問的哪些列啡彬。比如要ID和Name,那么代碼為:

idname<-student[1:2]

或者是

idname<-student[c("ID","Name”)]

如果是只訪問某一列故硅,返回的是Vector類型的庶灿,那么可以使用[[或者$來訪問。比如我們要所有student的Name吃衅,代碼為:

name<-student[[2]]?或者name<-student[[“Name”]]?或者name<-student$Name

使用attach和detach函數(shù)可以使得訪問列時不需要總是跟著變量名在前面往踢。

比如要打印所有Name,那么可以寫成:

attach(student)

print(Name)

detach(student)

還可以換一種簡潔一點的寫法就是用with函數(shù):

with(student,{

n<-Name

print(n)

})

這里的n作用域只在大括號內(nèi)徘层,如果想在with函數(shù)中對全局的變量進行賦值峻呕,那么需要使用<<-這樣一個運算符。

修改列數(shù)據(jù)類型

接下來我們查看該對象每列的類型趣效,使用str(student)可以得到如下結(jié)果:

'data.frame':3 obs. of ?4 variables:

?$ ID ? ? ? : num ?1 2 3

?$ Name ? ? : Factor w/ 3 levels "Devin","Edward",..: 1 2 3

?$ Gender ? : Factor w/ 2 levels "F","M": 2 2 1

?$ Birthdate: Factor w/ 3 levels "1983-5-6","1984-12-29",..: 2 1 3

默認情況下瘦癌,字符串向量都會被自動識別成Factor,也就是說跷敬,ID是數(shù)字類型讯私,其他的3個列都被定義為Factor類型了。顯然這里Name應(yīng)該是字符串類型西傀,Birthdate應(yīng)該是Date類型妄帘,我們需要對列的數(shù)據(jù)類型進行更改:

student$Name<-as.character(student$Name)

student$Birthdate<-as.Date(student$Birthdate)

下面我們再運行str(student)看看修改后的結(jié)果:

'data.frame':3 obs. of ?4 variables:

?$ ID ? ? ? : num ?11 12 13

?$ Name ? ? : chr ?"Devin" "Edward" "Wenli"

?$ Gender ? : Factor w/ 2 levels "F","M": 2 2 1

?$ Birthdate: Date, format: "1984-12-29" "1983-05-06" "1986-08-08”

添加新列

對于以及存在的student對象,我們希望增加Age列池凄,該列是根據(jù)Birthdate算出來的。首先需要知道怎么算年齡鬼廓。我們可以使用日期函數(shù)Sys.Date()獲得當前的日期肿仑,然后使用format函數(shù)獲得年份,然后用兩個年份相減就是年齡碎税。好像R并沒有提供幾個能用的日期函數(shù)尤慰,我們只能使用format函數(shù)取出年份部分,然后轉(zhuǎn)換為int類型相減雷蹂。

student$Age<-as.integer(format(Sys.Date(),"%Y"))-as.integer(format(student$Birthdate,"%Y”))

這樣寫似乎太長了伟端,我們可以用within函數(shù),這個函數(shù)和之前提到過的with函數(shù)類似匪煌,可以省略變量名责蝠,不同的地方是within函數(shù)可以在其中修改變量党巾,也就是我們這里增加Age列:

student<-within(student,{

Age<-as.integer(format(Sys.Date(),"%Y"))-as.integer(format(Birthdate,"%Y"))

})

查詢/子集

查詢一個Date Frame,返回一個滿足條件的子集霜医,這相當于數(shù)據(jù)庫中的表查詢齿拂,是非常常見的操作。使用行和列的Index來獲取子集是最簡單的方法肴敛,前面已經(jīng)提到過署海。如果我們使用布爾向量,配合which函數(shù)医男,可以實現(xiàn)對行的過濾砸狞。比如我們要查詢所有Gender為F的數(shù)據(jù),那么我們首先對student$Gender==“F”镀梭,得到一個布爾向量:FALSE FALSE ?TRUE,然后使用which函數(shù)可以將布爾向量中TRUE的Index返回刀森,所以我們的完整查詢語句就是:

student[which(student$Gender=="F"),]

注意這里列Index并沒有輸入,如果我們只想知道所有女生的年齡丰辣,那么可以改為:

student[which(student$Gender=="F"),"Age”]

這樣的查詢寫法還是復(fù)雜了點撒强,可以直接使用subset函數(shù),那么查詢會簡單些笙什,比如我們把查詢條件改為年齡<30的女性飘哨,查姓名和年齡,那么查詢語句為:

subset(student,Gender=="F"&?Age<30,select=c("Name","Age"))

使用SQL查詢Data Frame

對于我這種使用了多年SQL的人來說琐凭,如果能夠直接寫SQL語句對Data Frame進行查詢操作芽隆,那是多么方便美妙的啊,結(jié)果還真有這么一個包:sqldf统屈。

同樣是前面的需求胚吁,對應(yīng)的語句就是:

library(sqldf)

result<-sqldf("select?Name,Age?from?student?where?Gender='F'?and?Age<30")

連接/合并

對于數(shù)據(jù)庫來說,對多表進行join查詢是一個很正常的事情愁憔,那么在R中也可以對多個Data Frame進行連接腕扶,這就需要使用merge函數(shù)。

比如除了前面申明的student對象外吨掌,我們再申明一個score變量半抱,記錄了每個學生的科目和成績:

score<-data.frame(SID=c(11,11,12,12,13),Course=c("Math","English","Math","Chinese","Math"),Score=c(90,80,80,95,96))

我們看看該表的內(nèi)容:

? SID ?Course Score

1 ?11 ? ?Math ? ?90

2 ?11 English ? ?80

3 ?12 ? ?Math ? ?80

4 ?12 Chinese ? ?95

5 ?13 ? ?Math ? ?96

這里的SID就是Student里面的ID,相當于一個外鍵膜宋,現(xiàn)在要用這個ID進行inner join操作窿侈,那么對應(yīng)的R語句就是:

result<-merge(student,score,by.x="ID",by.y="SID")

我們看看merge以后的結(jié)果:

?ID ? Name Gender ?Birthdate Age ?Course Score

1 11 ?Devin ? ? ?M 1984-12-29 ?31 ? ?Math ? ?90

2 11 ?Devin ? ? ?M 1984-12-29 ?31 English ? ?80

3 12 Edward ? ? ?M 1983-05-06 ?32 ? ?Math ? ?80

4 12 Edward ? ? ?M 1983-05-06 ?32 Chinese ? ?95

5 13 ?Wenli ? ? ?F 1986-08-08 ?29 ? ?Math ? ?96

正如我們期望的一樣join在了一起。

除了join秋茫,另外一個操作就是union史简,這也是數(shù)據(jù)庫常用操作,那么在R中如何將兩個列一樣的Data Frame Union聯(lián)接在一起呢肛著?雖然R語言中有union函數(shù)圆兵,但是不是SQL的Union的意思跺讯,我們要實現(xiàn)Union功能,需要用到rbind函數(shù)衙傀。

rbind的兩個Data Frame必須有相同的列抬吟,比如我們再申明一個student2,將兩個變量rbind起來:

student2<-data.frame(ID=c(21,22),Name=c("Yan","Peng"),Gender=c("F","M"),Birthdate=c("1982-2-9","1983-1-16"),Age=c(32,31))

rbind(student,student2)

裝載自:https://www.cnblogs.com/studyzy/p/4316118.html

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末统抬,一起剝皮案震驚了整個濱河市火本,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌聪建,老刑警劉巖钙畔,帶你破解...
    沈念sama閱讀 206,126評論 6 481
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異金麸,居然都是意外死亡擎析,警方通過查閱死者的電腦和手機,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,254評論 2 382
  • 文/潘曉璐 我一進店門挥下,熙熙樓的掌柜王于貴愁眉苦臉地迎上來揍魂,“玉大人,你說我怎么就攤上這事棚瘟∠终” “怎么了?”我有些...
    開封第一講書人閱讀 152,445評論 0 341
  • 文/不壞的土叔 我叫張陵偎蘸,是天一觀的道長庄蹋。 經(jīng)常有香客問我,道長迷雪,這世上最難降的妖魔是什么限书? 我笑而不...
    開封第一講書人閱讀 55,185評論 1 278
  • 正文 為了忘掉前任,我火速辦了婚禮章咧,結(jié)果婚禮上倦西,老公的妹妹穿的比我還像新娘。我一直安慰自己赁严,他們只是感情好扰柠,可當我...
    茶點故事閱讀 64,178評論 5 371
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著误澳,像睡著了一般。 火紅的嫁衣襯著肌膚如雪秦躯。 梳的紋絲不亂的頭發(fā)上忆谓,一...
    開封第一講書人閱讀 48,970評論 1 284
  • 那天,我揣著相機與錄音踱承,去河邊找鬼倡缠。 笑死哨免,一個胖子當著我的面吹牛,可吹牛的內(nèi)容都是我干的昙沦。 我是一名探鬼主播琢唾,決...
    沈念sama閱讀 38,276評論 3 399
  • 文/蒼蘭香墨 我猛地睜開眼脆淹,長吁一口氣:“原來是場噩夢啊……” “哼寡键!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起昼弟,我...
    開封第一講書人閱讀 36,927評論 0 259
  • 序言:老撾萬榮一對情侶失蹤丘损,失蹤者是張志新(化名)和其女友劉穎普办,沒想到半個月后,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體徘钥,經(jīng)...
    沈念sama閱讀 43,400評論 1 300
  • 正文 獨居荒郊野嶺守林人離奇死亡衔蹲,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 35,883評論 2 323
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了呈础。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片舆驶。...
    茶點故事閱讀 37,997評論 1 333
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖而钞,靈堂內(nèi)的尸體忽然破棺而出沙廉,到底是詐尸還是另有隱情,我是刑警寧澤笨忌,帶...
    沈念sama閱讀 33,646評論 4 322
  • 正文 年R本政府宣布蓝仲,位于F島的核電站,受9級特大地震影響官疲,放射性物質(zhì)發(fā)生泄漏袱结。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 39,213評論 3 307
  • 文/蒙蒙 一途凫、第九天 我趴在偏房一處隱蔽的房頂上張望垢夹。 院中可真熱鬧,春花似錦维费、人聲如沸果元。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,204評論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽而晒。三九已至,卻和暖如春阅畴,著一層夾襖步出監(jiān)牢的瞬間倡怎,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 31,423評論 1 260
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留监署,地道東北人颤专。 一個月前我還...
    沈念sama閱讀 45,423評論 2 352
  • 正文 我出身青樓,卻偏偏與公主長得像钠乏,于是被迫代替她去往敵國和親栖秕。 傳聞我的和親對象是個殘疾皇子,可洞房花燭夜當晚...
    茶點故事閱讀 42,722評論 2 345