#To get a richer frequency chart with percentages and cumulative percentages

#install.packages('epiDisplay')
library(epiDisplay)

## Loading required package: foreign

## Loading required package: survival

## Loading required package: MASS

## Loading required package: nnet

tab1(my_data$CatVar, cum.percent = TRUE)

## my_data$CatVar : 
##         Frequency Percent Cum. percent
## 3               7     2.3          2.3
## 4              31    10.3         12.7
## 5             104    34.7         47.3
## 6             115    38.3         85.7
## 7              36    12.0         97.7
## 8               7     2.3        100.0
##   Total       300   100.0        100.0