ggplot2
高度な柔軟性を可能にするので、私はこれに行きます。特にgeom_tile
重宝します。theme(panel.grid.major = element_blank()) +
実際にパネルの線が必要な場合は、線と 線をコメントアウトtheme(panel.grid.minor = element_blank()) +
できます。もちろん、色も指定できます。各セルのテキストはオプションです。geom_text
必要がない場合は、呼び出しをコメントアウトしてください。プロット ウィンドウのサイズを変更するだけで、プロットのサイズ (行と列) を制御できることに注意してください。ファイルに出力する場合は、引数とpng()
を指定します。width
height
library(ggplot2)
library(reshape)
library(scales)
set.seed(1234)
num.els <- 5
mydf <- data.frame(category1 = rep(LETTERS[1:num.els], 1, each = num.els),
category2 = rep(1:num.els, num.els),
value = runif(num.els^2, 0, 100))
p <- ggplot(mydf, aes(x = category1,
y = category2,
fill = value)) +
geom_tile() +
geom_text(label = round(mydf$value, 2), size = 4, colour = "black") +
scale_fill_gradient2(low = "blue", high = "red",
limits = c(min(mydf$value), max(mydf$value)),
midpoint = median(mydf$value)) +
scale_x_discrete(expand = c(0,0)) +
scale_y_reverse() +
theme(panel.grid.minor = element_blank()) +
theme(panel.grid.major = element_blank()) +
theme(axis.ticks = element_blank()) +
theme(panel.background = element_rect(fill = "transparent"))+
theme(legend.position = "none") +
theme()
print(p)
出力:
そしてサイズ変更: