powered by
data("ss.data.bills")
data(ss.data.bills) str(ss.data.bills) barplot(table(ss.data.bills$clerk), main = "number of invoices") aggregate(errors ~ clerk, ss.data.bills, sum)
Run the code above in your browser using DataLab