我正在尝试在 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))