復(fù)雜數(shù)據(jù)統(tǒng)計(jì)方法——基于R的應(yīng)用 R軟件練習(xí)-part1

本書(shū)作者: 吳喜之


鑒于吳教授的建議嫂用,在閱讀本書(shū)后續(xù)章節(jié)之前,我們先對(duì)附錄中的R相關(guān)操作進(jìn)行練習(xí)丈冬。

  • 操作系統(tǒng):win10

  • R版本:R-3.3.3

這部分內(nèi)容使用Rmarkdown進(jìn)行記錄嘱函。如果做練習(xí),可以直接在R中運(yùn)行每一個(gè)命令

強(qiáng)烈建議初學(xué)者自己去運(yùn)行每一個(gè)命令埂蕊,理解其中的具體含義往弓。

實(shí)踐1 —— 熱身

x = 1:100 #將1-100賦值到x,但是不顯示
(a = 1:100) #同樣將1-100賦值到a蓄氧,但是將直接顯示a的結(jié)果

sample(x, 20) #從x中隨機(jī)不放回地抽取20個(gè)值作為樣本函似,將直接顯示結(jié)果
set.seed(011); sample(1:10, 3) #先設(shè)定種子,再隨機(jī)取值喉童。注意撇寞,設(shè)定種子的目的是保證模擬結(jié)果的可重復(fù)性,011可認(rèn)為是零一一號(hào)種子

z = sample(1:200000, 10000) #不放回地抽取10000個(gè)值作為樣本
z[5:15] #提取z中5-15位的數(shù)值

y = c(5, 7, 12, 8, 5, 10)
z[y] #提取以y為下標(biāo)的z的元素值

(z = sample(x, 100, rep=T)) #從x中有放回地隨機(jī)抽取100個(gè)值作為樣本
(z1 = unique(z)) #去重后將結(jié)果保存至z1
length(z1) #統(tǒng)計(jì)z1中的元素個(gè)數(shù)堂氯,即z中不同的元素個(gè)數(shù)

a = 1:10
b = 5:15
setdiff(a, b) #從a中去除與b重合的元素蔑担,即保留a特異的元素
setdiff(b, a) #從b中去除與a重合的元素(注意與上一個(gè)命令進(jìn)行區(qū)分)

sort(union(a, b)) #將a與b的元素合并后排序,注意會(huì)去重
setequal(union(a, b), b) #判斷a與b合并后的元素是否與b相同咽白,注意會(huì)去重

intersect(1:10, 7:20) #取兩個(gè)集合的交集

sample(1:100, 20, prob=1:100) #從1-100中不等概率地隨機(jī)抽樣钟沛,prob限定每個(gè)數(shù)值被抽到的概率,需與元素個(gè)數(shù)相同局扶。[看出來(lái)了吧恨统,電腦抽獎(jiǎng)也可以造假]

實(shí)踐2 —— 簡(jiǎn)單運(yùn)算

pi * 10^2 #pi為圓周率
?“*” #聯(lián)網(wǎng)查看基本算術(shù)運(yùn)算方法
"*"(pi, "^"(10, 2)) #這是一種類(lèi)似“密碼”的寫(xiě)法三妈,你可以了解一下畜埋,萬(wàn)一想寫(xiě)個(gè)暗語(yǔ)什么的可以考慮~
x = pi * 10 ^ 2
x
print (x)
(x = pi * 10 ^ 2) #賦值同時(shí)打印
pi ^ (1:5) #指數(shù)可以是向量,結(jié)果也將是向量
print(x, digits = 12) #輸出x的12位數(shù)字

實(shí)踐3 —— 關(guān)于R對(duì)象的類(lèi)型

x = pi * 10 ^ 2
class(x)
mode(x)
typeof(x)

class(cars) #cars為R自帶的數(shù)據(jù)
mode(cars)
typeof(cars)

#modes have the same set of names as types except that:
  #types "integer" and "double" are returned as "numeric"
  #types "special" and "builtin" are returned as "function"
  #types "symbol" is called mode "name"
  #types "language" is returned as "(" or "call"

#分類(lèi)似乎是個(gè)很復(fù)雜的事情畴蒲,有興趣深入研究可以參考 <https://stackoverflow.com/questions/8855589/a-comprehensive-survey-of-the-types-of-things-in-r-mode-and-class-and-type>

names(cars) #顯示cars中的變量名
summary(cars) #對(duì)cars進(jìn)行基本統(tǒng)計(jì)分析

cars[1:6, ] #顯示前6行數(shù)據(jù)
head(cars) #顯示頭幾行數(shù)據(jù)悠鞍,默認(rèn)為前6行,結(jié)果同上
tail(cars) #顯示最后幾行數(shù)據(jù)

str(cars) #換一種方式展示數(shù)據(jù)
row.names(cars) #顯示數(shù)據(jù)的行名
attributes(cars) #顯示數(shù)據(jù)基本信息

class(dist~speed) #類(lèi)型為公式,左側(cè)為因變量咖祭,右側(cè)為自變量
plot(dist~speed, cars) #繪制兩個(gè)變量的散點(diǎn)圖
plot(cars$speed, cars$dist) #x軸數(shù)據(jù)在左掩宜,y軸數(shù)據(jù)在右,注意坐標(biāo)軸的title與上圖有一些區(qū)別

后續(xù)操作更為復(fù)雜么翰,從易到難牺汤,咱們慢慢來(lái)。

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末浩嫌,一起剝皮案震驚了整個(gè)濱河市檐迟,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌码耐,老刑警劉巖追迟,帶你破解...
    沈念sama閱讀 218,941評(píng)論 6 508
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場(chǎng)離奇詭異骚腥,居然都是意外死亡敦间,警方通過(guò)查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,397評(píng)論 3 395
  • 文/潘曉璐 我一進(jìn)店門(mén)束铭,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)廓块,“玉大人,你說(shuō)我怎么就攤上這事纯露〗斯牵” “怎么了代芜?”我有些...
    開(kāi)封第一講書(shū)人閱讀 165,345評(píng)論 0 356
  • 文/不壞的土叔 我叫張陵埠褪,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我挤庇,道長(zhǎng)钞速,這世上最難降的妖魔是什么? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 58,851評(píng)論 1 295
  • 正文 為了忘掉前任嫡秕,我火速辦了婚禮渴语,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘昆咽。我一直安慰自己驾凶,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,868評(píng)論 6 392
  • 文/花漫 我一把揭開(kāi)白布掷酗。 她就那樣靜靜地躺著调违,像睡著了一般。 火紅的嫁衣襯著肌膚如雪泻轰。 梳的紋絲不亂的頭發(fā)上技肩,一...
    開(kāi)封第一講書(shū)人閱讀 51,688評(píng)論 1 305
  • 那天,我揣著相機(jī)與錄音浮声,去河邊找鬼虚婿。 笑死旋奢,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的然痊。 我是一名探鬼主播至朗,決...
    沈念sama閱讀 40,414評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼玷过!你這毒婦竟也來(lái)了爽丹?” 一聲冷哼從身側(cè)響起,我...
    開(kāi)封第一講書(shū)人閱讀 39,319評(píng)論 0 276
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤辛蚊,失蹤者是張志新(化名)和其女友劉穎粤蝎,沒(méi)想到半個(gè)月后,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體袋马,經(jīng)...
    沈念sama閱讀 45,775評(píng)論 1 315
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡初澎,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,945評(píng)論 3 336
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了虑凛。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片碑宴。...
    茶點(diǎn)故事閱讀 40,096評(píng)論 1 350
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖桑谍,靈堂內(nèi)的尸體忽然破棺而出延柠,到底是詐尸還是另有隱情,我是刑警寧澤锣披,帶...
    沈念sama閱讀 35,789評(píng)論 5 346
  • 正文 年R本政府宣布贞间,位于F島的核電站,受9級(jí)特大地震影響雹仿,放射性物質(zhì)發(fā)生泄漏增热。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,437評(píng)論 3 331
  • 文/蒙蒙 一胧辽、第九天 我趴在偏房一處隱蔽的房頂上張望峻仇。 院中可真熱鬧,春花似錦邑商、人聲如沸摄咆。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 31,993評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)吭从。三九已至,卻和暖如春含鳞,著一層夾襖步出監(jiān)牢的瞬間影锈,已是汗流浹背。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 33,107評(píng)論 1 271
  • 我被黑心中介騙來(lái)泰國(guó)打工, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留鸭廷,地道東北人枣抱。 一個(gè)月前我還...
    沈念sama閱讀 48,308評(píng)論 3 372
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像辆床,于是被迫代替她去往敵國(guó)和親佳晶。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,037評(píng)論 2 355

推薦閱讀更多精彩內(nèi)容