Conclusion: Yes, OJ is much higher than VC. From boxplot we can see the median of OJ isaround 25 while the median of VC is about 16. Also we can easily see the difference in theirhistograms and density plots.#ep1 <- ggplot(ToothGrowth,aes(x=dose,y=len)) + geom_point(aes(color=supp)) +xlab("dose") +ylab("length")p1Yes, the nature of association depends on the type of supplement. From the scatterplot, boththe length of VC and OJ increase as dose increases. Obviously, the length of OJ is higher thanthe length of VC when they are at the same value of dose. The length of OJ increases slowerthan the VJ does.