Rにてグラフの凡例の順番を並べ替えたい

Question

library(ggplot2)
library(ggsci)

a1 <- data.frame(
  average_alpha = c(1.0),
  score = c(1)
)
a2 <- data.frame(
  average_alpha = c(1.1),
  score  = c(1)
)
a3 <- data.frame(
  average_alpha = c(1.3),
  score  = c(1)
)
a4 <- data.frame(
  average_alpha = c(1.5),
  score  = c(1)
)

x <- rbind(data.frame(time = "2min.", a1),
           data.frame(time = "8min.", a2),
           data.frame(time = "14min.", a3),
           data.frame(time = "20min.", a4))

g <- ggplot(x, aes(x = average_alpha, y = score,shape=time)) + 
  scale_fill_discrete(breaks = c("2min.", "8min.", "14min.","20min.")) +
  scale_shape_manual(values=c(1,2,22,23)) +
  geom_point(size=5) + 
  theme(axis.title.y = element_blank(),axis.ticks = element_blank(), axis.text.y = element_blank()) + 
  geom_hline(yintercept=1) +
  ylim(c(0.8, 2))+
  xlim(c(0.7,1.7))
plot(g)

【環境】
PC：MacBook Air ver.11.5.2(Big Sur)
R：R 4.1.1
Rstudio：2021.09.0 Build 351

【質問内容】
上記のコードにて2min. , 8min. , 14min. , 20min.の順で凡例を上から並べたい。scale_fill_discrete(breaks = c("2min.", "8min.", "14min.","20min."))にて記載したが、14min. , 20min. , 2min. , 8min.の順になってしまう。

エラーコードは特に出ていません。

Answer 1

x$time の levels を設定すると良さそうです。

x$time <- factor(x$time, levels=x$time)
g <- ggplot(x, aes(x = average_alpha, y = score,shape=time)) + 
              :

Comments

[kurokaba]

ありがとうございます。
解決いたしました。
早急な回答で非常に助かりました。