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但不知道如何将第三轴绘制为色标。请帮忙。

由于

Vibhor

Answer 1

我不确定每列3颜色的x-y图是可视化的最佳方式。如果residues2是常数，那么问题。最好完全放弃它，并将其他值相互映射。

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

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之前手动调整尺寸，以便在此处显示更好）。