R中的散点图

Question

我对r相当陌生 ，我必须用以下方式绘制散点图：

residues1  residues2  coovariance
1          1          0.99613318 
2          1          0.98771518
3          1          0.98681384
4          1          0.99225447

residue 1和residue2作为x ， y轴和coovariance是成为色标，而不是高度。 我以前使用过散点图​​3d，但不知道如何绘制第三轴作为色标。 请帮忙 。

谢谢

维堡

Answer 1

我不确定每列3带有颜色的xy图是否是可视化此图的最佳方法。 如果residues2为常数，则为prob。 最好将其全部忽略，并将其他值相互绘制。

也许您可以根据需要调整以下内容：

df1 <- data.frame(r1=seq(4), r2=rep(1,4),
                  c1=c(0.99613318, 0.98771518,  0.98681384, 0.99225447) )
### give order (for plotting)
df1 <- within(df1, c2 <- rank(c1))
### create blank plot
with(df1, plot(r1,r2, xlab="residues_1", ylab="residues_2", cex.lab=1.5))
### strongest red to largest color
with(df1, points(r1, r2, cex=15, pch=19, col = rev(heat.colors(4))[c2] ))
### make legend
l1 <- as.matrix(df1[ ,"c1"])
graphics::legend("topright", legend=l1, lty=1, title="covariance", lwd=3,
                 col = rev(heat.colors(4))[df1$c2], cex=2)

给予：

（我将图像元素的尺寸过大，并在保存为.png之前手动调整了尺寸，以便在此处更好地显示）。