在不规则网格上绘制轮廓

Question

我浏览了R中的页面和轮廓图页面（包括关于stackoverflow的许多提示）都没有成功。这是我的轮廓数据，包括添加卢旺达地图（数据由14个经度，纬度和降雨值组成，分别为x，y和z）：

Lon Lat Rain

28.92   -2.47   83.4

29.02   -2.68   144

29.25   -1.67   134.7

29.42   -2.07   174.9

29.55   -1.58   151.5

29.57   -2.48   224.1

29.6    -1.5    254.3

29.72   -2.18   173.9

30.03   -1.95   154.8

30.05   -1.6    152.2

30.13   -1.97   126.2

30.33   -1.3    98.5

30.45   -1.81   145.5

30.5    -2.15   151.3

这是我从stackoverflow尝试的代码：

datr <- read.table("Apr0130precip.txt",header=TRUE,sep=",")

x <- datr$x

y <- datr$y

z <- datr$z

require(akima)

fld <- interp(x,y,z)

par(mar=c(5,5,1,1))

filled.contour(fld)

插值失败。将不胜感激。