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

R语言|绘制环状热图

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

R语言绘制环状热图

最近学习了简单绘制环状热图的参数,以下是绘图的小示例。


#简单绘图

library(reshape)

library(ggplot2)

# 创建数据

set.seed(8)

m <- matrix(round(rnorm(200), 2), 25, 25)

colnames(m) <- paste(1:25)

rownames(m) <- paste(1:25)

df <- melt(m)

colnames(df) <- c("x", "y", "value")

#ggplot2绘图

p1<-ggplot(df, aes(x = x, y = y, fill = value)) +

   geom_tile(color = "skyblue") +

   #添加values

   #geom_text(aes(label = value), color = "white", size = 4) +

   scale_fill_gradient2(low = "#075AFF",

                       mid = "#FFFFCC",

                       high = "#FF0000") +

   coord_fixed()

p1


#调整图形比例大小

p1 + xlim(-10,25) + ylim(-10,25) -> p2

p2

#环状热图

p2 + coord_polar(theta = "x", start = pi/4) -> p3

p3



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

作图帮二维码.jpg


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

公司二维码.png


推荐使用谷歌浏览器点击下载