更改堆叠条形图中的颜色

约翰尼·托马斯

我需要此条形图的三种颜色为特定颜色。RET 应该是“chartreuse3”，FiR/FG 应该是 aquamarine4，RHA 应该是“goldenrod1”。

我找到了一些解决此问题的方法，但是当我尝试实施时，它不起作用。

fall3 <- structure(list(Community = c("First-Year", "First-Year", "First-Year", 
"First-Year", "Upper-Class", "Upper-Class", "First-Year", "First-Year", 
"Upper-Class", "Upper-Class"), Division = c("FiR/FG", "RHA", 
"RHA", "RET", "FiR/FG", "RET", "RET", "RHA", "RHA", 
"FiR/FG"), Count = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)), row.names = c(NA, 
-10L), class = c("tbl_df", "tbl", "data.frame"))



gg_color_hue <- function(n) {
  hues = seq(15, 375, length=n+1)
  hcl(h=hues, l=65, c=100)[1:n]
}

#make custom palette

mycols <- gg_color_hue(length(unique(fall3$Division)))
names(mycols) <- unique(fall3$Division)
mycols["RET"] <- 'sienna'
mycols["FiR/FG"] <- 'darkgoldenrod1'
mycols["RHA"] <- 'darkolivegreen3'


stick <- ggplot(fall3, aes(Community))+
  geom_bar(aes(fill = Division))+
 scale_color_manual(values=mycols)

我希望有一个带有适当颜色的条形图。此外，有些东西告诉我我做错了。因为我的图表显示一年级和高年级的事件数量相等，但事实并非如此。

乔恩·斯普林

mycols<- c("RET" = "sienna", "FiR/FG" = "darkgoldenrod1", "RHA" = "darkolivegreen3")
ggplot(fall3, aes(Community, fill = Division))+
  geom_bar() +
  scale_fill_manual(values=mycols)