- 保存tiff圖片：
tiff(filename = "nom.tif", width = 600, height = 900)
-
sample()抽樣函數(shù)
sample(c(1,2,3,4), 100, replace=TRUE, prob=c(0.15, 0.2,0.3,0.35))
3.factor(x = character(), levels, labels = levels)構(gòu)造一個(gè)因子序列。x為原數(shù)據(jù)，levels是x中的不同水平，labels是與x中每個(gè)水平對應(yīng)的標(biāo)簽。
x <- c("Man", "Male", "Man", "Lady", "Female")
xf <- factor(x, levels = c("Male", "Man" , "Lady", "Female"),
labels = c("Male", "Male", "Female", "Female"))
xf
#[1] Male Male Male Female Female
#Levels: Male Female
- R中的管道符號(hào)為“%>%”。如果要使用管道，需要加載
magrittr包。其實(shí)Rstudio出的各種包都默認(rèn)支持管道，如果加載了tidyverse包也是可以。
library(magrittr)
library(ggplot2)
mtcars %>% ggplot(aes(x=cyl,y=mpg,group=cyl))+geom_boxplot()
- 默認(rèn)加載包
如果一些包經(jīng)常使用，想要啟動(dòng)R之后自動(dòng)加載，可以在配置文件中進(jìn)行設(shè)置，例如每期啟動(dòng)R，自動(dòng)加載ggplot2包。
# Method 1
file.edit("~/.Rprofile")
.First <- function() {
library(ggplot2)
}
# Method 2
local({old <- getOption(“defaultPackages”)
options(defaultPackages = c(old, “ggplot2”))})
- 在繪圖的時(shí)候，想要快速設(shè)置幾個(gè)不同的顏色，又嫌生成顏色比較麻煩?？梢允褂胷ainbow()函數(shù)，給定一個(gè)數(shù)據(jù)，快速生成顏色。
rainbow(4)
#[1] "#FF0000" "#80FF00" "#00FFFF" "#8000FF"
- ggplot2中，使用%+%替換畫圖數(shù)據(jù)
library(tidyverse)
p1 %+% dat2
- 交集
intersect()、并集union()、找不同setdiff()
# 找x中不同于y的元素
setdiff(x, y)
# 找y中不同于x的元素
setdiff(y, x)
- 查看R包里有哪些函數(shù)(要先加載這個(gè)R包)
ls("package:clusterProfiler")
- 不等長合并
M1.dplyr包
dplyr::bind_rows() #不匹配到的放在最后，且等于NA
M2.plyr包
rbind.fill 函數(shù)可以很好將數(shù)據(jù)進(jìn)行合并，并且補(bǔ)齊沒有匹配到的缺失值為NA。
rbind.fill 函數(shù)只能合并數(shù)據(jù)框格式
source: https://blog.csdn.net/sinat_26917383/article/details/50676894
