4.2. PLOTTING 61 100 80 60 40 20 0 4 f r barplot(table(mpg$drv), xlab = "Drivetrain (f = FWD, r = RWD, 4 = 4WD)", ylab = "Frequency", main = "Drivetrains", col = "dodgerblue", border = "darkorange")