Unable to change order of items when building a grouped likert plot

[eg-brown]

Hi there! I noticed that when building a likert plot with respondent grouping, I can't change the order that items appear in. The items were initially listed in the same order as the columns in the data frame, but even after manually changing the order of columns in the data frame, the items are listed in the original order in the plot.

I posted an example and more details on Stack Overflow here. Thanks!

https://stackoverflow.com/questions/67524746/arrange-items-in-likert-plot-by-subgroup-from-high-to-low-rather-than-column-or

[anovabr]

Hi there,
I'm facing the same issue here.
Please check the codes below to reproduce the issue.
The main goal will be smth like that below

pilot_ds <- structure(list(time = c(".Second", "First", "First", "First", 
"First", "First", "First", "First", "First", "First", "First", 
"First", "First", "First", "First", ".Second", "First", "First", 
"First", "First", "First", "First", "First", "First", "First", 
".Second", "First", ".Second", "First", ".Second", ".Second", 
"First", "First", "First", "First", ".Second", "First", "First", 
"First", "First", "First", ".Second", "First", "First", ".Second", 
".Second", "First", "First", "First", "First", "First", "First", 
".Second", "First", "First", ".Second", "First", "First", ".Second", 
".Second", "First", "First", ".Second", "First", "First", "First", 
"First", "First", "First", "First", ".Second", "First", ".Second", 
"First", "First", "First", "First", "First", "First", "First", 
"First", "First", "First", "First", "First", "First", "First", 
"First", ".Second", "First", "First", "First", "First", "First", 
"First", "First", "First", "First", "First", "First"), Economy = structure(c(3L, 
4L, 3L, 4L, 3L, 4L, 4L, 4L, 3L, 3L, 2L, 2L, 4L, 3L, 3L, 3L, 3L, 
2L, 4L, 2L, 3L, 2L, 3L, 4L, NA, 3L, 3L, 3L, 4L, 4L, 2L, 3L, 4L, 
4L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 3L, 3L, 3L, 3L, 2L, 3L, 4L, NA, 
4L, 3L, 4L, 3L, 1L, 3L, 2L, 2L, 2L, 3L, 3L, 2L, 2L, 3L, 4L, 3L, 
3L, 3L, 3L, 4L, 3L, 3L, 2L, 3L, NA, 4L, 3L, NA, 3L, 3L, 2L, 2L, 
3L, 3L, 3L, NA, NA, 3L, 4L, 3L, 3L, 3L, 4L, 3L, 3L, 4L, 3L, 3L, 
3L, 3L, 3L), .Label = c("Not at all", "A little", "Moderately", 
"Very much"), class = "factor"), `My personal finance` = structure(c(3L, 
3L, 3L, 4L, 2L, 4L, 4L, 3L, 2L, 3L, 2L, 3L, 4L, 2L, 3L, 3L, 2L, 
2L, 3L, 2L, 2L, 2L, 2L, 4L, NA, 3L, 3L, 3L, 3L, 2L, 2L, 3L, 3L, 
2L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 3L, 3L, 2L, 3L, 2L, 3L, 4L, NA, 
4L, 3L, 3L, 2L, 2L, 3L, 3L, 2L, 3L, 3L, 2L, 2L, 2L, 3L, 4L, 3L, 
2L, 2L, 3L, 4L, 3L, 2L, 1L, 3L, NA, 2L, 3L, NA, 2L, 2L, 1L, 4L, 
2L, 3L, 3L, NA, NA, 3L, 4L, 3L, 4L, 2L, 4L, 4L, 2L, 4L, 3L, 3L, 
2L, 3L, 3L), .Label = c("Not at all", "A little", "Moderately", 
"Very much"), class = "factor"), `My own health` = structure(c(4L, 
3L, 2L, 4L, 3L, 4L, 3L, 3L, 2L, 3L, 1L, 2L, 4L, 2L, 3L, 3L, 3L, 
2L, 1L, 1L, 3L, 2L, 4L, 4L, NA, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 4L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 3L, 3L, 1L, 2L, 3L, 3L, 3L, NA, 
4L, 3L, 3L, 3L, 3L, 4L, 2L, 1L, 4L, 3L, 3L, 2L, 2L, 2L, 4L, 4L, 
2L, 2L, 3L, 4L, 4L, 3L, 1L, 3L, NA, 3L, 4L, NA, 2L, 3L, 3L, 4L, 
3L, 3L, 2L, NA, NA, 3L, 3L, 3L, 4L, 3L, 3L, 3L, 3L, 4L, 3L, 4L, 
4L, 2L, 1L), .Label = c("Not at all", "A little", "Moderately", 
"Very much"), class = "factor"), `My friends and family health` = structure(c(4L, 
4L, 3L, 4L, 4L, 4L, 4L, 4L, 2L, 3L, 1L, 3L, 4L, 3L, 2L, 3L, 3L, 
2L, 4L, 2L, 3L, 2L, 4L, 4L, NA, 3L, 3L, 4L, 4L, 3L, 3L, 2L, 4L, 
3L, 4L, 3L, 3L, 3L, 3L, 3L, 4L, 3L, 3L, 2L, 2L, 3L, 4L, 3L, NA, 
3L, 3L, 3L, 4L, 3L, 4L, 3L, 2L, 4L, 3L, 4L, 3L, 2L, 3L, 4L, 4L, 
4L, 3L, 4L, 4L, 3L, 4L, 2L, 4L, NA, 4L, 3L, NA, 3L, 3L, 3L, 4L, 
4L, 4L, 3L, NA, NA, 3L, 4L, 3L, 4L, 3L, 3L, 3L, 3L, 4L, 3L, 4L, 
4L, 3L, 3L), .Label = c("Not at all", "A little", "Moderately", 
"Very much"), class = "factor"), `Social cohesion` = structure(c(3L, 
4L, 3L, 4L, 3L, 4L, 2L, 3L, 3L, 2L, 1L, 3L, 4L, 3L, 2L, 3L, 3L, 
2L, 3L, 1L, 2L, 2L, 3L, 4L, NA, 3L, 2L, 3L, 3L, 2L, 2L, 2L, 3L, 
2L, 3L, 3L, 3L, 3L, 1L, 3L, 4L, 3L, 3L, 2L, 2L, 3L, 4L, 3L, NA, 
4L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 4L, 3L, 3L, 3L, 2L, 2L, 4L, 3L, 
3L, 2L, 3L, 4L, 3L, 4L, 2L, 3L, NA, 4L, 3L, NA, 3L, 3L, 2L, 3L, 
3L, 3L, 2L, NA, NA, 3L, 3L, 2L, 4L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
4L, 2L, 3L), .Label = c("Not at all", "A little", "Moderately", 
"Very much"), class = "factor"), `Food and pharmaceutical drugs` = structure(c(3L, 
4L, 2L, 4L, 3L, 3L, 2L, 3L, 3L, 3L, 1L, 2L, 4L, 2L, 1L, 3L, 2L, 
2L, 3L, 2L, 2L, 2L, 2L, 4L, NA, 4L, 2L, 3L, 2L, 4L, 1L, 2L, 2L, 
2L, 3L, 2L, 2L, 1L, 1L, 3L, 4L, 1L, 3L, 1L, 2L, 2L, 2L, 3L, NA, 
4L, 3L, 2L, 3L, 2L, 2L, 1L, 2L, 3L, 2L, 1L, 3L, 2L, 2L, 3L, 3L, 
3L, 2L, 2L, 3L, 2L, 1L, 2L, 3L, NA, 3L, 2L, NA, 2L, 3L, 3L, 4L, 
3L, 2L, 2L, NA, NA, 3L, 4L, 1L, 4L, 2L, 3L, 4L, 2L, 4L, 1L, 2L, 
3L, 3L, 3L), .Label = c("Not at all", "A little", "Moderately", 
"Very much"), class = "factor"), `Price of grocery product` = structure(c(3L, 
4L, 3L, 4L, 3L, 4L, 2L, 3L, 3L, 3L, 2L, 2L, 4L, 3L, 3L, 3L, 3L, 
2L, 3L, 2L, 2L, 2L, 3L, 4L, NA, 4L, 2L, 4L, 2L, 4L, 3L, 2L, 3L, 
2L, 3L, 3L, 3L, 3L, 2L, 3L, 4L, 2L, 3L, 3L, 1L, 3L, 3L, 3L, NA, 
4L, 3L, 2L, 4L, 1L, 2L, 3L, 2L, 2L, 3L, 2L, 2L, 2L, 3L, 4L, 4L, 
3L, 2L, 4L, 4L, 2L, 1L, 1L, 3L, NA, 3L, 2L, NA, 3L, 3L, 3L, 4L, 
2L, 2L, 2L, NA, NA, 3L, 4L, 1L, 4L, 1L, 3L, 4L, 2L, 4L, 1L, 3L, 
3L, 4L, 3L), .Label = c("Not at all", "A little", "Moderately", 
"Very much"), class = "factor"), `Stock prices` = structure(c(3L, 
4L, 2L, 4L, 3L, 3L, 1L, 3L, 3L, 3L, 2L, 2L, 4L, 3L, 2L, 3L, 1L, 
2L, 3L, 2L, 2L, 2L, 3L, 4L, NA, 3L, 3L, 2L, 1L, 4L, 2L, 1L, 3L, 
1L, 3L, 3L, 3L, 2L, 2L, 2L, 4L, 1L, 3L, 2L, 1L, 3L, 4L, 3L, NA, 
3L, 3L, 3L, 3L, 3L, 3L, 1L, 2L, 2L, 3L, 3L, 2L, 2L, 3L, 4L, 4L, 
3L, 2L, 4L, 4L, 3L, 3L, 2L, 2L, NA, 4L, 3L, NA, 3L, 2L, 1L, 4L, 
2L, 2L, 2L, NA, NA, 3L, 2L, 3L, 4L, 3L, 2L, 2L, 3L, 4L, 1L, 1L, 
3L, 2L, 3L), .Label = c("Not at all", "A little", "Moderately", 
"Very much"), class = "factor"), `Children's academic achievement` = structure(c(4L, 
4L, 2L, 1L, 4L, 3L, 3L, 4L, 4L, 3L, 1L, 1L, NA, 1L, 3L, 3L, 1L, 
2L, 2L, 2L, NA, 2L, 1L, 4L, NA, 1L, 1L, 1L, 1L, 1L, 3L, 1L, 1L, 
1L, 4L, 1L, 2L, 3L, 1L, 1L, 4L, 1L, 2L, 3L, 3L, 2L, 2L, 3L, NA, 
1L, 1L, 2L, 4L, 1L, 4L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 4L, 1L, 
1L, 2L, 4L, 3L, 1L, 2L, 1L, 4L, NA, NA, 2L, NA, 1L, 1L, 1L, 4L, 
4L, 1L, 2L, NA, NA, 3L, 1L, 4L, 1L, 2L, 4L, 1L, 3L, 4L, 1L, 1L, 
3L, 1L, 3L), .Label = c("Not at all", "A little", "Moderately", 
"Very much"), class = "factor")), class = "data.frame", row.names = c(NA, 
-100L))
likert(pilot_ds[-1], grouping = pilot_ds$time) %>% 
  plot(., centered=TRUE, 
       include.center=FALSE, 
       ordered = T)

[enelson56]

Any known solutions? I much prefer this package to Hmisc and sjPlot. This fix would go a long way.

[ericKuo722]

Anyone got the solutions? Thanks in advance.