如何使用缩放点创建散点图的图例：[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删除该框。