私は 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"))
私が使用しているデータへのドロップボックスリンクは次のとおりです。