ggplot facet_wrap不按字母顺序排列分面 R

Question

在过去的几天里，我浏览了很多论坛和网站，所以我希望你能提供帮助。

你可以在这里找到我一直使用的数据，以及三个模型预测。

我从昨晚以人为本的睡眠满意度中预测主观幸福感(即积极情绪、消极情绪和生活满意度(。我想出了三个模型，我现在想把它们画在彼此旁边。问题在于，facet_wrap按字母顺序将模型放在一起，而不是我想要的方式(积极影响，负面影响和生活满意度(。

你可以在这里查看我目前的图表

这是我的代码，用于使图形运行：

library("afex") 
library("tidyverse") 
library("tidylog") 
theme_set(theme_bw(base_size = 15)) 
library("sjPlot")
d3 <- read.csv("d3.csv")
d3 <- d3 %>% 
group_by(ID) %>% 
mutate(SD_person_centred = sleepDur - mean(sleepDur, na.rm = TRUE)) %>% 
mutate(sleep_satisfaction_person_centred = Sleep_quality_open - mean(Sleep_quality_open, na.rm = TRUE)) %>%
mutate(MS_person_centred = mid_sleep_modified - mean(mid_sleep_modified, na.rm = TRUE)) %>%
mutate(MS_person_freeday_centred = abs(mid_sleep_modified - 
mean(mid_sleep_modified[Routine_work_day_open == "No"], na.rm = TRUE))) %>%
mutate(MS_person_mctq_centred = abs(mid_sleep_modified - MCTQ_MSF_number)) %>%
mutate(sleep_onset_person_centred = Sleep_Onset_open - mean(Sleep_Onset_open, na.rm = TRUE)) %>%
mutate(sleep_efficiency_person_centred = SleepEfficiency_act - mean(SleepEfficiency_act, na.rm = TRUE)) %>%
ungroup
m_p_sls_1 <- readRDS("m_p_sls_1.rds")
m_n_sls_1 <- readRDS("m_n_sls_1.rds")
m_s_sls_1 <- readRDS("m_s_sls_1.rds")
tmp <- get_model_data(m_p_sls_1$full_model, type = "pred", terms = "sleep_satisfaction_person_centred")
tmp$DV <- "positive_affect"
tmp2 <- get_model_data(m_n_sls_1$full_model, type = "pred", terms = "sleep_satisfaction_person_centred")
tmp2$DV <- "negative_affect"
tmp3 <- get_model_data(m_s_sls_1$full_model, type = "pred", terms = "sleep_satisfaction_person_centred")
tmp3$DV <- "life_satisfaction"
tmp <- bind_rows(tmp, tmp2, tmp3)
tmp
tmp$DV

在这里，我将tmp$DV更改为一个因素，因为这是我在网上找到的解决方案。但是，这并没有改变任何东西：

tmp$DV <- factor(tmp$DV, levels=c("positive_affect","negative_affect","life_satisfaction"))
levels(tmp$DV)

这是我的图形代码：

variable_names <- list(
"positive_affect" = "positive affect" ,
"negative_affect" = "negative affect",
"life_satisfaction" = "life satisfaction"
)

variable_labeller <- function(variable,value){
return(variable_names[value])
}
d3 %>% 
pivot_longer(cols="positive_affect":"life_satisfaction", names_to = "DV", values_to = "Score") %>% 
ggplot(aes(x = sleep_satisfaction_person_centred, y = Score)) +
geom_ribbon(data = tmp, aes(x = x, ymin = conf.low, ymax = conf.high, y = predicted), 
fill = "lightgrey") +
geom_line(data = tmp, aes(x = x, y = predicted, group = 1)) +
geom_point(alpha = 0.2) +
facet_wrap(~DV, scales = "free_y",labeller=variable_labeller) +
labs(y = "Score", 
x = "Sleep satisfaction person centered")

当我给 tmp$DV 的因子一个不同的名称，即 .tmp$facet 并将其添加到我的代码中时，我确实得到了正确的顺序，但 y 轴上的刻度不再自由。请看这里。

tmp$facet <- factor(tmp$DV, levels=c("positive_affect", "negative_affect", "life_satisfaction"))
d3 %>% 
pivot_longer(cols="positive_affect":"life_satisfaction", names_to = "DV", values_to = "Score") %>% 
ggplot(aes(x = sleep_satisfaction_person_centred, y = Score)) +
geom_ribbon(data = tmp, aes(x = x, ymin = conf.low, ymax = conf.high, y = predicted), 
fill = "lightgrey") +
geom_line(data = tmp, aes(x = x, y = predicted, group = 1)) +
geom_point(alpha = 0.2) +
facet_wrap(~facet, scales = "free_y",labeller=variable_labeller) +
labs(y = "Score", 
x = "Sleep satisfaction person centered")

当我在第一行中将pivot_longer更改为分面时，我得到的图形与之前的图形相同。

很抱歉这篇文章很长，但我试图尽可能清楚。如果我不是，请告诉我。

我会感谢任何形式的提示。非常感谢您的时间。

万事如意， 安妮塔

Answer 1

刚刚从我的同事Henrik Singmann那里得到了答案，以防有人想知道：

d3 %>% 
pivot_longer(cols="positive_affect":"life_satisfaction", names_to = "DV", values_to = "Score") %>% 
mutate(DV = factor(DV, levels=c("positive_affect","negative_affect","life_satisfaction"))) %>%
ggplot(aes(x = sleep_satisfaction_person_centred, y = Score)) +
geom_ribbon(data = tmp, aes(x = x, ymin = conf.low, ymax = conf.high, y = predicted), 
fill = "lightgrey") +
geom_line(data = tmp, aes(x = x, y = predicted, group = 1)) +
geom_point(alpha = 0.2) +
facet_wrap(~DV, scales = "free_y",labeller=variable_labeller) +
labs(y = "Score", 
x = "Sleep satisfaction person centered")

因此，在移交给 ggplot 之前，需要在 d3 中定义该因子。