如何使用ggplot在R中绘制变体圆形条形图
I want to plot a picture like this but I don't know how to plot it with R. I saw a tutorial on this website but this is not what I needed. It is like a circular bar chart except that, in the picture below every bar is not a single value but a series value denote different incidence in a different year.
下图中是模板.
任何帮助将不胜感激！
我的虚假数据:
structure(list(year = c(2010, 2011, 2012, 2010, 2011, 2012, 2010,
2011, 2012, 2010, 2011, 2012), disease = c(1, 1, 1, 2, 2, 2,
3, 3, 3, 4, 4, 4), group = c("A", "A", "A", "A", "A", "A", "B",
"B", "B", "B", "B", "B"), incidence = c(0.2, 0.3, 0.4, 0.1, 0.3,
0.2, 0.5, 0.6, 0.7, 0.8, 0.9, 0.3)), row.names = c(NA, -12L), class = c("tbl_df",
"tbl", "data.frame"))
这是一个循环的热图.下面就像是ggplot2中的一个快速尝试:
It is a circular heatmap.. most likely there are packages for doing it. Below is like a quick attempt in ggplot2 to do it:
library(ggplot2)
library(tidyr)
library(dplyr)
library(tibble)
mat = matrix(runif(200),10,20)
colnames(mat) = paste0("col",1:ncol(mat))
rownames(mat) = paste0("row",1:nrow(mat))
假设mat是我们的矩阵，然后我们进行长轴旋转并将行和列顺序保留为因子:
Suppose mat is our matrix, then we pivot long and preserve the row and column orders in factor:
df = data.frame(mat) %>%
rownames_to_column("row") %>%
pivot_longer(-row) %>%
mutate(name=factor(name,levels=colnames(mat)),
row=factor(row,levels=rownames(mat)))
然后我们绘制，在下面添加了另一列以添加行名注释:
Then we plot, below I added another column to add the row names annotation:
row_num = length(levels(df$row))
g = ggplot(df,aes(x=name,y=as.numeric(row),fill=value)) +
xlim(c("",colnames(mat))) + ylim(c(-row_num/1.5,row_num+1))+
geom_tile()+ ylab("")+
annotate(x="",y=1:row_num,label=levels(df$row),size=2.5,geom="text")
因此，您有一个高架"的热图.第一列是标签.现在的目的是包装它并形成圆形热图:
So you have a "elevated" heatmap. And the first column is the label. The purpose is to now wrap this and form the circular heatmap:
g + coord_polar(start=-0.15) + theme_bw() +
theme(legend.position = c(0.5, 0.5),legend.key.size = unit(0.2, "cm"))