It can be solved by new_df <- df |> arrange(desc(cost)) |> mutate(x=fct_reorder(x,desc(y)).
I love ggQC package and use it recently. I found the same issue and the most convinent way is just prepare the input data frame by arrange + fct_reorder.

Below is the full cost to demo purpose:

`library(ggQC)
library(ggplot2)
library(forcats)
library(tidyverse)

set.seed(0)
df <- data.frame(
x = c('a', 'd', 'c', 'H1', 'Y1',
'B', 'AAA', 'Xy', '2A', '12'),
y = as.integer(runif(
n = 10, min = 0, max = 100
))
)
print(str(df |> arrange(desc(y))))

when x= Xy',y = 94, which is biggest.

Bug code from the Render Pareto Plot from ggQC onine help -------------

which put H1 in the 1st place incorrectly.

ggplot(df, aes(x = x, y = y)) +
stat_pareto(
point.color = "red",
point.size = 3,
line.color = "black",
#size.line = 1,
bars.fill = c("blue", "orange")
)

Fixed cost from Render Pareto Plot from ggQC onine help ---------------

arrange y value by desc, and mutate the x by fct_recorder

which put Xy in the 1st place incorrectly.

new_df <- df |>
arrange(desc(y)) |>
mutate(x = fct_reorder(x, desc(y)))

ggplot(new_df, aes(x = x, y = y)) +
stat_pareto(
point.color = "red",
point.size = 3,
line.color = "black",
#size.line = 1,
bars.fill = c("blue", "orange")
)
`

from ggqc.

It works! thank you so much for that !

library(tidyverse)
library(ggQC)

df <- tibble(type_nc = c("scratch","spots","folds","holes","rips"),
             qty = c(201,78,47,31,15),
             cost = c(4287,2423,1119,8947,1864))

df %>% 
  arrange(desc(cost)) %>% 
  mutate(type_nc = fct_reorder(type_nc, desc(cost))) %>% 
  ggplot(aes(x = type_nc, 
             y = cost))+
  stat_pareto(point.color = "darkgray",
              point.size = 2,
              line.color = "darkgray",
              bars.fill = c("gray","lightblue"))

from ggqc.

glad to know that. I slove it because I faced the issue as well last week.

from ggqc.