Historico.R

# Cargar librerias
library( package = 'ggplot2' )

# Leer dataset
d_historico <- read.table( file       = 'datafile'
                         , header     = T 
                         , sep        = ','
                         , colClasses = c('character','character','numeric')
                         )

# Crear grafica con ggplot
g_historico  <- ( ggplot( data = d_historico
                        , aes( x     = dia
                             , y     = peticiones
                             , group = semana  
                             , col   = semana
                             )
                        )
                + geom_line()
                + geom_point()
                + theme_bw()
                + theme( legend.title    = element_blank()
                       , axis.ticks      = element_blank()
                       , legend.position = 'none'
                       )
                + labs( x     = 'Dia'
                      , y     = 'Peticiones'
                      )
                )

# Mostrar grafica
plot( x = g_historico )