Aesthetics must be either length 1 or the same as the data (1656324): x, y

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

程序出现问题，前面没有问题，最后一步说有问题，然后就懵了。。。。问题如下：
> pdf("f:/1 800.pdf",width=5,height=4)
> print(p)
错误: Aesthetics must be either length 1 or the same as the data (1656324): x, y
> dev.off()
null device
          1



脚本如下：
rm(list = ls())
library("ggplot2")
traj <- read.csv("f:/1 800.csv")

y1=15;  y2=35
x1=105;  x2=125

library("sp")
library("maptools")
library("foreign")
asia  <- readShapePoly(file.choose())
outline <- sp2tmap(asia)
outline <- data.frame(long=outline[,2],lat=outline[,3],group=outline[,1])
outline$long[(outline$long>x2)] <- x2
outline$long[(outline$long<x1)] <- x1
outline$lat[(outline$lat>y2)] <- y2
outline$lat[(outline$lat<y1)] <- y1


p <- ggplot(traj,aes(x=traj$lon,y=traj$lat))
p <- p + facet_grid(date~night)
p <- p + geom_polygon(data=outline,aes(x=outline$long,y=outline$lat),colour="grey",linetype=1,size=0.2,fill="white")
p <- p + stat_density2d(aes(alpha = ..level..),size = 0.01, bins = 16, geom = 'polygon')
p <- p + scale_x_continuous(limits=c(x1,x2),expand = c(0,0))
p <- p + scale_y_continuous(limits=c(y1,y2),expand = c(0,0))
#p <- p + theme(legend.position='none')
p <- p + theme(text=element_text(color='black', size=10))
p <- p + coord_equal()


pdf("f:/1 800.pdf",width=5,height=4)
print(p)
dev.off()

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Aesthetics either length Data Same either

让别人帮你解决问题还要别人花钱买你的数据，哪有这个道理

飞天玄舞6 发表于 2017-1-10 22:15
让别人帮你解决问题还要别人花钱买你的数据，哪有这个道理

可能不小心设置错了。。。。抱歉

楼主，请问你的问题解决了吗？我也遇到了相同的问题，求指教！！！

yangchen1991 发表于 2017-11-13 10:07
楼主，请问你的问题解决了吗？我也遇到了相同的问题，求指教！！！

现在的R可以直接保存了，你先点到R出图那里，然后鼠标点文件，然后有另存为。就可以保存了。不过你得提前设定好图片的大小。

Planthopper 发表于 2017-12-14 15:09
现在的R可以直接保存了，你先点到R出图那里，然后鼠标点文件，然后有另存为。就可以保存了。不过你得提前 ...

谢谢