1

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

0 回答 0