r - 条形图中的颜色

Question

我正在尝试使用 ggplot2 重新创建 Tableau 生成的图表。我已经走得足够远了，但我似乎不知道如何添加颜色(其强度与利润成正比)。

数据集为here

这是我想要复制的情节

https://www.dropbox.com/s/wcu780m72a85lvi/Screen%20Shot%202014-05-11%20at%209.05.49%20PM.png

这是我到目前为止的代码:

    ggplot(coffee,aes(x=Product,weight=Sales))
    +geom_bar()+facet_grid(Market~Product.Type,scales="free_x",space="free")
    +ylab("Sales")+theme(axis.text.x=element_text(angle=90))

Answer 1

使用聚合函数。

library(ggplot2)

coffee <- read.csv('CoffeeChain.csv')
agg <- aggregate(cbind(Profit, Sales) ~ Product+Market+Product.Type, data=coffee, FUN=sum)

ggplot(agg, aes(x=Product, weight=Sales, fill=Profit), stat="identity") +
  geom_bar() +
  scale_fill_gradientn(colours=c("#F37767", "#9FC08D", "#6BA862", "#2B893E", "#036227")) +
  facet_grid(Market~Product.Type, scales="free_x", space="free") +
    ylab("Sales") +
    theme(axis.text.x=element_text(angle=90))