Create access as an ordered factor variable:

access <-as.factor(access) 
access_ordered <- ordered(x=access, levels=c("Strongly disagree", "Disagree", "Somewhat disagree", "Neither agree or disagree", "Somewhat agree", "Agree", "Strongly Agree"))
access_ordered
##  [1] Neither agree or disagree Disagree                 
##  [3] Somewhat agree            Strongly Agree           
##  [5] Somewhat agree            Neither agree or disagree
##  [7] Disagree                  Somewhat agree           
##  [9] Neither agree or disagree Neither agree or disagree
## [11] Agree                     Disagree                 
## [13] Neither agree or disagree Neither agree or disagree
## [15] Strongly Agree            Neither agree or disagree
## [17] Somewhat agree            Somewhat agree           
## [19] Strongly Agree            Agree                    
## [21] Somewhat agree            Strongly Agree           
## [23] Somewhat agree            Somewhat agree           
## [25] Somewhat agree            Agree                    
## [27] Somewhat disagree         Strongly Agree           
## [29] Somewhat disagree         Disagree                 
## [31] Neither agree or disagree Strongly Agree           
## [33] Strongly Agree            Agree                    
## [35] Neither agree or disagree Somewhat agree           
## [37] Agree                     Disagree                 
## [39] Strongly Agree           
## 7 Levels: Strongly disagree < Disagree < ... < Strongly Agree

Create excel, statistics, and programming as ordered variables:

excel <-as.factor(excel)
excel_ordered <- ordered(x=excel, levels=c("Strongly Agree", "Agree", "Somewhat agree"))
excel_ordered
##  [1] Agree          Strongly Agree Strongly Agree Strongly Agree
##  [5] Agree          Agree          Somewhat agree Strongly Agree
##  [9] Strongly Agree Strongly Agree Strongly Agree Strongly Agree
## [13] Strongly Agree Somewhat agree Strongly Agree Strongly Agree
## [17] Somewhat agree Agree          Strongly Agree Strongly Agree
## [21] Agree          Strongly Agree Strongly Agree Strongly Agree
## [25] Agree          Agree          Strongly Agree Strongly Agree
## [29] Strongly Agree Strongly Agree Agree          Strongly Agree
## [33] Strongly Agree Strongly Agree Agree          Strongly Agree
## [37] Strongly Agree Strongly Agree Strongly Agree
## Levels: Strongly Agree < Agree < Somewhat agree
statistics <-as.factor(statistics)
statistics_ordered <- ordered(x=statistics, levels=c("Strongly disagree", "Disagree", "Somewhat disagree", "Neither agree or disagree", "Somewhat agree", "Agree", "Strongly Agree"))
statistics_ordered
##  [1] Neither agree or disagree Somewhat agree           
##  [3] Strongly Agree            Strongly Agree           
##  [5] Strongly Agree            Somewhat agree           
##  [7] Agree                     Agree                    
##  [9] Strongly Agree            Somewhat agree           
## [11] Strongly Agree            Strongly Agree           
## [13] Somewhat agree            Somewhat agree           
## [15] Agree                     Agree                    
## [17] Agree                     Neither agree or disagree
## [19] Strongly Agree            Strongly Agree           
## [21] Agree                     Strongly Agree           
## [23] Agree                     Somewhat agree           
## [25] Agree                     <NA>                     
## [27] Somewhat agree            Strongly Agree           
## [29] Agree                     Strongly Agree           
## [31] Disagree                  Strongly Agree           
## [33] Strongly Agree            Agree                    
## [35] Agree                     Agree                    
## [37] Agree                     Strongly Agree           
## [39] Strongly Agree           
## 7 Levels: Strongly disagree < Disagree < ... < Strongly Agree
programming <-as.factor(programming)
programming_ordered <- ordered(x=programming, levels=c("Strongly disagree", "Disagree", "Somewhat disagree", "Neither agree or disagree", "Somewhat agree", "Agree", "Strongly Agree"))
programming_ordered
##  [1] Neither agree or disagree Strongly Agree           
##  [3] Strongly Agree            Agree                    
##  [5] Agree                     Somewhat agree           
##  [7] Strongly Agree            Strongly Agree           
##  [9] Somewhat agree            Somewhat disagree        
## [11] Agree                     Strongly Agree           
## [13] Strongly Agree            Somewhat disagree        
## [15] Agree                     Somewhat agree           
## [17] Strongly Agree            Neither agree or disagree
## [19] Strongly Agree            Agree                    
## [21] Agree                     Strongly Agree           
## [23] Agree                     Somewhat agree           
## [25] Neither agree or disagree Neither agree or disagree
## [27] Somewhat agree            Strongly Agree           
## [29] Agree                     Agree                    
## [31] Disagree                  Strongly Agree           
## [33] Agree                     Agree                    
## [35] Agree                     Somewhat agree           
## [37] Neither agree or disagree Strongly Agree           
## [39] Strongly Agree           
## 7 Levels: Strongly disagree < Disagree < ... < Strongly Agree

Draw histograms for the factored variables.

hist (as.numeric(excel_ordered), main= "Responses to the level of importance for learning MS Excel", xlab= "Level of Importance", col="#9bcd5e", labels=TRUE, border="#FFFFFF" )

hist (as.numeric(statistics_ordered), main= "Responses to the level of importance for learning statistics", xlab= "Level of Importance", col="#9bcd5e", labels=TRUE, border="#FFFFFF" )

hist (as.numeric(programming_ordered), main= "Responses to the level of importance for learning programming", xlab= "Level of Importance", col="#9bcd5e", labels=TRUE, border="#FFFFFF" )

hist (as.numeric(access_ordered), main= "Responses to the level of importance for learning MS Access", xlab= "Level of Importance", col="#9bcd5e", labels=TRUE, border="#FFFFFF" )