Question

我是R的新手，我正在尝试将按公司细分的数据和按年分类的大学项目进行可视化。我想尝试在下面创建的热图的顶部和右侧添加条形（如条形图条），以提供比较公司之间（右y轴）和之间的计数数据的直接方法整个集团的年份（前x轴）。

我知道我可以合并Illustrator中的图像或出版前的东西，但我知道该软件能够将图形加在一起（我认为在莱迪思中？）我想用R和ggplot来提高我的技能。

理想情况下，我还想学习：

1）添加叠加在顶部的每个图块的值

geom_text(aes(fill = trialx.m$value, label = trialx.m$value)

对我来说似乎不起作用？

2）移动图例，使其不受条形图

的影响

3）调整图例大小和比例（以考虑数据缩放）

4）使用条形尺寸

垂直排列热图

我知道这很多，但我会感谢任何部分的帮助或建议。

我目前正在做的事情：

重新缩放

library(ggplot2)
trialx.m <- melt(trialx)
trialx.m <- ddply(trialx.m, .(variable), transform, rescale = scale(value))

绘图

(p <- ggplot(trialx.m, aes(variable, Company)) + 
    geom_tile(aes(fill = rescale), colour = "white") + 
    scale_fill_gradient(low = "ghostwhite", high = "darkblue"))

Neaten，删除背景，旋转文字等。

p + theme_grey(base_size = base_size) + labs(x = "", y = "") + 
    scale_x_discrete(expand = c(0, 0)) + scale_y_discrete(expand = c(0, 0)) +
    opts(legend.position = "", axis.ticks = theme_blank(), 
        axis.text.x = theme_text(size = base_size * 0.8, angle = 90, hjust = 0, 
        colour = "grey50"))

Here is a dropbox link我正在使用的数据：

Ggplot2：热图+条形图组合和调整

0 个答案: