地图尺寸(经纬度)38.31536111,-76.55011111
与地图不同
纬度/经度 59.5624775,-139.7410994(在地图上标绘点)
用 png() 保存时
如何保持尺寸一致?高度和宽度不够?
编辑:完整代码
library(maps)
library(ggplot2)
data <- read.csv("data.csv", header=TRUE)
lat = data$lat
long = data$long
world<-map_data('usa')
sf<-data.frame(long=long,lat=lat)
p <- ggplot(height=600, width=800) +
geom_polygon( data=world, aes(x=long, y=lat,group=group))
p <- p + geom_point(data=sf,aes(long,lat),colour="white",size=1)
p
数据文件:
"lat","long"
59.5624775,-139.7410994
42.38748056,-94.61803333
如果我删除数据文件中的第一行,则地图大小与两行都存在时不同(更大)
你的代码有点乱,所以我将其修复为下面可重现的格式。 @joran 已经给出了解决方案 - 您需要指定大小png()
.
library(maps)
library(ggplot2)
#specify size here
png("world.png",height=600,width=800)
#here is a way to create very simple data frame from you coordinates
data <- read.table(textConnection("
lat long
59.5624775 -139.7410994
42.38748056 -94.61803333"),header=TRUE,as.is=TRUE)
long=data$long
lat=data$lat
world <- map_data('usa')
sf<-data.frame(long=long,lat=lat)
ggplot() +
geom_polygon(data=world, aes(x=long, y=lat,group=group)) +
geom_point(data=sf,aes(long,lat),colour="white",size=1)
#this saves png in your current directory
dev.off()
编辑:Ups,现在我在之前的代码中犯了一些错误,现在它已经修复了。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)