``` 学习小组生信笔记——DAY6

options("repos" = c(CRAN="https://mirrors.tuna.tsinghua.edu.cn/CRAN/")) 
options(BioC_mirror="https://mirrors.ustc.edu.cn/bioc/") #设置镜像
install.packages("dplyr")#安装R包
library(dplyr)#加载R包

mutate(test, new = Sepal.Length * Sepal.Width)#在test数据框中新增一列，列名为new，元素为Sepal.Length * Sepal.Width

select(test,1)#在test数据框中筛选第一列
filter(test, Species == "setosa")#在test中筛选出品种为setosa的行

arrange(test, Sepal.Length)#默认从小到大排序

summarise(group_by(test, Species),mean(Sepal.Length), sd(Sepal.Length))#分组汇总
## # A tibble: 3 x 3
##   Species    `mean(Sepal.Length)` `sd(Sepal.Length)`
##   
## 1 setosa                     5                 0.141
## 2 versicolor                 6.7               0.424
## 3 virginica                  6.05              0.354

test %>% 
  group_by(Species) %>% 
  summarise(mean(Sepal.Length), sd(Sepal.Length))#可以将上一步的输出作为下一步的输入
count(test,Species)#统计值

inner_join(test1, test2, by = "x")#取交集
left_join(test1, test2, by = 'x')#左连
full_join( test1, test2, by = 'x')#全连
semi_join(x = test1, y = test2, by = 'x')#返回能够与y表匹配的x表所有记录semi_join
anti_join(x = test2, y = test1, by = 'x')#返回无法与y表匹配的x表的所记录anti_join
bind_rows(test1, test2)#以行合并，列数必须相同
bind_cols(test1, test3)#以列合并，行数必须相同