jz.mraz 发表于 2015-2-25 20:36 
撸主:
我光是下载你的数据就用了三个币呢亲~ 而且1个币算收费么? 我只不过不懂那个按钮是干嘛的,试了一下 ...
高手，刚运行了一遍报了一堆的错，貌似我没有fields这个package，你能发给我一下吗？
另外我的excel 表里那些县名是不是没有什么用处啊，只要按顺序排就会在地图里标上对应的颜色吗？
多谢啦。
> library(mapdata)
> library(fields)
Error in library(fields) : there is no package called ‘fields’
>
> dat <- read.csv('e:/tmp/distributation.csv', header=TRUE)
> dat$Name <- tolower(dat$Name)
Error in `$<-.data.frame`(`*tmp*`, "Name", value = character(0)) :
replacement has 0 rows, data has 47
>
>
> mn <- min(dat$Bed_density)
> mx <- max(dat$Bed_density)
> nc <- round(max(dat$Bed_density) - min(dat$Bed_density))*10
> jet.colors <- colorRampPalette( c("aquamarine3", "pink") )
> color <- jet.colors(nc)
> indCol <- seq(mn, mx, length.out=nc)
> resCol <- ifelse(which.min(abs(dens -
+ dat$col <- apply(dat[,3, drop=FALSE], 1, function(x) color[which.min(abs(x - indCol))])
+
+ mapj <- map('japan')
Error: unexpected symbol in:
"
mapj"
> denscol <- dat$col[match(tolower(gsub(':','',mapj$names)), dat$Name)]
Error in gsub(":", "", mapj$names) : object 'mapj' not found
>
> jpeg('e:/tmp/tmp.jpeg')
> map('japan', fill=TRUE, col=denscol)
Error in polygon(coord, col = col, ...) : object 'denscol' not found
> image.plot(legend.only=T, zlim=c(mn, mx), col=color, legend.shrink=.2)
Error: could not find function "image.plot"
> dev.off()
null device
1
[sweat]
扫码加好友，拉您进群
全部版块
我的主页
收藏
