PC 軸を使用した補間マップの作成について質問があります。パッケージを使用してmaps
、akima
マップと補間を描画しました。これが私のコードです:
map<-read.table("RACES_GEOREF.txt", row.names=1)
x<-as.numeric(map[,1])
y<-as.numeric(map[,2])
z<-as.numeric(bca.res$li[,1])
x0<-seq(min(map[,1]), max(map[,1]), le=500)
y0<-seq(min(map[,2]), max(map[,2]),le=500)
z.hat<-interp(x, y, z, xo=x0, yo=y0, linear=FALSE, extrap=TRUE)
myGrid<-expand.grid(x0,y0)
temp<-map.where(database="world", x=myGrid[,1], y=myGrid[,2])
toKeep<-grep("France",temp, ignore.case=TRUE)
toRemove<-setdiff(1:length(z.hat$z), toKeep)
z.hat$z[toRemove]<-NA
image(z.hat)
map(add=TRUE, lwd=3)
contour(temp, add=TRUE)
dev.off()
そのgrep
部分では、フランス、ドイツ、イギリス、スウェーデン、イタリア、モロッコについては補間したいのですが、フランスの補間マップしかプロットできません。これらの国をフランスに追加するにはどうすればよいですか?