[R-es] Ayuda con gráfico típico de histograma más linea

[Ruben Tobalina Ramirez]

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