Unfortunately, that doesn't help as it removes axis lines. It looks like I
can't use segments3d() without knowing what the bounds are of the current
axes and I don't know what to call to expose those.
Thanks again for your help, though, I appreciate it. Hopefully this gets
fixed in a future release!
-Alex
On Wed, Apr 23, 2014 at 5:34 PM, Duncan Murdoch <murdoch.dun...@gmail.com>wrote:
> On 23/04/2014, 7:51 PM, Alex Reynolds wrote:
>
>> I am making an rgl-based 3d plot. It works fine, except when I try to
>> remove axis value labels and tick marks with axes3d(labels=FALSE,
>> ticks=FALSE):
>>
>> ---------------------------
>> rgl.open()
>> offset <- 50
>> par3d(windowRect=c(offset, offset, 1280+offset, 1280+offset))
>> rm(offset)
>> rgl.clear()
>> rgl.viewpoint(theta=thetaStart, phi=30, fov=30, zoom=1)
>> spheres3d(df$PC1, df$PC2, df$PC3, radius=featureRadius, color=df$rColor,
>> alpha=featureTransparency, shininess=featureShininess)
>> aspect3d(1, 1, 1)
>>
>> /* ------ */
>> axes3d(col='black', box=FALSE, labels=FALSE, ticks=FALSE)
>> /* ------ */
>>
>> title3d("", "", "PCoA1", "PCoA2", "PCoA3", col='black', line=1)
>> texts3d(df$PC1, df$PC2, df$PC3, text=df$ctName, color="blue", adj=c(0,0))
>> bg3d("white")
>> rgl.clear(type='lights')
>> rgl.light(-45, 20, ambient='black', diffuse='#dddddd', specular='white')
>> rgl.light(60, 30, ambient='#dddddd', diffuse='#dddddd', specular='black')
>> filename <- paste("results/PCoA.labeled.pdf", sep="")
>> rgl.postscript(filename, fmt="pdf")
>> ---------------------------
>>
>> When I run this code, these flags are ignored and I still get axis labels
>> and tick marks. What am I misunderstanding about the documentation?
>>
>>
> If you specify edges="bbox" (the default), labels is ignored, and the
> bbox3d() function is used to draw the axes. There's no ticks argument, so
> it'll be absorbed by the ... argument.
>
> I don't know what you want, but you might get it with
>
> axes3d(edges=c("x", "y", "z"), col='black', box=FALSE, labels=FALSE,
> tick=FALSE)
>
> This won't join the axis lines at the lower corner; if that's what you
> want, I'd just draw them explicitly using segments3d.
>
> BTW, mixing rgl.* functions with *3d functions is likely to give you
> strange results. I don't recommend it.
>
> Duncan Murdoch
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
