# 方法一
本地拷貝并打包R包，復(fù)制到另一個(gè)R的對(duì)應(yīng)的R包library目錄下（.libPath查看包路徑）
# 方法二（變量名自定義）
pkged <- installed.packages()
dbpkg <- pkged[,1]
Write.table(dbpkg,"D:/R project/dbpkg.txt")
##? 另一個(gè)R導(dǎo)入dbpkg.txt
dbpkg <- read.table("home/yshcai/dbpkg.txt",header = T)
dbpkg <- dbpkg[,1]
install.packages(c(dbpkg))
##?另一臺(tái)電腦的R（變量名還是簡(jiǎn)單點(diǎn)省點(diǎn)力氣）（我的另一個(gè)R是linux版本，所以路徑不一樣）
a = read.table('/home/yshcai/dbpkg.txt',header = T)
b <- installed.packages()
b <- b[,1]
for(i in a) {if(! i %in% b) BiocManager::install(i, update=F)}#for循環(huán)，如果一次不能完成安裝，可以將已安裝的R包與打包的R包取交集，再安裝未安裝完成的包。
### 取兩個(gè)R的R包之間的交集
a <- read.table("D:/R Project/dbpkg3.csv",header = T)
b <- read.table("D:/R Project/pkg2.csv",header = T)
library(dplyr)
c <- setdiff(a,b)
write.table(c,"D:/R Project/DBPKG.txt")
### 如果始終未能安裝安打包的R包，那么應(yīng)該更換鏡像，或者更換安裝方式（install.packages()/BiocManager::install()）
###?并集（拓展知識(shí)）
c <- inner_join(a,b,by = 'x')
#### 新人，寫的粗糙，能看就看
