ggplot2の1つのバーにレインボーグラデーションを追加する

（2）の場合、指定した塗りつぶし変数はですColorが、x軸変数はreorder(Color)であるため、同じ変数に変更する必要があります。ggplotこの種の問題を回避するために、電話の前に並べ替えることをお勧めします。

colour_clicks %>% 
  mutate(Color = reorder(Color, desc(avg))) %>%   # reorder here, not within ggplot call
  ggplot(aes(x = Color, y=avg, fill=Color)) +
  geom_bar(stat="identity", color = "black")+
  scale_fill_manual(values=c(
    "blue",
    "black",
    "white",
    "gray",
    "brown",
    "orange",
    "beige",
    "violet",
    "red",
    "green",
    "pink",
    "orangered4",
    "olivedrab",
    "navyblue"
  )) +
  theme(legend.position = "none")

（1）の場合、独自のグラデーションバーを作成する以外にこれを行うための優れた方法はありません。基本的な方法は、ゼロからの値までのシーケンスを作成しavg、それを使用してcolorRamp()。でグラデーションを生成することです。残念ながら、これはR、G、Bを別々に出力するため、16進数に変換する必要があります。しかし、それほど悪くはありません。ここにあります。

# Make the gradient
max_y <- colour_clicks$avg[colour_clicks$Color == "of many colors"]
pal <- c('red', 'orange', 'yellow', 'green', 'blue', 'violet')
color_generator <- colorRamp(pal)

df <- data.frame(
  y = seq(0, max_y, length.out = 100)
) %>% 
  mutate(
    R = color_generator(y/max_y)[,1],
    G = color_generator(y/max_y)[,2],
    B = color_generator(y/max_y)[,3],
    hexcol = sprintf("#%02x%02x%02x", (round(R, 0)), 
                     (round(G, 0)), 
                     (round(B, 0)))
  )

colour_clicks %>% 
  mutate(Color = reorder(Color, desc(avg))) %>% 
  ggplot(aes(x = Color, y=avg, fill=Color)) +
  geom_bar(stat="identity", color = "black")+
  scale_fill_manual(values=c(
    "blue", "black", "white", "gray", "brown", "orange", "beige", "violet",
    "red", "green", "pink", "orangered4", "olivedrab", "navyblue"
  )) +
  # Overlay the rainbow column on the old column
  geom_col(data = df, aes(x = 6, y = max_y/100, group = 1:100), fill = df$hexcol) +
  theme(legend.position = "none")