
Я пытался решить эту проблему с помощью gtools::mixedsort(variable), но по какой-то причине, за пределами моих знаний и терпения, это не работает.
Может ли кто-нибудь подсказать мне, как решить эту проблему? код ниже:
Код: Выделить всё
library(tidyverse)
df = data.frame(data.frame(x = 1:3))
for (i in 1:15) {
df[ , paste0("asq_", i)] %
pivot_longer(-x,names_to = "asq_item", values_to = "response")%>%
group_by(asq_item, response) %>%
summarise(count = n(), .groups = 'drop') %>%
group_by(asq_item) %>%
mutate(proportion = count / sum(count)) %>%
ggplot(., aes(x = asq_item, y = proportion, fill = factor(response)))+
geom_bar(stat = "identity", position=position_dodge2(width = 0.9, preserve = "single")) +
labs(title = "Prevalence of Each Category Within Each ASQ Item",
x = "ASQ Item",
y = "Count",
fill = "Response") +
theme_bw()

Создано 23 июля 2024 г. с использованием reprex v2.1.0
Подробнее здесь: https://stackoverflow.com/questions/787 ... n-i-ensure