library (lattice)
data(ToothGrowth)
xyplot(len~supp,data=ToothGrowth)
                      
xyplot(len~dose,data=ToothGrowth)
                      

Embed on website

To embed this program on your website, copy the following code and paste it into your website's HTML: