R 标准化核密度图'；s宽&；图例比例

我有以下4个内核密度图，但希望图例比例以及图宽/高在所有4个中都相同，以便进行比较

我的代码是：

kde_pipit_2014_bw <- density(Pipit_ppp_2016, sigma=4.18, edge=TRUE, kernel="gaussian") 
kde_pipit_2015_bw <- density(Pipit_ppp_2016, sigma=4.18, edge=TRUE, kernel="gaussian") 
kde_pipit_2016_bw <- density(Pipit_ppp_2016, sigma=4.18, edge=TRUE, kernel="gaussian") 
kde_pipit_2016_bw <- density(Pipit_ppp_2016, sigma=4.18, edge=TRUE, kernel="gaussian")

par(mfrow=c(2,2),cex=0.7, mai=c(0.1,0.1,0.2,0.2))
plot(kde_pipit_2014_bw) 
plot(kde_pipit_2015_bw) 
plot(kde_pipit_2016_bw) 
plot(kde_pipit_2017_bw)

---

kde_pipit_2014_bw您尚未提供样本数据，因此我使用的是
mtcars
。
这是一种解决问题的方法
技巧是，如评论中所述，将可能存在的每年的多个数据帧合并到一个数据帧中，理想情况下，合并成一个长格式，其中包含一列“年”信息

library(ggplot2)

ggplot(mtcars, aes(x = mpg, y = wt)) + 

  stat_density2d(aes(fill = ..density..), geom = "raster", contour = FALSE) +
  scale_fill_gradient(low="green",high="red")+
  facet_grid(~cyl)  ## you can replace this with your year

#the colors are just examples, I did not try to reproduce exactly your color scale 

欢迎光临。请提供最少的可复制数据，在问题中添加一张图片，最好不要链接到我可能会使用的其他网站（请参阅我的编辑）（也因为我不知道太多的基本图形）。并定义我的轴极限。。这么说-在baseR中定义轴限制肯定也是可能的。但是为什么您的代码会给出不同的结果呢？我有一个印象，你有一个复制粘贴错误那里可能？？因为在绘图调用中始终使用相同的数据。如果这些是不同的数据集，可以合并它们，将它们转换成长格式，然后使用facetting@Tjebo，新用户无法嵌入图像。他们只是上传到imgur。您可以编辑以嵌入。