R语言|绘制环状热图

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

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

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