Facet order reverts to alphabetical in grouped bar plot

[JakeC007]

I would like to reopen issue #67. Much like that poster, I am finding that regardless of the order of columns in the original data frame, the facts are displayed in alphabetical order.

UPDATE: After poking around this seems to only be an issue for when the percentage arguments are set to true. If any of the following are set to true the order switches to alphabetical:

• plot.percent.low
• plot.percent.high
• plot.percent.neutral

If they are all set to false, the facet ordering follows the columns in the original data frame. My guess is that something is a bit wonky when the function is asked to calculate percents.

[g-pacheco]

I would love to see a solution to this :)

[bokazza]

I use a cheap trick, which won't work for everyone but will for some (e.g. me). If you don't want the package to alphabetize your items you can "pre-alphabetize" them yourself in the original order. Consider:

`library(likert)
data("pisaitems")
items24 <- pisaitems[,substr(names(pisaitems), 1,5) == 'ST24Q']
names(items24) <- c(
"I read only if I have to.",
"Reading is one of my favorite hobbies.",
"I like talking about books with other people.",
"I find it hard to finish books.",
"I feel happy if I receive a book as a present.",
"For me, reading is a waste of time.",
"I enjoy going to a bookstore or a library.",
"I read only to get information that I need.",
"I cannot sit still and read for more than a few minutes.",
"I like to express my opinions about books I have read.",
"I like to exchange books with my friends.")

Insert this loop [only with grouped, the simple one is pre-ordered high to low, not alphabetically]

nms <- names(items24)
for(i in 1:length(nms)){
nms[i] <- paste("(", letters[i], ") ", nms[i], sep = "")
}
names(items24) <- nms

Resume the vignette

l24 <- likert(items24) # not grouped does not need this

plot(l24)

l24g <- likert(items24, grouping = pisaitems$CNT)
plot(l24g)
`

[bokazza]

Sorry for messy formatting :)

[SArsenii]

Still a problem.

[olizardo]

I found a solution that worked for me.

create a likert object from your data.
mylikert <- likert(mydata, grouping = mydata$group)

Plot it
myplot <- plot(mylikert)

And this is the main step, relevel the factor that likert uses for the facets inside the ggplot facet_wrap call. This variable is a column called "Item" inside the myplot$data object. As follows:
newplot <- myplot + facet_wrap(~factor(Item, levels = c("lev1", "lev2, "lev3")))

Where c("lev1", "lev2, "lev3") is the orders of the facets that you want.

If you plot newplot you should have the desired ordering (at least worked for me).