r - ggplot `scale_fill_manual()` 无限交替颜色

Question

我的第一个代码块工作正常，尽管我的一次性值999与优雅相反。我试图将第一个条变为红色，然后交替蓝色和绿色。可能不是交替蓝色和绿色的最佳方法，但它有效。

# FIRST CODE CHUNK
library(tidyverse)
ggplot(mpg, aes(fl)) + 
  geom_bar(aes(fill = fl)) + 
  scale_fill_manual(
    values = c("red", rep(c("blue", "green"), 999))
  )

我想要scale_fill_manual()并无限地回收蓝色和绿色，但这不起作用。我收到“仅需要 5 个，仅提供 3 个”错误。

# SECOND CODE CHUNK
ggplot(mpg, aes(fl)) + 
  geom_bar(aes(fill = fl)) + 
  scale_fill_manual(
    values = c(red, c("blue", "green"))
  )

如何在 scale_fill_manual() 命令中回收蓝色和绿色？我想它会是这样的

scale_fill_manual(values = c(red, rep(c("blue", "green"), recycle.infinite)))

Answer 1

类似这样的吗？

scale_fill_manual(
     values = c("red", rep_len(c("blue", "green"), length(unique(mpg$fl))-1))