r - 如何使用缩放点为散点图创建图例：[R]

Question

我创建了一个散点图，圆的大小随着数据的强度而变化：从 0 到 2，从 2 到 4，.. 从 8 到 10。有没有人可以帮助我为我的图创建正确的图例？

我的代码是：

require(xlsx)     

data <- read.xlsx("data.xlsx", 1, header=TRUE)   # reading the data

BRfunc <- colorRampPalette(c("blue", "red"))   # the color gradient

itvl <- c(0,2,4,6,8,10)

plot(data$years, data$cars, cex=findInterval(data$emission, itvl), col="black" )

Answer 1

我创建了一个可重现的数据集

n <- 50
data <- data.frame(years=1950+(1:n), cars=rnorm(n), emission=runif(n,0,10))

然后使用您的代码绘制图形

itvl <- c(0,2,4,6,8,10)
plot(data$years, data$cars, cex=findInterval(data$emission, itvl), col="black" )

为了能够创建图例，我legend()在建议的框中使用了 Marc。

legend("topright", legend=itvl, pt.cex=itvl, pch=1)

您可以使用 xjust 和 x.intersp 等选项来更改符号和图例之间的间距。您可以使用 bty 删除该框。