xxxxxxxxxx
ggplot(data=datos,aes(x = dia, y = PRECIP)) +
geom_bar(colour = "blue",stat = "identity") +
ylab("Precipitación (l)") +
xlab("Hora solar") +
opts(title = "Precipitacion acumulada horaria \n 2008-05-27 Burriana") +
scale_y_continuous(limits = c(0,50))