R视口中的地图插图
我正在尝试将多边形的插图添加到地图中 本pdf()的第11页显示了我试图获取的内容。不幸的是,我是R的新手,即使在这个例子中,我也无法理解它是如何工作的。。。在我的例子中,它显示了这个错误:f(…)中的错误:找不到我不理解的函数“viewport”。 我的代码R视口中的地图插图,r,viewport,insets,R,Viewport,Insets,我正在尝试将多边形的插图添加到地图中 本pdf()的第11页显示了我试图获取的内容。不幸的是,我是R的新手,即使在这个例子中,我也无法理解它是如何工作的。。。在我的例子中,它显示了这个错误:f(…)中的错误:找不到我不理解的函数“viewport”。 我的代码 swd我发现这个例子很难理解,因为我们无法重现它。让我澄清几件事;那么你有你的地图(mapa)你想添加什么?您是否可以尝试用一些我们可以使用的数据重现一个示例?Hadley的R日志示例在grid.Call.graphics(L_setvi
swd我发现这个例子很难理解,因为我们无法重现它。让我澄清几件事;那么你有你的地图(mapa)你想添加什么?您是否可以尝试用一些我们可以使用的数据重现一个示例?Hadley的R日志示例在grid.Call.graphics(L_setviewport,vp,TRUE)中抛出错误:现在视口的位置和/或大小是非有限的(可能是由于ggplot2生态系统的大规模更新)。你可能想找到一种不同的方法。嗯,这就解释了我的问题。。。
swd <- read.csv2("C:/MapyR/rozmieszczenieswd/swdwsp.csv",header= TRUE, sep = ";", encoding = "unknow")
swd$Lat <- as.numeric((strtrim(swd$Lat,8)))
swd$Long <- as.numeric((strtrim(swd$Long,8)))
polska <- get_map(
location=c("Olsztyn"),
zoom=12,
maptype="roadmap"
)
olsztyn <- subset(swd, Lat>=53.72 & Lat<= 53.84 & Long>=20.40 & Long<=20.55,select = rodzaj:Long)
mapa <- ggmap(polska, extent = "device", legend ="bottomright")
punkty <- stat_density_2d( aes(x=Long,y=Lat,fill= ..level..,alpha=..level..)
,data=olsztyn
,size=2
,geom = "polygon"
)
nowa <- mapa + inset(
grob = ggplotGrob(ggplot()+punkty + theme_inset()),
xmin = 20.50, xmax = 20.55, ymin = 53.72, ymax = 53.76 #I tryed many versions of x,y
)
sciezka <- file.path("C:","MapyR","proby density",paste("inset",".png"), sep="")
png(file=sciezka, width = 2500 , height=1567)
print(nowa)
dev.off()