Buenas, gracias a los que me ayudaron, he conseguido hacer el código más o menos como queria. Lo pego por aqui por si a alguien le interesa. Me hubiese gustado hacerlo en dos ejes pero tengo que entregar la practica de la especialidad en 3 dias y hay muchas cosas que revisar, pero ya que he visto como se hace lo investigaré.
ft$hora <- strptime(ft$hora, format = "%H:%M", tz="GMT-2") ft$Miles <- as.numeric(gsub("\\.", "", as.character(ft$Miles))) ft$Share <- as.numeric(gsub("\\,", ".", as.character(ft$Share))) ggbar <- ggplot(ft, aes(x = hora, y = frec)) + geom_area(fill= "gray") + scale_x_datetime(date_breaks = "5 mins", date_labels = "%H:%M") + theme(panel.background = element_rect(fill = "white")) + scale_y_continuous(limits=c(0,1500)) + labs(x = "Minutos", y = "Tweets") + # Etiquetas o títulos de los ejes theme(axis.text.x=element_text(angle=90)) # Orientación texto eje x ggshr <- ggplot(ft, aes(x = hora, y = Share)) + geom_line(color="blue") + scale_x_datetime(date_breaks = "5 mins", date_labels = "%H:%M") + theme(panel.background = element_rect(fill = "white")) + scale_y_continuous(limits=c(0,50)) + labs(x = "Minutos", y = "Share (%)") + # Etiquetas o títulos de los ejes theme(axis.text.x=element_text(angle=90)) # Orientación texto eje x library(gridExtra) grid.arrange(ggbar, ggshr, nrow=2, ncol=1) Buenas noches! PD: Se me jodido, o esta punto de hacerlo mi portátil. Alguna sugerencia de marca "normal" que funcione de base muy bien con Linux?? Rubén. [[alternative HTML version deleted]] _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es