小编R. *_*Joe的帖子

我想获取scale_fill_grey函数用来填充由以下代码生成的条形图类别的十六进制代码:

library(ggplot2)

data <- data.frame(
  Meal = factor(c("Breakfast","Lunch","Dinner","Snacks"), 
  levels=c("Breakfast","Lunch","Dinner","Snacks")),
  Cost = c(9.75,13,19,10.20))

ggplot(data=data, aes(x=Meal, y=Cost, fill=Meal)) +
    geom_bar(stat="identity")  +
    scale_fill_grey(start=0.8, end=0.2)