1

我是 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"))

整理、删除背景、旋转文本等。

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"))

这是我正在使用的数据的保管箱链接：

4

0 回答 0