R语言基础3

jimmy <- function(a,b,m = 2){
  (a+b)^m
}
##a,b,m为形式参数；jimmy为函数名称；m的默认值为2;
##大括号内为编写函数使用的代码；
> jimmy(a = 1,b = 2)
[1] 9
> jimmy(1,2)
[1] 9
> jimmy(3,6,-2)
[1] 0.01234568


plot(iris[,1],col = iris[,5])
plot(iris[,2],col = iris[,5])
plot(iris[,3],col = iris[,5])
plot(iris[,4],col = iris[,5])

#当一个代码需要复制粘贴三次，就应该写成函数或使用循环

jimmy <- function(i){
  plot(iris[,i],col=iris[,5])
}

jimmy(1)
jimmy(2)
jimmy(3)
jimmy(4)

install.packages("tidyr")

BiocManager::install("ggplot2")

devtools::install_github("jmzeng1314/idmap1")

library(stringr)
require(stringr)
library("stringr")
#library() 检查包是否安装成功的唯一标准

# 清华镜像
# http://mirrors.tuna.tsinghua.edu.cn/CRAN/
# http://mirrors.tuna.tsinghua.edu.cn/bioconductor/
  
# 中科大镜像
# http://mirrors.ustc.edu.cn/CRAN/
# http://mirrors.ustc.edu.cn/bioc/

options("repos"=c(CRAN="http://mirrors.tuna.tsinghua.edu.cn/CRAN/"))
options(BioC_mirror="http://mirrors.ustc.edu.cn/bioc/")

pheatmap::pheatmap()

if(!require(stringr))install.packages("stringr")

ls("package:stringr")