绘图导航
  • 基础绘图
  • 高级绘图
  • 微生物
  • 转录组

R语言|绘制哑铃图

 二维码 7
作者:图图来源:图图云平台

R语言绘制哑铃图Dumbbell plot


代码参考

library(ggplot2)

library(reshape2)

#数据处理

data <- read.csv("otu_table2.csv", header = T, check.names=F)

data_melt <- melt(data,id.vars = "Id")

#默认绘图

p1 <- ggplot(data_melt,aes(x = value, y = Id)) +   

   geom_line(aes(group = Id)) +

   geom_point(aes(fill = variable), size = 3)

p1


#设置填充颜色和点的大小

p2 <- ggplot(data_melt,aes(x= value, y= Id)) +   

   geom_line(aes(group = Id)) +

   geom_point(aes(color = variable, size = value)) #点随数值的大小而变化

p2



多个样本的情况也可画,画出来是这样子的:

library(ggplot2)

library(reshape2)

#数据处理

data <- read.csv("otu_table1.csv", header = T, check.names=F)

data_melt <- melt(data,id.vars = "Id")

#绘图

p3 <- ggplot(data_melt,aes(x= value, y= Id)) +   

   geom_line(aes(group = Id)) +

   geom_point(aes(color = variable, size = value)) #点随数值的大小而变化

p3


“作图帮”微信公众号同步更新

作图帮二维码.jpg


可添加下方微信进入【生信作图交流群】,群内免费分享绘图代码与示例数据

公司二维码.png



分享到:
推荐使用谷歌浏览器点击下载