我有一个包含 3 个数字列的表格。其中两个是坐标,第三个是颜色。我的文本文件中有数百行。我想制作一张图片,其中第一个数字表示每个点的坐标,第三个是该点的颜色。较大的数字 - 较暗的点。我怎么能这样做?我的文件中的行示例:
99.421875 48.921875 0.000362286050144
Will this do?
require(ggplot2)
# assuming your data is in df and x,y, and col are the column names.
ggplot(data = df, aes(x = x, y = y)) +
geom_point(colour="red", size = 3, aes(alpha=col))
# sample data
set.seed(45)
df <- data.frame(x=runif(100)*sample(1:10, 100, replace=T),
y= runif(100*sample(1:50, 100, replace=T)),
col=runif(100/sample(1:100)))
Plot:
一个lattice
解决方案:
library(lattice)
mydata <- matrix(c(1,2,3,1,1,1,2,5,10),nrow=3)
xyplot(mydata[,2] ~ mydata[,1], col = mydata[,3], pch= 19 ,
alpha = (mydata[,3]/10), cex = 15)
alpha
这里控制透明度。
这是一个基本的 R 解决方案:
##Generate data
##Here z lies between 0 and 10
dd = data.frame(x = runif(100), y= runif(100), z= runif(100, 0, 10))
首先归一化 z:
dd$z = dd$z- min(dd$z)
dd$z = dd$z/max(dd$z)
然后使用 z 的大小正常绘制阴影:
##See ?gray for other colour combinations
##pch=19 gives solid points. See ?point for other shapes
plot(dd$x, dd$y, col=gray(dd$z), pch=19)
另一种使用 base... 更改颜色的解决方案,您可以将一些 data[,3] 替换为 0 内rgb()
n <- 1000
data <- data.frame(x=runif(n),y=runif(n),col=runif(n))
plot(data[,1:2],col=rgb(data[,3],data[,3],data[,3],maxColorValue = max(data[,3])),pch=20)