我有一个数据集,记录了三座建筑物的能源使用情况。我有一个融化的数据框,可以从钻石组中模仿出来:
data <- melt(diamonds[,c('depth','table','cut','color')],id=c('cut','color'))
本质上,我有来自三个不同建筑物(7 个“颜色”因素)的每个月(“切割”)的供暖(“深度”)和制冷(“表格”)数据。我想在每个月的条形图中并排绘制三个建筑物(7 个“颜色”因素)(“剪切”)。
我希望代表冷却(“桌子”)或加热(“深度”)的条形根据建筑物(“颜色”因素)改变它们的阴影,同时保持按月分组(“切割”)。这是可视化钻石数据的一种不好的方法,但对于建筑物来说应该很有效,因为它们的加热和冷却月份通常不会重叠。到目前为止,我有:
p <- ggplot(data,
aes(color,value,group=cut))
p <- p + geom_bar(stat = 'identity',
position = 'dodge',
aes(fill = variable))
print(p)
我尝试使用 scale_fill_manual,但想不出一个有效的策略:
colours <- c('#0000FF', '#0033FF', '#0066FF', '#FF0000', '#FF3300', '#FF6600')
p <- p + scale_fill_manual(values = colours,
group = data$variable)