[R-es] Tamaño plots y retoques de ticks en grafico ggplot

[J. Miguel Marin]

Hola a tod en s,

estoy con un gráfico algo complicado de ggplot y me he quedado 
bloqueado con un par de cosas.

Si se ejecuta el siguiente código, se obtiene el gráfico que pongo a 
continuación.

Necesitaría que en la línea sombreada de color azulado, correspondiente 
a Alpha (252), esta etiqueta "Alpha (252)" también saliese sombreada o, 
al menos, destacada con otro color y en negrita por ejemplo.

Por otro lado tengo dudas de cuál es la mejor opción para sacar un 
gráfico de alta calidad para incluir en un fichero word. La duda está 
entre los formtatos wmf o postscript pero al final quedan algo 
pixelados los puntos.

Y, finalmente, ¿hay alguna manera de fijar el tamaño del gráfico como 
tal, es decir, lo que no son los ejes de modo que no se reescale 
automáticamente el tamaño del gráfico. No me refiero al tamaño del 
device gráfico, sino a la parte interior del gráfico como tal.

Y disculpas por un mensaje tan largo :S

#........................................................

library(ggplot2)

for (i in 1:length(tabla$Jurisdiction))
if(tabla$Jurisdiction[i]=="Alpha"){k=i}
h <- ggplot(tabla, aes(x=factor(Orden), y=Mean, ymin=245, ymax=305)) h +
scale_fill_manual(values = c("#A0551E", "#FA964B","#E1EBFF", "#B4CDFF", 
"#055014","#A0551E"))+
geom_hline(yintercept = seq(245, 305, 10), linetype=2, colour="#E1EBFF")+
geom_vline(xintercept = seq(1, 26, 2.5), linetype=1, colour="#E1EBFF")+
geom_vline(xintercept = -2, linetype=1, colour="white")+
geom_vline(xintercept = k, colour="#0000FF20", lwd=5)+
geom_rect(xmin=-2,xmax=-1, mapping=aes(NULL, NULL, 
ymin=inicio[3:4],ymax=fin[3:4], fill=Niveles[3:4]), 	alpha=1, 
data=niveles)+ geom_text(data=niveles, aes(x=-1.4, 
y=inicio[3:4]+(fin[3:4]-inicio[3:4])/2, label=Niveles[3:4], size=2)) +
scale_x_discrete(labels=tabla$Country)+
scale_y_continuous(breaks=seq(245, 305, 10))+
geom_errorbar(data=tabla, aes(y=Mean, ymin=Mean - 1.96*Mean.Error, ymax 
= Mean + 1.96*Mean.Error),col="gray40", width=0.3, size=1) +
geom_point(data=tabla, aes(y=Mean), size = 3, colour ="gray30", pch=16) +
labs(x="", y="")+
theme(panel.background=element_rect(fill="white", colour="#B4CDFF"), 
	panel.grid.minor=element_blank(), panel.grid.major.y=element_blank(),
	axis.text = element_text(colour = "black"), legend.position="none") +
guides(fill = guide_legend(label.position = "bottom"))+ coord_flip()

#........................................................

Un saludo

jm~

_______________________________

        J. Miguel Marin

http://www.est.uc3m.es/jmmarin

    Dep. of Statistics
University Carlos III of Madrid
     European Union (EU)

_______________________________

------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: grafico.png
Type: image/png
Size: 10875 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20130513/50297589/attachment-0001.png>