J. Miguel Marin
2013-May-13 20:33 UTC
[R-es] Tamaño plots y retoques de ticks en grafico ggplot
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>