我使用下面的R代码来构建气泡图。如何使用R来创建梯度填充的气泡图
pdf(file='myfigure.pdf',height=10,width=13)
y<-c(123,92,104,23,17,89,13)
x<-c(11,45,24,50,18,7,2)
size<-c(1236,1067,1176,610,539,864,1026)
radius<-sqrt(size/pi)
col<-c(2,2,3,4,5,5,6)
name<-c("Acura", "Alfa Romeo","AM General","Aston Martin Lagonda","Audi","BMW","Bugatti")
symbols(x,y, circles=radius,fg="white",bg=col,ylim=c(-20,140))
text(x, y, name, cex=1.5,font=4)
dev.off()
但我想与三维表面的气泡,说渐变填充和阴影。如下图所示。
任何人都知道如何使用R来释放它?谢谢!
感谢您提供的所有建议。最后,我试图通过从黑暗到光线绘制多个圆圈来使其渐变填充的愚蠢方式。任何建议,使其更好?谢谢!
makeTransparent<-function(someColor, alpha)
{
newColor<-col2rgb(someColor)
apply(newColor, 2, function(curcoldata){rgb(red=curcoldata[1], green=curcoldata[2], blue=curcoldata[3],alpha=alpha,maxColorValue=255)})
}
pdf(file='myfigure.pdf',height=10,width=13)
y<-c(123,92,104,23,17,89,13)
x<-c(11,45,24,50,18,7,2)
size<-c(1236,1067,1176,610,539,864,1026)
radius<-sqrt(size/pi)
col<-c(2,2,3,4,5,5,6)
name<-c("Acura", "Alfa Romeo","AM General","Aston Martin Lagonda","Audi","BMW","Bugatti")
x2<-c()
y2<-c()
circles<-c()
bg<-c()
fg<-c()
num<-30
radius_min<-0.3
alpha_min<-40
alpha_max<-180
for (i in 1:num){
x2<-c(x2,x)
y2<-c(y2,y)
circles<-c(circles,radius*(radius_min+(i-1)*(1-radius_min)/num))
bg<-c(bg,makeTransparent(col,alpha=alpha_max-(i-1)*(alpha_max-alpha_min)/num))
if(i!=num){fg<-c(fg,makeTransparent(col,alpha=alpha_max-(i-1)*(alpha_max-alpha_min)/num))}else{fg<-c(fg,rep('white',length(x)))}
}
symbols(x2,y2,circles=circles,fg=fg,bg=bg)
text(x, y, name, cex=1.5,font=4)
dev.off()
如果你喜欢的那种效果,R可能不适合你的工具。 R中的图形功能是由那些真正不喜欢这种事情的人设计的,所以虽然可能,但我怀疑它不方便。 – joran 2012-07-23 19:22:16
@Joran你的观点很好,但这是一个有趣的问题,虽然我可能永远不会使用它,但看到一个解决方案仍然很有趣(为了让一些喜欢这种事情的公司老板印象深刻)。 – 2012-07-23 21:02:00
@TylerRinker趣味性是一个意见问题,但我当然不是故意暗示这是一个糟糕的问题。只是尝试保存OP一段时间,以防其他工具更合适。 – joran 2012-07-23 21:22:06