Issue with Order of Likert Responses

[aeb0084]

Hello. I have been working to get this code running. I have seen quite a few questions on this topic, with proposed solutions. However, I haven't been able to get any of them to work. I am using the Likert package on the attached file, and as you can see from the attached photo, the responses are in ABC order instead. I have tried reordering, using the order and group.order commands, as well as a few other options.

Sorry for the (probably) amateur question and thank you for your time.

Code:

lik=read.csv("likert_file.csv", header=T, na.strings = c("", "NA"))
levels=c("Strongly Disagree", "Disagree", "Somewhat Disagree", "Neutral", "Somewhat Agree", "Agree", "Strongly Agree")

lik=subset(lik, Instructor == "Abby Beatty")
items1=lik[,substr(names(lik), 1,4) == 'ST1Q']
items1=as.data.frame(items1)
names(items1) <- c(
			ST1Q1="I have a strong sense of belonging to the scientific community of scientists.",
			ST1Q2="I derive great personal satisfaction from working on a team that is doing important work .",
			ST1Q3="I have come to think of myself as a scientist.",
			ST1Q4="I feel like I belong in the field of science.",
			ST1Q5="The daily work of a scientist is greatly appealing to me.")

c1.group=likert(items1, grouping=lik$Timepoint)
plot(c1.group, ordered=FALSE)

likert_file.csv.zip