使用`readShapeSpatial`函數的.shp的背景顏色

我正在使用readShapeSpatial函數在.shp上使用背景顏色。任何人都可以幫助我呢？有沒有類似的功能（除了：readShapePoly）可以用來爲.shp文件添加背景顏色？使用`readShapeSpatial`函數的.shp的背景顏色

這是我的代碼部分...

library(raster) 
library(maptools) 
library(mapdata) 
library(maps) 
library(scales) 

pcontorta <- readShapeSpatial("PER_water_areas_dcw.shp") 
pcontorta2 <- readShapeSpatial("BOL_water_areas_dcw.shp") 
pcontorta3 <- readShapeSpatial("ECU_water_areas_dcw.shp") 
pcontorta4 <- readShapeSpatial("PRY_water_areas_dcw.shp") 
pcontorta5 <- readShapeSpatial("PER_adm2.shp") 
pcontorta6 <- readShapeSpatial("BOL_adm2.shp") 
pcontorta7 <- readShapeSpatial("ECU_adm2.shp") 
pcontorta8 <- readShapeSpatial("PRY_adm2.shp") 

read.csv("coord.csv") -> data 
Data <- data.frame(data[,1:4]) 

Data[Data$species=="B._nn",] -> primera 
Data[Data$species=="B._ghn",] -> segunda 
Data[Data$species=="B._bolivianus",] -> tercera 
Data[Data$species=="B._brevirostris",] -> cuarta 
Data[Data$species=="B._diasphanus",] -> quinta 
Data[Data$species=="B._osgoodi",] -> sexta 
Data[Data$species=="B._pachacuti",] -> septima 
Data[Data$species=="B._phoenicoteru",] -> octava 
Data[Data$species=="B._pectinatus",] -> novena 
Data[Data$species=="B._peruanus",] -> decima 
Data[Data$species=="B._thomasi",] -> once 
rownames(Data) <- data[,1] 
attach(Data) 
na.omit(Data) -> Data 
alt <- raster("alt.bil") 
extent_all <-extent (-85, -50, -30, 5) 
crop(alt, extent_all)->alt 
tiff(filename = "Mapa.tiff",res = 800, pointsize = 6, width = 3200, height = 3200, units = "px") 

#... 
#Continues a little bit...plotting... 

box() 
dev.off()

感謝，並有一個愉快的一天！

來源

2013-07-24 CristianR

這不是可再現的例子。請創建一個最小可重現的示例。一般來說，一個shp文件不會有背景，它將取決於如何創建背景。 – mnel

但是，當我使用'readShapePoly（）'時，我可以繪製.shp並使用參數：col = alpha（「darkgreen」，0.4）'添加一些顏色。我在問是否還有其他功能可以與該參數一起使用。如果我沒有寫過，請原諒。並感謝您的答案mmel！ – CristianR

'bg'定義背景顏色。你的例子充滿了不可重現的代碼，與你的實際問題很少有關。 – mnel

一般來說，一個shp文件不會有背景，它將取決於如何創建背景顏色的圖。

使用從?readShapeSpatial的例子

xx <- readShapeSpatial(system.file("shapes/sids.shp", package="maptools")[1], 
        IDvar="FIPSNO", proj4string=CRS("+proj=longlat +ellps=clrk66"))

（1）設置，同時使用bg

即

plot(xx, col = 'red', bg = 'blue')

（2）中設置他情節背景"transparent"繪製和def INE在輸出裝置

tiff(filename = "Mapa.png",bg = 'green') 
plot(xx, bg = 'transparent', col = 'white') 
dev.off() 
# which gives (converting to `png` to allow this to be uploaded to SO)

enter image description here

來源

2013-07-24 01:41:22 mnel

使用`readShapeSpatial`函數的.shp的背景顏色

回答

相關問題