我试图在ggplot2中绘制5625(75 * 75);这需要很长时间,最终的情节质量相对较低。还有其他选择,可以策划这样的事情吗?!
mydata = data.frame(side1=rep(colnames(cmap75),3,each=231),side2=rep(colnames(cmap75),231,each=3),widget=rep(colnames(cmap75),1),size=rep(1/3,231*3),strength=runif(3*231,-1,1))
ggplot(mydata, aes(x="",y = size, fill = strength, width = widget)) +
geom_bar(width = 1) +
facet_grid(side1 ~ side2) +
scale_x_discrete("",breaks=NULL) +
coord_polar("y") + scale_fill_gradient2() +
scale_y_continuous("",breaks=NULL)+ geom_point() +
theme(panel.grid=element_blank(),panel.border=element_blank())+theme(panel.margin=unit(0,"mm"))
ggsave("ggplot1.pdf", width=20, height=20)
colnames(cmap75)
,只是一个字符串向量;
这是一个较小的例子
mydata = data.frame(side1=rep(LETTERS[1:6],3,each=18),side2=rep(LETTERS[1:6],18,each=3),widget=rep(LETTERS[1:6],1),size=rep(1/3,18*3),strength=runif(3*18,-1,1))