search for: fre_gg

Y bueno, algo más bonito sí que queda con ggplot... #--------------- datIn <- read.csv("pec.csv", header = TRUE, sep = ";", dec = ",") library(ggplot2) lab_x_idx <- c(1, round(nrow(datIn)/2, 0), nrow(datIn)) lab_x <- as.vector(datIn$hora[ lab_x_idx]) fre_gg <- ggplot( datIn, aes( x = 1:nrow(datIn), y = frec)) + geom_bar(stat = "identity") + xlab(paste("Rango horas: ", datIn$hora[1], "-", datIn$hora[nrow(datIn)], sep = "") ) + ylab("Frecuencia") +...

...gt;> #--------------- >> datIn <- read.csv("pec.csv", header = TRUE, sep = ";", dec = ",") >> >> library(ggplot2) >> lab_x_idx <- c(1, round(nrow(datIn)/2, 0), nrow(datIn)) >> lab_x <- as.vector(datIn$hora[ lab_x_idx]) >> fre_gg <- ggplot( datIn, aes( x = 1:nrow(datIn), y = frec)) + >> geom_bar(stat = "identity") + >> xlab(paste("Rango horas: ", datIn$hora[1], "-", >> datIn$hora[nrow(datIn)], sep = "") ) + >> ylab(&q...

Buenas tardes, Tengo una duda con gráficos. Estoy intentando realizar el típico gráfico de una variable en histograma y otra en linea, supongo que será sencillo pero llevo unos días peleando y no me sale de forma correcta. Las variables están en un dataframe que muestran las frecuencias de tweets minuto a minuto y el share de esos minutos (os adjunto un archivo en csv con el dataframe). Una

...>>> datIn <- read.csv("pec.csv", header = TRUE, sep = ";", dec = ",") >>> >>> library(ggplot2) >>> lab_x_idx <- c(1, round(nrow(datIn)/2, 0), nrow(datIn)) >>> lab_x <- as.vector(datIn$hora[ lab_x_idx]) >>> fre_gg <- ggplot( datIn, aes( x = 1:nrow(datIn), y = frec)) + >>> geom_bar(stat = "identity") + >>> xlab(paste("Rango horas: ", datIn$hora[1], "-", >>> datIn$hora[nrow(datIn)], sep = "") ) + >>>...