如何使用线性模型函数的色标填充背景？

我正在分析Alberto Cairo的“功能艺术”中的datavis示例（我推荐给你）

那本书里有这样的例子

我在 R 中尝试。在左下图（散点图）中

我使用书中的数据，并计算了人口函数中的军事效果lm(efect ~ pop)以及人口+效应函数的预算

问题是：如何用色阶（渐变）绘制散点图的背景，其中颜色代表 BUDGET 的值？

之后我想把点（人口、效果）与预算的颜色放在一起。 这样，我可以将国家预算与人口+效应函数的估计预算进行比较

我了解基本的 R，我已经安装了ggplot2 and scales包

我想要一个类似的图表

但颜色正确。

谢谢。

要获取背景，您可以使用geom_raster以获得您想要的效果。我将使用 @GeekOnAcid 建议的相同数据集：

首先获取数据并拟合回归模型：

crime = read.csv("http://datasets.flowingdata.com/crimeRatesByState2005.tsv", 
              header=TRUE, sep="\t")
 ##Fit the regression model
 m = lm(crime$burglary ~ crime$murder)

接下来我们为背景颜色创建一个网格：

##Create a grid for the background colour
x = seq(1, 10, length.out=100)
y = seq(400, 1200, length.out=100)
z = expand.grid(x,y)

现在我们需要测量渐变颜色的距离。我只是使用了回归线的平方距离：

z$grad = (z[,2] - (398.3 +  62.2*z[,1]))^2

然后绘制：

require(ggplot2)    
ggplot(z) + geom_raster(aes(Var1, Var2, fill=grad)) + 
    geom_point(data=crime[1:15,], aes(murder, burglary, size=population),pch=1 ) + 
    geom_text(data=crime[1:15,], 
              aes(murder, burglary, label=state), 
              hjust=-0.2, size=4) + 
    scale_size_continuous(range=c(1,10)) + 
    scale_fill_continuous(high="red", low="white", trans="sqrt") +
    xlab("Murder") + ylab("Burglary")  + 
    guides(size=FALSE, fill=FALSE) +
    scale_y_continuous(expand=c(0, 0)) + 
    scale_x_continuous(expand=c(0, 0)) 

To get: