R的实现 (ggplot2)
R中是没有封装好的包来直接实现的,我们将用ggplot2中的geom_bar进行极坐标变换得到。...:
library(ggplot2)
theme_set(theme_bw())
p geom_bar(data1, mapping = aes(x = 0.8, y = cell1..., fill = type), color = "gray", stat = 'identity', width = 0.4) + geom_bar(data2, mapping = aes(x = 0.5...image
现在还是不太好看,最后把xy轴的刻度和xy轴的的标题去掉:
p + theme(axis.title.x=element_blank(), axis.title.y=element_blank...= [30,25, 66, 13, 23]
x2 = [29, 28, 90, 19, 31]
x_0 = [1,0,0,0] #用于显示空心
labels = ["Intron","Intergenic