1.默認加載包

如果在操作過程中，經(jīng)常用到一些R包，可以設置成啟動R后自動加載。在配置文件.Rprofile中設置。

file.edit("~.Rprofile")

在打開的.Rprofile文件中輸入：

#設置默認鏡像
local({r <-getOption("repos")
r["CRAN"]<-"https://mirrors.tuna.tsinghua.edu.cn/CRAN/"
options(repos=r)})

#設置Biconductor鏡像
options(BioC_mirror="http://mirrors.ustc.edu.cn/bioc/")

.First <- function(){
  library(tidyverse)
  library(pacman)
  cat("\nWelcome at",date(),"\n")
}

.Last <- function(){
  cat ("\nGoodbye at ",date(),"\n")
}
.First <- function(){
  library(tidyverse)
  library(pacman)
}

Rmarkdown中，在代碼塊中設置eval=FALSE:顯示代碼，但不運行。

2.為R添加額外擴展包加載路徑

默認情況下，R包加載目錄在.libPaths()目錄中，可以為其添加更多的路徑。

.libPaths()

## [1] "E:/Rproject"                        "D:/Program Files/R/R-4.0.3/library"

.libPaths(new = "E:/Rproject")

.libPaths()

## [1] "E:/Rproject"                        "D:/Program Files/R/R-4.0.3/library"

3. 拆遷R包

某些特殊情況下，需要將一臺設備上安裝的R包，在另一臺設備上安裝，首先保存A設備上的R包list,然后再 另一臺設備上安裝。

# A設備
oldip <- installed.packages()[,1]
save(oldip,file = "installedPackages.Rdata")

# B設備
load("installedPackages.Rdata")
newip <- installed.packages()[,1]
for(i in setdiff(oldip,newip)){
  install.packages(i)
}

4.修改默認語言

Sys.getlocale() #顯示系統(tǒng)語言

## [1] "LC_COLLATE=Chinese (Simplified)_China.936;LC_CTYPE=Chinese (Simplified)_China.936;LC_MONETARY=Chinese (Simplified)_China.936;LC_NUMERIC=C;LC_TIME=Chinese (Simplified)_China.936"

Sys.setenv(LANGUAGE="en") #更改默認語言為英文

5. 邊賦值邊顯示

(x <- rnorm(10))

##  [1]  0.5454380  0.8646612 -0.5604911 -0.6011802 -1.6594942  0.2001943
##  [7] -1.5415910 -0.7013765 -0.4777953  0.3674361

6.顯示源代碼

直接輸入函數(shù)名，不加括號即可。

sd

## function (x, na.rm = FALSE) 
## sqrt(var(if (is.vector(x) || is.factor(x)) x else as.double(x), 
##     na.rm = na.rm))
## <bytecode: 0x00000000131b5860>
## <environment: namespace:stats>

7.利用函數(shù)修改鏡像

chooseCRANmirror() #選擇CRAN鏡像
chooseBioCmirror() #選擇Bioconductor鏡像

8.默認保留小數(shù)點位數(shù)

默認R顯示7位小數(shù)，如果想默認顯示3位小數(shù)，digits=3。

options('digits' = 3)

9.選擇最快的R鏡像

Y叔開發(fā)的新技能，尋找最快的CRAN和Bioconductor鏡像。

# install.packages("do")
do::mirror.speed(min.second = 0.1) #檢測可以在0.1s以內訪問的鏡像。

再結合file.edit("~.Rprofile")就可以快速進行下載了。

逐步更新中…………

參考文獻：

R語言的一些特殊技巧（參考自公眾號：基因學苑）
你不需要每次都重復加載一堆R包（參考自公眾號：基因學苑）