在spplot中添加单位到比例尺（）

Question

我在Ubuntu 12.04上使用R版本2.14.1-1，使用spplot绘制GIS数据，特别是2008年的区域投票结果。

我对R有点新意见。我在没有找到解决方案的情况下研究了我的问题。我想在比例尺上添加单位，在这种情况下，像“投票百分比”一样垂直向下运行。

到目前为止我的代码是：

library(gpclib)
gpclibPermit()
library(maptools)
library(maps)
library(classInt)
library(RColorBrewer)
library(sp)
require(graphics)
library(rgdal)
library(lattice)

pennStateMap <- readShapeSpatial("/home/jgoodson/stateData/Pennsylvania/shapeFiles/pa_final.shp")
plotvar <- pennStateMap@data$USPP2008

nclr <- 10
class <- classIntervals(plotvar, nclr, style="equal")
poliPallet <- colorRampPalette(c("red1", "blue1"), space="Lab")

pennCounties <- unionSpatialPolygons(pennStateMap, as.numeric(pennStateMap@data$COUNTYFP10))

spCounties <- list("sp.polygons", as(pennCounties, "SpatialPolygonsDataFrame"), col.regions="transparent")

spplot(pennStateMap, "USPP2008", main="2008 Presidential Election Results by Precinct in Pennsylvania", col.regions=poliPallet(10), col="transparent", at=round(class$brks, digits=1), sp.layout = list(spCounties))

我尝试通过以下方式添加单位：
barLabel <- list("sp.text", c(40, -71), "Dem % of Two-Party Vote", srt=-90)
然后将其添加到sp.layout。但是这不会超出地理数据的绘图框，所以当我试图到达比例尺的正确一侧时它会消失。

对于如何实现这一目标，我将不胜感激。