- 博客(6)
- 收藏
- 关注
原创 笔记—R语言做相关气泡图
library(corrplot)data <- read.table(file.choose(), header = T,sep = '\t')new_data <- data[,-1]?cor??parpr <- cor(new_data, method = "pearson")pr1 <- cor(x= new_data[1:10],y = new_data[11:18], method = "pearson")pr2 <- cor(x = data[1:
2021-05-05 19:27:58 1682
原创 笔记——相对丰度堆分组叠图
Order <- read.delim(file.choose(),row.names = 1, sep = '\t', stringsAsFactors = FALSE, check.names = FALSE)Order$sum <- rowSums(Order)#求各物种总和Order <- Order[order(Order$sum, decreasing = TRUE), ]#各物种按总和排序Order_o <- subset(Order, select = -c(s
2021-05-05 19:24:54 746
原创 笔记—R语言做upset交集图
#不适合样本数量太多install.packages("UpSetR")library(UpSetR)library(dplyr)library(tidyr)library(ggplot2)library(plyr)library(gridExtra)library(grid)require(ggplot2); require(plyr); require(gridExtra); require(grid);#直接输入input <- c("0m" = 54,"25m" .
2021-04-29 10:34:02 837
原创 笔记—R语言NMDS
##########NMDSinstall.packages("devtools")install.packages("usethis")install.packages("sessioninfo")library(sessioninfo)library(usethis)library(devtools)devtools::install_github('YuLab-SMU/ggtree')if (!requireNamespace("BiocManager", quietly = TRUE
2021-04-29 08:42:02 3663 1
原创 笔记—R语言做箱线图
install.packages("tidyselect")install.packages("rstatix")install.packages("ggpubr")install.packages("rio")install.packages("zip")library(ggplot2)library('ggpubr')alpha <- read.table(file.choose(),header = TRUE,row.names = 1,sep = "\t") #各样本α多样性指
2021-04-28 21:07:14 737
原创 笔记—R语言做矩阵散点图
笔记—R语言做矩阵散点图#install.packages("corrgram")#install.packages("GGally")install.packages("seriation")install.packages("wesanderson")library(corrgram)library(ggplot2)library(GGally)library(wesanderson)#配色包data <- read.table(file.choose(), header =
2021-04-28 21:01:50 3741
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人