我上传了excel 数据用capital/gdp和labor/gdp 想做下，不知道您能给演示下吗~

x是一列，
y也是一列。

x就是你的capital/gdp
y就是你的labor/gdp

先把你的文件另存为csv格式，然后用下面命令：
Ddensity <- read.csv(file = "2dplot.csv", header = TRUE)
library(MASS)
k <- with(Ddensity, kde2d(capital.gdp,labor.gdp))
filled.contour(k, color.palette = cm.colors)
points(Ddensity$capital.gdp,Ddensity$labor.gdp, pch = 16, cex = 0.5)


特别说明：主要参考版主的命令！

嗯 很厉害呀
请问粉红色怎么改成蓝色或者大红呢
背景的青色怎么去掉嗯？

filled.contour有个选项col，可以改成你想要的颜色。

那么多高手呀，学习了~
感谢qoiqpwqr，epoh和青色高手kaifengedu

好厉害~
如果我有3个不同的图片 想把他们合并在一起 那用R的什么命令呢？ 还是不用R直接在ppt上合并呢？

很好很强大，学习了

如果只是用到function contour()
比较简单,只要加入par(mfrow = c(1,3))
如下代码:
library(MASS)
data=read.csv("2dplot.csv")
x=data$labor.gdp
y=data$capital.gdp

xy.kde <- kde2d(x,y, n = 100)
par(mfrow = c(1,3))
####1st
contour(xy.kde, xlim = c(0, 0.07), ylim = c(0, 15),col = "red")
points(x,y, pch = 20, cex = 0.6)
####2nd
contour(xy.kde, xlim = c(0, 0.07), ylim = c(0, 15),col = "blue")
points(x,y, pch = 20, cex = 0.6)
####3rd
contour(xy.kde, xlim = c(0, 0.07), ylim = c(0, 15),col = "orange")
points(x,y, pch = 20, cex = 0.6)

######
但因程序有用到function filled.contour()
  filled.contour is actually a combination of two plots;
  one is the filled contour and one is the legend.
filled.contour()用到function layout()
可想而知layout必须重新计算,比较麻烦,
所以方便的话,就请你在PPT直接完成.

等高图？google一下R攻略应该有