2020-12-20 Day6 九亿分之一

今天的重点在于:
(1)设置镜像,以便下载各种包时更加快速。设置后一劳永逸是目标,但是失败也是常事;
(2)数据框初级操作,筛选数据,表格合并等。

设置镜像

高级模式

(1)首先使用R的配置文件 .Rprofile
命令为 file.edit('~/.Rprofile')


image.png

(2)在Rscript中运行后,会产生一个新的.Rprofile 界面
在这个界面中输入镜像命令重点命令
options("repos" = c(CRAN="https://mirrors.tuna.tsinghua.edu.cn/CRAN/")) #对应清华源
options(BioC_mirror="https://mirrors.ustc.edu.cn/bioc/") #对应中科大源

image.png

(3)最后保存,重启Rstudio,这时你再运行一下如下两行代码,即可看到是否镜像设置成功:
options()repos options()BioC_mirror

image.png

看起来都设置成功了
image.png

如果每次新建的project中,用file.edit('~/.Rprofile')打开的Rprofile中都已经有这些代码,则可认定为长期设置,不必每次下载包之前再次设置。例如

image.png

这是我再次新建的project ,但是运行Rprofile后仍有这两行镜像代码,则说明不必再次输入镜像,可直接使用。如果没有这些,则需要重新输入镜像命令。

安装R包

命令为 install.packages(“包”)
BiocManager::install(“包”)
取决于你要安装的包存在于CRAN网站还是Biocductor,前者用于CRAN网站的包获取,后者用于Biocductor,包在哪里,需要谷歌搜索

加载包

两个命令均可,使用时二选一,命令中的包在实际使用时为包的名称
library(包)
require(包)
例如,镜像命令后输入加载 dplyr 包


image.png

dplyr 包中的基本函数使用范例

(1)**mutate() #新增数据框中的列,格式为mutate(矩阵名, 新增列名 = 值) **
例如 mutate(test, new = Sepal.Length * Sepal.Width),

(2)select() #按列筛选,select(矩阵名,列数)或者select(矩阵名,列名称)
例如 select(test,1)
select(test,c(1,4))
select(test,Sepal.Width)

(3)filter() #筛选行
格式为 filter(矩阵名, 列名 == "值")
filter(矩阵名, 列名 %in% c( "值1", "值2", "值3"))
例如 filter(test, Species == "versicolor")
filter(test, Species == "setosa"&Sepal.Length > 3 )
filter(test, Species %in% c("versicolor","virginica")) #在数据框中筛选带有这两个名称的行

(4)arrange() #按某1列或某几列对整个表格进行排序
格式为 arrange(矩阵名, 列名)#默认从小到大排序
arrange(矩阵名, desc(列名))#用desc从大到小

(5)summarise() #汇总
格式 summarise(矩阵名, mean(列名), sd(列名))# 计算某列的平均值和标准差
group_by(矩阵名, 列名) # 先按照矩阵名分组,计算每组矩阵名的平均值和标准差
例summarise(group_by(test, Species),mean(Sepal.Length), sd(Sepal.Length))

dplyr两个实用技能

  1. 管道操作 %>% (cmd/ctr + shift + M)
  2. count统计某列的unique值
    count(矩阵名,列名)

dplyr处理关系数据 (数据框编辑实用命令)

  1. 內连inner_join,取交集
    inner_join(表1,表2, by = "列名")
  2. 左连left_join
    left_join(表1, 表2, by = '列名'), 新的表行数=左边的表1,新列值来自于右边表2,只显示存在的值,没有的值为NA。
  3. 全连full_join
    格式为 full_join( 表1, 表2, by = 'x')
    表1和表2通过x这一列连接起来
  4. 半连接
    semi_join(x = 表1, y =表2, by = 'x')
    返回能够与y表匹配的x表所有记录semi_join
  5. 反连接
    anti_join(x =表2, y =表1, by = 'x')
    返回无法与y表匹配的x表的所记录anti_join
  6. 简单合并
    相当于base包里的cbind()函数和rbind()函数
    bind_rows()函数需要两个表格列数相同,合并行需要有相同列数
    bind_cols()函数则需要两个数据框有相同的行数,合并列需要有相同行数
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 212,816评论 6 492
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 90,729评论 3 385
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 158,300评论 0 348
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 56,780评论 1 285
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 65,890评论 6 385
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 50,084评论 1 291
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 39,151评论 3 410
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 37,912评论 0 268
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 44,355评论 1 303
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 36,666评论 2 327
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 38,809评论 1 341
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 34,504评论 4 334
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 40,150评论 3 317
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 30,882评论 0 21
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,121评论 1 267
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 46,628评论 2 362
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 43,724评论 2 351

推荐阅读更多精彩内容