學(xué)習(xí)小組Day5筆記-姜洪利

一、常用包的安裝以及工作環(huán)境初始配置

此處代碼都是引自果子老師的《學(xué)習(xí)R語(yǔ)言镀赌,從這一課開(kāi)始》,還是留存?zhèn)溆脼楹谩?/p>

if(length(getOption("CRAN"))==0) options(CRAN="https://mirrors.tuna.tsinghua.edu.cn/CRAN/")
if(!require("tidyr")) install.packages("tidyr",update = F,ask = F)
if(!require("dplyr")) install.packages("dplyr",update = F,ask = F)
if(!require("ggplot2")) install.packages("ggplot2",update = F,ask = F)
if(!require("data.table")) install.packages("data.table",update = F,ask = F)
if(!require("ggrepel")) install.packages("ggrepel",update = F,ask = F)
if(!require("devtools")) install.packages("devtools",update = F,ask = F)
if(!require("pheatmap")) install.packages("pheatmap",update = F,ask = F)
if(!require("ggfortify")) install.packages("ggfortify",update = F,ask = F)
if(!require("stringr")) install.packages("stringr",update = F,ask = F)
if(!require("survival")) install.packages("survival",update = F,ask = F)
if(!require("survminer")) install.packages("survminer",update = F,ask = F)
if(!require("glmnet")) install.packages("glmnet",update = F,ask = F)
if(!require("ggpubr")) install.packages("ggpubr",update = F,ask = F)
if(!require("tibble")) install.packages("tibble",update = F,ask = F)
if(!require("cowplot")) install.packages("cowplot",update = F,ask = F)
if(!require("timeROC")) install.packages("timeROC",update = F,ask = F)
if(!require("survivalROC")) install.packages("survivalROC",update = F,ask = F)
if(!require("randomForest")) install.packages("randomForest",update = F,ask = F)
if(!require("Hmisc")) install.packages("Hmisc",update = F,ask = F)
if(!require("jsonlite")) install.packages("jsonlite",update = F,ask = F)
if(!require("ggstatsplot")) install.packages("ggstatsplot",update = F,ask = F)
if(!require("BiocManager")) install.packages("BiocManager",update = F,ask = F)
if(length(getOption("BioC_mirror"))==0) options>     (BioC_mirror="https://mirrors.ustc.edu.cn/bioc/")
if(!require("limma")) BiocManager::install("limma",update = F,ask = F)
if(!require("Biobase")) BiocManager::install("Biobase",update = F,ask = F)
if(!require("caret")) install.packages("caret",update = F,ask = F)
if(!require("IRanges")) BiocManager::install("IRanges",update = F,ask = F)
if(!require("DO.db")) BiocManager::install("DO.db",update = F,ask = F)
if(!require("GO.db")) BiocManager::install("GO.db",update = F,ask = F)
if(!require("fgsea")) BiocManager::install("fgsea",update = F,ask = F)
if(!require("clusterProfiler")) BiocManager::install("clusterProfiler",update = F,ask = F)
if(!require("GEOquery")) BiocManager::install("GEOquery",update = F,ask = F)
if(!require("hugene10sttranscriptcluster.db")) BiocManager::install("hugene10sttranscriptcluster.db",update = F,ask = F)
if(!require("DOSE")) BiocManager::install("DOSE",update = F,ask = F)
if(!require("RTCGA.clinical")) BiocManager::install("RTCGA.clinical",update = F,ask = F)
if(!require("bladderbatch")) BiocManager::install("bladderbatch",update = F,ask = F)
if(!require("sva")) BiocManager::install("sva",update = F,ask = F)
if(!require("DESeq2")) BiocManager::install("DESeq2",update = F,ask = F)
if(!require("edgeR")) BiocManager::install("edgeR",update = F,ask = F)

以上包安裝完畢之后等恐,先查看工作路徑绵咱,后根據(jù)需要設(shè)置自己的工作路徑,如下命令:
getwd() setwd() ##get/set workdictionary

二恩尾、向量與數(shù)據(jù)框

R中的數(shù)據(jù)類(lèi)型有五種弛说,分別是向量(Vector),矩陣(Matrix)翰意,數(shù)組(Array)木人,數(shù)據(jù)框(Data Frame),列表(List)冀偶;而元素的類(lèi)型醒第,有數(shù)值型、字符型进鸠、邏輯型、因子型等客年。向量是一維的單一類(lèi)型的元素集合蒲列,矩陣是二維的單一類(lèi)型的元素集合,數(shù)組是多維的單一類(lèi)型的元素集合搀罢,數(shù)據(jù)框是一個(gè)二維或多維的元素集合蝗岖,相當(dāng)于excel表格,列表是一個(gè)虛擬的大容器榔至,什么都可以裝抵赢。

  1. 向量

向量的提取方法,是在向量后加中括號(hào)唧取,其用法引自老師小潔的教程:

x -< rep(1:100, 2)
x[4]
x[-4]
x[2:4]
x[-2:4]
x[c(1, 5)]
x[x == 10]
x[x < 0]
x[x %% 2 ==0]
x[x %in% c(1, 2, 5)]
  1. 數(shù)據(jù)框
  • 讀文件和寫(xiě)文件
    常用的命令是read.csv,read.table,read.xlsx,write.csv,write.table,write.xlsx铅鲤。

  • 提取元素,相比向量枫弟,除了[]邢享,多了$,$相當(dāng)于數(shù)據(jù)框中的一個(gè)向量的名稱(chēng)淡诗,也就是其中的某一列骇塘,在數(shù)據(jù)框里,列是變量韩容,行是觀測(cè)對(duì)象款违。

以下引自老師小潔的文章

x[4,]
x[,4]/x[4]
x[4,4]
x[1:4]
x[1:4, 1:4]
x[c(1, 4)]
x[c(1, 4), c(1, 4)]
x$name
  1. attach&with的用法
  • attach和detach要配對(duì)使用,否則后續(xù)可能遇到未知錯(cuò)誤群凶。
  • attach相當(dāng)于把一個(gè)數(shù)據(jù)暫時(shí)賦值為全局環(huán)境插爹,如果不用detach的命令,attach將持續(xù)有用,而with僅僅是在括號(hào)里的代碼對(duì)數(shù)據(jù)進(jìn)行一個(gè)短暫的全局賦值赠尾,出了with代碼力穗,自動(dòng)失效,而代碼里如果存在賦值的變量气嫁,變量不予保留睛廊,要保留,需使用<<-杉编。
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市咆霜,隨后出現(xiàn)的幾起案子邓馒,更是在濱河造成了極大的恐慌,老刑警劉巖蛾坯,帶你破解...
    沈念sama閱讀 216,324評(píng)論 6 498
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件光酣,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡脉课,警方通過(guò)查閱死者的電腦和手機(jī)救军,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,356評(píng)論 3 392
  • 文/潘曉璐 我一進(jìn)店門(mén),熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)倘零,“玉大人唱遭,你說(shuō)我怎么就攤上這事〕适唬” “怎么了拷泽?”我有些...
    開(kāi)封第一講書(shū)人閱讀 162,328評(píng)論 0 353
  • 文/不壞的土叔 我叫張陵,是天一觀的道長(zhǎng)袖瞻。 經(jīng)常有香客問(wèn)我司致,道長(zhǎng),這世上最難降的妖魔是什么聋迎? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 58,147評(píng)論 1 292
  • 正文 為了忘掉前任脂矫,我火速辦了婚禮,結(jié)果婚禮上霉晕,老公的妹妹穿的比我還像新娘庭再。我一直安慰自己,他們只是感情好牺堰,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,160評(píng)論 6 388
  • 文/花漫 我一把揭開(kāi)白布佩微。 她就那樣靜靜地躺著,像睡著了一般萌焰。 火紅的嫁衣襯著肌膚如雪哺眯。 梳的紋絲不亂的頭發(fā)上,一...
    開(kāi)封第一講書(shū)人閱讀 51,115評(píng)論 1 296
  • 那天扒俯,我揣著相機(jī)與錄音奶卓,去河邊找鬼一疯。 笑死,一個(gè)胖子當(dāng)著我的面吹牛夺姑,可吹牛的內(nèi)容都是我干的墩邀。 我是一名探鬼主播,決...
    沈念sama閱讀 40,025評(píng)論 3 417
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼盏浙,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼眉睹!你這毒婦竟也來(lái)了?” 一聲冷哼從身側(cè)響起废膘,我...
    開(kāi)封第一講書(shū)人閱讀 38,867評(píng)論 0 274
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤竹海,失蹤者是張志新(化名)和其女友劉穎,沒(méi)想到半個(gè)月后丐黄,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體斋配,經(jīng)...
    沈念sama閱讀 45,307評(píng)論 1 310
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,528評(píng)論 2 332
  • 正文 我和宋清朗相戀三年灌闺,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了艰争。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 39,688評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡桂对,死狀恐怖甩卓,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情蕉斜,我是刑警寧澤猛频,帶...
    沈念sama閱讀 35,409評(píng)論 5 343
  • 正文 年R本政府宣布,位于F島的核電站蛛勉,受9級(jí)特大地震影響鹿寻,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜诽凌,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,001評(píng)論 3 325
  • 文/蒙蒙 一毡熏、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧侣诵,春花似錦痢法、人聲如沸。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 31,657評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至躬络,卻和暖如春尖奔,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 32,811評(píng)論 1 268
  • 我被黑心中介騙來(lái)泰國(guó)打工提茁, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留淹禾,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 47,685評(píng)論 2 368
  • 正文 我出身青樓茴扁,卻偏偏與公主長(zhǎng)得像铃岔,于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子峭火,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,573評(píng)論 2 353