>x=c(186,134,165,196,234,222,226,210,287,220,243,234,206,208,212,226,234,238,297,307,138,145,167,189,197,
233,216,227,220,198,187,267,278,287,302,245,227,231,210,206,214,256,262,225,227,229,234,245,216,253,
227,210,192,186,145,156,168,172,174,219,222,239,226,214,296,314,324,143,156,206,234,262,220,221,183,
246,192,174,178,162,174,192,216,228,234,245,278,162,154,245,225,230,250,271,160,252,229,214,226,195)
>tarteak=seq(120,330,by=30)
>library(agricolae)
>png("tomate_histograma_R.png")
>plot.graph.freq(x,breaks=tarteak,frequency=2,col="lightblue",xaxt="n",yaxt="n",xlab="Pisuak(gr)",ylab="Ehunekoak")
>axis(1,at=seq(120,330,by=30))
>axis(2,at=seq(0,0.4,by=0.1),labels = paste(c(0,10,20,30,40), "%", sep = ""))
>title(main="Tomateen pisuak")
> dev.off()