感覺又發(fā)現(xiàn)了一個新世界

最近一段時間夷野,也就一周左右學(xué)習(xí)《深入淺出統(tǒng)計學(xué)》這本書的1—3章基礎(chǔ)概念知識,光學(xué)理論沒實踐感覺還是缺了點啥涝开,于是在谷歌上查了一下R編程語言和統(tǒng)計概率相關(guān)的內(nèi)容,動手實踐了一下用R編程語言來求一些統(tǒng)計量影斑,比如均值,中位數(shù)机打,方差等矫户,發(fā)現(xiàn)有了編程這個工具,用機器計算比人工用大腦残邀,計算器計算快很多皆辽,不僅節(jié)約時間而且很準確。

產(chǎn)生的一個感悟是R語言其實充當?shù)氖窃诮y(tǒng)計概率中芥挣,人工計算步驟中的翻譯驱闷,就好像你講中文但是需要和外國人交流,那么就需要一個會懂英語的人幫你把中文意思翻譯成英文意思空免。在這個過程中需要培養(yǎng)的是自己的理解能力空另,即用R編程語言來理解用統(tǒng)計概率知識解決問題的能力。也就是換一種表達方式蹋砚,用R語言來表達統(tǒng)計概率扼菠。

下面是我用R編程語言簡單實踐求“mtcar”中“hp”變量的一些基本統(tǒng)計量!

#下面顯示“mtcar”中有11個變量坝咐,我選取的求其中的“hp”變量的各個統(tǒng)計量

> str(mtcars)

'data.frame':? 32 obs. of? 11 variables:

$ mpg : num? 21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...

$ cyl : num? 6 6 4 6 8 6 8 4 4 6 ...

$ disp: num? 160 160 108 258 360 ...

$ hp? : num? 110 110 93 110 175 105 245 62 95 123 ...

$ drat: num? 3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...

$ wt? : num? 2.62 2.88 2.32 3.21 3.44 ...

$ qsec: num? 16.5 17 18.6 19.4 17 ...

$ vs? : num? 0 0 1 1 0 1 0 1 1 1 ...

$ am? : num? 1 1 1 0 0 0 0 0 0 0 ...

$ gear: num? 4 4 4 3 3 3 3 4 4 4 ...

$ carb: num? 4 4 1 1 2 1 4 2 2 4 ...

#求均值

> mean(mtcars$hp)

[1] 146.6875

#求中位數(shù)

> median(mtcars$hp)

[1] 123

#求方差

> var(mtcars$hp)

[1] 4700.867

#求標準差

> sd(mtcars$hp)

[1] 68.56287

#求最大值

> max(mtcars$hp)

[1] 335

#求最小值

> min(mtcars$hp)

[1] 52

#求四分位數(shù)

> quantile(mtcars$hp,0.25)

25%

96.5

#求上下四分位數(shù)

> quantile(mtcars$hp, c(0.25,0.75))

25%? 75%

96.5 180.0

對比一下循榆,如果自己手算加上計算器算吧,假設(shè)計算“hp”變量的均值畅厢,則需要將110 110 93 110 175 105 245 62 95 123 ...這些數(shù)全部加起來算個總和冯痢,再除以總共有多少個數(shù),是不是很費時間框杜,要是計算器不小心按錯一個數(shù)就全錯了浦楣,那不前功盡棄,所以還是挺麻煩的咪辱。但是用R語言振劳,直接敲上下面的代碼,秒秒鐘就算出來了油狂,這感覺難道不酸爽么历恐?嘿嘿!

#求均值

> mean(mtcars$hp)

[1] 146.6875

感覺又發(fā)現(xiàn)了一個新世界——編程語言的世界很奇妙专筷!

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末弱贼,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子磷蛹,更是在濱河造成了極大的恐慌吮旅,老刑警劉巖,帶你破解...
    沈念sama閱讀 217,734評論 6 505
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件味咳,死亡現(xiàn)場離奇詭異庇勃,居然都是意外死亡檬嘀,警方通過查閱死者的電腦和手機,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,931評論 3 394
  • 文/潘曉璐 我一進店門责嚷,熙熙樓的掌柜王于貴愁眉苦臉地迎上來务唐,“玉大人啃勉,你說我怎么就攤上這事蛮原”感欤” “怎么了?”我有些...
    開封第一講書人閱讀 164,133評論 0 354
  • 文/不壞的土叔 我叫張陵爆班,是天一觀的道長蒿秦。 經(jīng)常有香客問我,道長蛋济,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,532評論 1 293
  • 正文 為了忘掉前任炮叶,我火速辦了婚禮碗旅,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘镜悉。我一直安慰自己祟辟,他們只是感情好,可當我...
    茶點故事閱讀 67,585評論 6 392
  • 文/花漫 我一把揭開白布侣肄。 她就那樣靜靜地躺著旧困,像睡著了一般。 火紅的嫁衣襯著肌膚如雪稼锅。 梳的紋絲不亂的頭發(fā)上吼具,一...
    開封第一講書人閱讀 51,462評論 1 302
  • 那天,我揣著相機與錄音矩距,去河邊找鬼拗盒。 笑死,一個胖子當著我的面吹牛锥债,可吹牛的內(nèi)容都是我干的陡蝇。 我是一名探鬼主播,決...
    沈念sama閱讀 40,262評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼哮肚,長吁一口氣:“原來是場噩夢啊……” “哼登夫!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起允趟,我...
    開封第一講書人閱讀 39,153評論 0 276
  • 序言:老撾萬榮一對情侶失蹤恼策,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后拼窥,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體戏蔑,經(jīng)...
    沈念sama閱讀 45,587評論 1 314
  • 正文 獨居荒郊野嶺守林人離奇死亡蹋凝,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,792評論 3 336
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了总棵。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片鳍寂。...
    茶點故事閱讀 39,919評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖情龄,靈堂內(nèi)的尸體忽然破棺而出迄汛,到底是詐尸還是另有隱情,我是刑警寧澤骤视,帶...
    沈念sama閱讀 35,635評論 5 345
  • 正文 年R本政府宣布鞍爱,位于F島的核電站,受9級特大地震影響专酗,放射性物質(zhì)發(fā)生泄漏睹逃。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 41,237評論 3 329
  • 文/蒙蒙 一祷肯、第九天 我趴在偏房一處隱蔽的房頂上張望沉填。 院中可真熱鬧,春花似錦佑笋、人聲如沸翼闹。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,855評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽猎荠。三九已至,卻和暖如春蜀备,著一層夾襖步出監(jiān)牢的瞬間关摇,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 32,983評論 1 269
  • 我被黑心中介騙來泰國打工琼掠, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留拒垃,地道東北人。 一個月前我還...
    沈念sama閱讀 48,048評論 3 370
  • 正文 我出身青樓瓷蛙,卻偏偏與公主長得像悼瓮,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子艰猬,可洞房花燭夜當晚...
    茶點故事閱讀 44,864評論 2 354

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