organising levels

# Remove full stops and replace with them with blanks
names(LXP.data.items) <- gsub("\\.", " ", names(LXP.data.items))

#ordering levels 
#Q1
LXP.data.items$`Access my timetable`<- factor(LXP.data.items$`Access my timetable`, levels = c("Very unimportant","Quite unimportant", "Neither important nor unimportant","Important","Very important"), ordered = T)

#Q2
LXP.data.items$`Particpate in collaborative activities  forums  peer assessment  group work ` <- factor(LXP.data.items$`Particpate in collaborative activities  forums  peer assessment  group work ` , levels = c("Very unimportant","Quite unimportant", "Neither important nor unimportant","Important","Very important"), ordered = T)


#Q3
LXP.data.items$`Have badges and leaderboards` <- factor(LXP.data.items$`Have badges and leaderboards`, levels = c("Very unimportant","Quite unimportant", "Neither important nor unimportant","Important","Very important"), ordered = T)


#Q4
LXP.data.items$`Have my exercises automatically adapted to my preferences and ability` <- factor(LXP.data.items$`Have my exercises automatically adapted to my preferences and ability` , levels = c("Very unimportant","Quite unimportant", "Neither important nor unimportant","Important","Very important"), ordered = T)


#Q5
LXP.data.items$`Access my coursework on a cellphone` <- factor(LXP.data.items$`Access my coursework on a cellphone` , levels = c("Very unimportant","Quite unimportant", "Neither important nor unimportant","Important","Very important"), ordered = T)


#Q6
LXP.data.items$`Access my courses offline`<- factor(LXP.data.items$`Access my courses offline`, levels = c("Very unimportant","Quite unimportant", "Neither important nor unimportant","Important","Very important"), ordered = T)

#Q7
LXP.data.items$`Create and share my portfolio` <- factor(LXP.data.items$`Create and share my portfolio` , levels = c("Very unimportant","Quite unimportant", "Neither important nor unimportant","Important","Very important"), ordered = T)