Я борюсь с scatter3D
от plot3D
.R - 3Dplot - добавление условия на прозрачность
Я хотел бы иметь возможность установить порог прозрачности для моего colvar. Например, ниже, я должен иметь каждую точку с colvar<100
(так от красного до середины зеленого) полностью прозрачным. Я не понимаю, почему не исчезла половина колхи (и соответствующих точек;)). У вас есть идея?
Вот мои Datas: http://s000.tinyupload.com/?file_id=00763309738825363461
И мой код:
err_tab2=read.table("Err_tab.txt",header=T)
colfunc<-colorRampPalette(c("red","yellow","green","turquoise2","blue"))
par(mfrow = c(1, 1))
panelfirst <- function(pmat) {
zmin <- min(err_tab2$z)
XY <- trans3D(err_tab2$x, err_tab2$y,
z = rep(zmin, nrow(err_tab2)), pmat = pmat)
scatter2D(XY$x, XY$y, colvar = err_tab2$colour, pch = ".",
cex = 1, add = TRUE, colkey = FALSE)
xmin <- min(err_tab2$x)
XY <- trans3D(x = rep(xmin, nrow(err_tab2)), y = err_tab2$y,
z = err_tab2$z, pmat = pmat)
scatter2D(XY$x, XY$y, colvar = err_tab2$colour, pch = ".",
cex = 1, add = TRUE, colkey = FALSE)
}
with(err_tab2, scatter3D(x = x, y = y, z = z, colvar= (colour), col=alpha.col(colfunc(length(colour)),
alpha =colour<100),
pch = 16, cex = 1, xlab = "x", ylab = "y",
zlab = "z", clab = c(""),
main = paste("Model"), ticktype = "detailed",
panel.first = panelfirst, theta = 330,phi=10, y = 2,
colkey = list(length = 0.5, width = 0.5, cex.clab = 0.75))
)
Примечание: На самом деле я хотел бы иметь условие для каждой точки, как:
alpha=(err_tab2$colour-min(err_tab2$colour))/(max(err_tab2$colour)-min(err_tab2$colour))>0.2
На мой взгляд, это должно скрыть каждую точку, для которой «цвет» относится к первым 20% набора. Потому что F=0=100%transparency
и T=1=100%opacity
.
Но если я пытаюсь это, я получаю прямо противоположное (добавляется к предыдущей задаче я думаю):
Любая идея? :)