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)
> bins=seq(120,330,by=30)
> library(agricolae)
> png("tomateak.png")
> histo=hist(x,breaks=bins,col="lightblue",xlab="Tomatearen pisua",ylab="Maiztasuna",main="100 tomateren pisuak",xaxt="n",ylim=c(0,40));
> axis(1,seq(120,330,by=30))
> polygon.freq(histo,col="red",lwd=4)
> dev.off()