Posts Tagged ‘plot’

Plots de Linea de Costa

Friday, May 14th, 2010

Hay webs como http://rimmer.ngdc.noaa.gov/ que nos permiten extraer los datos de lat y long de la linea de costa de todo el mundo a escala 1:250000. Pudiendo seleccionar con zoom aquella que queremos con exactitud (para evitar archivos con muchos datos y dificiles de manejar). Se selecciona en formato Splus y nos da un archivo .dat que abrimos y guardamos en formato .txt.

Galicia<- read.table("Galicia.txt")
names(Galicia) <- c("Longitud","Latitud")
# Usando plot() la costa sale desproporcionada
plot(Galicia$Long, Galicia$Lat, type="l", xlab="Longitud",ylab="Latitud")
title(main="Galicia")
# Usar mejor "eqscplot()"
eqscplot(Galicia$Long,Galicia$Lat,type="l",xlab="Longitud",ylab="Latitud",tol=-0.10)
#tol premite ajustar los margenes para encajar el mapa
title(main="Galicia")

*Es necesario instalar y cargar el paquete MASS

DatosCoordenadas Galicia

Tags: , ,
Posted in Gráficos | No Comments »

Gráficos en R: Chuletas para ponerlos bonitos

Wednesday, April 28th, 2010

A la hora de poner bonitos los gráficos en R es buena idea tener a mano qué colores y símbolos podemos utilizar para hacerlo.

Os dejo aquí la lista de colores y la de símbolos con el script para que las podais crear vosotros mismos:

COLORES EN R
ColoursInR
Descargar versión en pdf

# Colores en R
pdf("ColoursInR.pdf", width=11.7, height=8.5)
plot.new()
legend(x="topleft",colors(), pch=15, col=colors(), bty="n", ncol=10, cex=0.5, pt.cex=1, inset=0)
dev.off()

SÍMBOLOS EN R (pch)
SymbolsInR
Descargar versión en pdf

# Símbolos en R
pdf("SymbolsInR.pdf", width=5.5, height=4.5)
plot.new()
legend(x="topleft", as.character(0:25), pch=c(0:25), bty="p", ncol=4, cex=1.5, pt.cex=1, inset=0)
dev.off()

Fuente original: aquí.

Tags: , ,
Posted in Gráficos | No Comments »

Leyenda en multiples plots

Tuesday, April 27th, 2010

Si haceis multiples plots y quereis colocar la leyenda debajo de todos ellos o a un lado. Primero, podeis determinar los margenes o aumentar las columnas o filas con par(mfrow=c(3,2)). El comando que hay que añadir es xpd=TRUE

opar <-par(mar = c(20, 4, 4, 4)) #Con par guardamos las opciones gráficas que queremos
#en este caso  aumentamos los  margenes
plot(1:10)
lines(1:10)
par(xpd=TRUE)  #xpd para poder usar los margenes
legend(locator (1),lty=1, col="black", legend="straigh line")
#locator nos  permite colocar una o varias leyendas donde le  señalemos con el ratón
par(opar) #restauramos las opciones de graficos iniciales

Tags: ,
Posted in Gráficos | No Comments »