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之前手動調整了尺寸，以便在此處更好地顯示）。