# Temperatures in a certain month of the year (collected by 6-year-old pupils) # How the teacher can make the chart (the pupils do it by hand on squared paper) d = seq(1,31,1) # the days and the temperatures t = c(8,10,10,13,13,12,10,10,8,10,10,15,10,10,9,14,10,10,13,10,9,10,11,14,9,11,13,13,12,11,12) length(t) # I check if they are 31 # 31 BF=4.5; HF=2.5 Planeww(0,31, 0,15) # I use a "plane" without grid and axes gridHC(1:15,"blue") # I draw a blue grid (small hatching) gridVC(1:31,"blue") GridHC(c(0,5,10,15),"black") # I draw a black grid (big hatching) GridVC(c(0,5,10,15,20,25,30),"black") # I write labels under the axes in particular positions UnderX("1",1); UnderX("10",10); UnderX("20",20); UnderX("30",30) UnderY("0",0); UnderY("5",5); UnderY("10",10); UnderY("15",15) # I write labels above the axes abovex("March"); abovey("°C") AXES(0,0,"black") # I draw two black axes # I draw a red polyline and black points polylin(g,t, "red"); Point(g,t,"black") # The growth of the height of a wheat plant (at the beginning the pupils report squared # paper strips, then use a reduced scale: 1 square = 2cm). # How the teacher can later make the chart: BF=4; HF=3.5 Planeww(0,45, 0,90) GridVC(seq(0,45,5),"blue") GridHC(seq(0,90,10),"blue") AXES(0,0,"black") g = seq(2.5,45,5) h=c(0,5,11,12,12,25,46,80,87) polyli(g,h, "black") rect( 7,0, 8,h[2], col="red"); rect(12,0, 13,h[3], col="red") rect(17,0, 18,h[4], col="red"); rect(22,0, 23,h[5], col="red") rect(27,0, 28,h[6], col="red"); rect(32,0, 33,h[7], col="red") rect(37,0, 38,h[8], col="red"); rect(42,0, 43,h[9], col="red") UnderX("Oct",2.5); UnderX("Nov",7.5); UnderX("Dec",12.5) UnderX("Gen",17.5); UnderX("Feb",22.5); UnderX("Mar",27.5) UnderX("Apr",32.5); UnderX("May",37.5); UnderX("Jun",42.5) UnderY("10",10); UnderY("20",20); UnderY("30",30) UnderY("40",40); UnderY("50",50); UnderY("60",60) UnderY("70",70); UnderY("80",80); UnderY("90",90) abovey("cm")