看到挺多小伙伴画这个图了,甜甜圈图,小编也试着画了一画,大家可以瞅瞅。
library(ggplot2)
library(dplyr)
#数据
df <- read.csv("otu_table3.csv", header = T, check.names=F)
hsize <- 3 #调整圆环的刻度
df <- df %>%
mutate(x = hsize)
M01单个样本所含细菌的丰度可视化(也可以画其他样本的)
#绘图
p1<-ggplot(df, aes(x = hsize, y =M01 , fill =Id)) +
geom_col