>ms <- c(1, 4, 3)

>pie(ms, label=c("D", "M", "S"))

#or 

>pie(c(1, 4, 3), label=c("D", "M", "S" ))

>barplot(ms, names.arg=c("D", "M", "S")) # shows the frequency in each category 

>barplot(ms/8, names.arg=c("D", "M", "S")) # shows the proportion in each category 

> age <- c(40, 32, 23, 28, 31, 28, 27, 35)

> stem(age)

  The decimal point is 1 digit(s) to the right of the |

  2 | 3
  2 | 788
  3 | 12
  3 | 5
  4 | 0


>score <- c(79, 81, 83, 86, 87, 88, 89, 90, 91, 95, 102, 105, 121)

>hist(score, freq=T, right=F) #use frequency for the y-axis

>hist(score, freq=T, right=F) #y-axis is equal to area/(class width)