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]]