Zama Mohammed Fahad, R

Language: Layout:

absences = c(2, 1, 1, 0, 1, 0, 1, 0, 3, 1, 0, 1, 2, 1, 0, 0, 2, 2, 0, 0, 1, 0, 0, 2, 0, 1, 2, 4, 0, 0, 0, 1, 0, 0, 2, 0, 0, 1, 3, 1, 2, 2, 0, 1, 0, 1, 0, 2, 0, 0, 0, 2, 0, 4, 0, 0, 3, 2, 1, 0, 0, 1, 0, 3, 0, 5, 2, 0, 0, 0, 1, 2, 2, 0, 0, 1, 2, 0, 2, 1, 0, 1, 2, 0, 1, 2, 0, 2, 0, 1, 0, 2, 0, 0, 1, 0, 0, 0, 1, 0)
# the above line creates a dataset named "absences"
table1 = table(absences)
# the above line groups the "absences" dataset into a table
table1
# the above line displays such a table
barplot(table1, col=rainbow(6), xlab="Absences", ylab="Number of employees")
# the line above creates a column chart (BARPLOT function)
# in brackets, first you specify which data you want to present on the graph
# the COL argument specifies which colours will be used on the graph
# the XLAB and YLAB arguments are responsible for the X and Y axis names

salaries = c(1950, 3367, 2450, 2067, 2600, 1817, 1650, 2050, 2158, 1567, 1775, 1683, 1833, 2042, 2250, 2050, 3050, 1592, 2017, 3175, 1575, 1625, 2058, 1733, 1592, 2800, 1717, 2200, 1858, 1758, 2083, 1967, 2542, 1725, 2067, 2083, 2083, 1975, 2158, 2242, 2667, 1783, 1633, 1942, 1825, 2058, 2142, 2325, 2533, 2050, 2208, 1808, 1700, 1958, 3533, 2075, 1983, 1775, 1792, 1642, 1975, 1983, 1575, 1900, 1825, 1508, 1692, 1933, 1792, 1775, 1975, 2758, 1950, 1883, 1717, 1825, 1708, 1333, 1600, 1525, 2483, 1767, 2108, 2642, 2192, 1683, 1867, 1533, 2925, 1533, 1667, 2725, 2442, 2600, 2100, 1800, 2050, 2633, 2183, 2767)
# the line above creates a dataset named "salaries"
hist(salaries, breaks=6, col="yellow", labels = TRUE)
# the above line creates a histogram (HIST function) for these salaries
# in brackets, first you specify which data you want to present
# the BREAKS argument is responsible for the number of intervals
# the COL argument specifies which colour will fill the bars
# the LABELS argument adds labels on the bars
hist(salaries, breaks=c(1250, 1500, 1750, 2000, 2250, 2500, 2750, 3000, 3250, 3500, 3750), col="green", labels = TRUE)
# this time the boundaries of the intervals will be adjusted manually

boxplot(salaries, col="purple")
# the line above creates "box & whiskers" plot (BOXPLOT function) with potential outliers

[ + ] Show input
Absolute running time: 0.76 sec, cpu time: 0.72 sec, memory peak: 43 Mb, absolute service time: 1 sec