Displaying 5 results from an estimated 5 matches for "findcolours".
2014 May 05
3
Mapa de quantiles con spplot
...library(RColorBrewer)
zm <- readOGR(?.?, ?zmdis?)
data <- read.csv(?part_pot.csv?, header=T, sep=?,?, dec=?.?)
zm en data=data.frame(data)
plotvar88 <- zm$part88
nclr <- 8
plotclr <- brewer.pal(nclr, ?Blues?)
class <- classIntervals(plotvar88, nclr, style=?quantile?)
colcode <- findColours(class, plotclr)
plot(zm)
plot(zm, col=colcode, add=T)
legend(3777189,2249615, legend=names(attar(colcode, ?table?)), fill=attr(colcode, ?palette?), cex=0.6, bty=?n?)
Entonces obtengo el mapa como lo quiero (Me falta la división política, pero para este ejemplo la omití):
https://www.dropbox.com/s...
2014 May 03
2
Mapa de quantiles con spplot
...?))
Lo pude hacer utilizando el base graphics de R, definiendo:
> plotvar88 <- zm$part88
> nclr <- 8
> plotclr <- brewer.pal(nclr, "PuOr")
> plotclr <- plotclr[nclr:1]
> class <- classIntervals(plotvar88, nclr, style="quantile")
> colcode <- findColours(class, plotclr)
> plot(zm)
> plot(zm, col=colcode, add=T)
> legend(3377189,2249615, legend=names(attr(colcode, "table")), fill=attr(colcode, "palette"), cex=0.6, bty="n?)
Después intenté meter algunos de esos argumentos utilizando spplot
spplot(zm, c(?part88?, ?p...
2014 May 06
3
Mapa de quantiles con spplot
...ata <- read.csv(?part_pot.csv?, header=T, sep=?,?, dec=?.?)
>> zm en data=data.frame(data)
>> plotvar88 <- zm$part88
>> nclr <- 8
>> plotclr <- brewer.pal(nclr, ?Blues?)
>> class <- classIntervals(plotvar88, nclr, style=?quantile?)
>> colcode <- findColours(class, plotclr)
>> plot(zm)
>> plot(zm, col=colcode, add=T)
>> legend(3777189,2249615, legend=names(attar(colcode, ?table?)), fill=attr(colcode,
>> ?palette?), cex=0.6, bty=?n?)
>>
>> Entonces obtengo el mapa como lo quiero (Me falta la división política, pero pa...
2014 May 07
2
Mapa de quantiles con spplot
...ata <- read.csv(?part_pot.csv?, header=T, sep=?,?, dec=?.?)
>> zm en data=data.frame(data)
>> plotvar88 <- zm$part88
>> nclr <- 8
>> plotclr <- brewer.pal(nclr, ?Blues?)
>> class <- classIntervals(plotvar88, nclr, style=?quantile?)
>> colcode <- findColours(class, plotclr)
>> plot(zm)
>> plot(zm, col=colcode, add=T)
>> legend(3777189,2249615, legend=names(attar(colcode, ?table?)), fill=attr(colcode,
>> ?palette?), cex=0.6, bty=?n?)
>>
>> Entonces obtengo el mapa como lo quiero (Me falta la división política, pero p...
2010 May 14
2
help color coding map in R
...ange(us.map$range[3:4])
library(maps)
library(lattice)
library(latticeExtra)
library(RColorBrewer) # creates nice color schemes
library(classInt)
plotclr <- brewer.pal(nclr,"PuRd")
class <- classIntervals(NatSTSummaryHigh.abi$STMean, nclr, style="fisher" )
colcode <- findColours(class, plotclr)
# Plot a multi-panel map of all the states, and colour
xyplot(y~x | NatSTSummaryHigh.abi$PrimaryDX, data = state.center,groups=names(attr(colcode, "table")),
main="High Cost States by Diagnosis ( > National Avg)",
xlim = xl, ylim = yl, scales = list(...