r - ggplot2で重要な箱ひげ図の色を手動で選択する方法は?

Question

次のようなデータフレームがあります。

        values    TF group_num group
1   0.22722942 FALSE         5     5
2  -0.36530296  TRUE         3     3
3   0.38795866 FALSE         4     4
4   0.48439459 FALSE         4     4
5   0.93879881 FALSE         4     4
6  -0.03598468  TRUE         4     4
7  -0.49993149 FALSE         4     4
8   1.26200426 FALSE         5     5
9  -0.02348821  TRUE         4     4
10 -0.78135675 FALSE         4     4
11 -0.00466411 FALSE         2     2
12 -0.28493506  TRUE         3     3
13 -1.41763529  TRUE         4     4
14  2.03987995 FALSE         1     1
15 -0.70235537 FALSE         3     3
16  0.36176799 FALSE         2     2
17  0.22171013 FALSE         5     5
18 -0.56860951 FALSE         4     4
19 -0.51199794  TRUE         4     4
20 -0.92628365 FALSE         4     4

group_num = 数値
グループ = 因子

したがって、 geom_signif を使用して重要性を示す箱ひげ図を作成したい場合、これを使用するとエラーが発生しました。

ggplot(test, aes(x = TF, y = values, fill=group_num)) +
  geom_boxplot() + 
  stat_signif(comparisons=list(c('TRUE','FALSE')),map_signif_level = T) +
  facet_grid(~group_num) +
  scale_fill_manual(values=c("firebrick2","darkorchid4","dodgerblue4","deepskyblue4","gray48")) +
  theme(panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(), 
        panel.background = element_blank(), 
        axis.line = element_line(colour = "black"),
        strip.text.x = element_blank())

エラー: 離散スケールに連続値が指定されました

数値の group_num を使用しているため

ただし、グループ (因子) を使用すると、次のような出力が得られました。

ggplot(test, aes(x = TF, y = values, fill=group)) + 
  geom_boxplot() +  
  stat_signif(comparisons=list(c('TRUE','FALSE')),map_signif_level = T)+
scale_fill_manual(values=c("firebrick2","darkorchid4","dodgerblue4","deepskyblue4","gray48"))+ 
          facet_grid(~group) + 
      scale_color_manual(values=c("firebrick2","darkorchid4","dodgerblue4","deepskyblue4","gray48")) +
      theme(panel.grid.major = element_blank(), 
            panel.grid.minor = element_blank(),
            panel.background = element_blank(), 
            axis.line = element_line(colour = "black"),
            strip.text.x = element_blank())

ただし、すべてのグループの重要なポイントを取得したいと考えています。これを行うには、色を選択せず​​に group_num を使用すると機能します。次のような出力が得られます。

ggplot(test, aes(x = TF, y = values, fill=group_num)) + 
  geom_boxplot() + 
  stat_signif(comparisons=list(c('TRUE','FALSE')),map_signif_level = T) + 
  facet_grid(~group_num) + 
  theme(panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(),
        panel.background = element_blank(),
        axis.line = element_line(colour = "black"),
        strip.text.x = element_blank())

だから、私の質問は、グループ (as.factor) を使用して、facet_grid を使用するすべての異なるグループの上部に重要な最初の写真のような出力を取得するにはどうすればよいですか?