dev.off()
pohon1 = subset(Orange,Tree==1)
pohon2 = subset(Orange,Tree==2)
pohon3 = subset(Orange,Tree==3)
pohon4 = subset(Orange,Tree==4)
pohon5 = subset(Orange,Tree==5)
judul ="Dataset Orange age dan circumference Carlos Lucky 00000028757"
colors = c(1:10)
pohon = rbind(pohon1,pohon2,pohon3,pohon4,pohon5)
barplot(pohon$circumference,pohon$age,xlab = "age", ylab = "circumference", main=judul, col=colors,xlim=c(0,55000),legend = c("pohon1","pohon2","pohon3","pohon4","pohon5"))