たとえば，x <- c(5, 5, 7, 6, 5, 2, 4, 4, 4, 1, 6, 5, 1, 7, 5) のようなデータがある。このデータは 0～7までの値を取るはずだが，0 と 3 は出現しない。棒グラフを描くときに，barplot(table(x)) としたのでは，データの存在する，1, 2, 4, 5, 6, 7 に対応する棒しか描かれない。0 と 3 も描いて欲しいのにというときには，以下のようにする。levels 引数に，描き始めと描き終わりの数値を指定する。
barplot(table(factor(x, levels=0:7)))
実際のデータにある最小値と最大値だけをカバーする（あたりまえ）だけでよいなら，barplot(table(factor(x, levels=min(x):max(x)))) とすればよい。
その他，どこまでが決め打ちで，どこまでが汎用かを決める塩梅が難しい。
K? (2011-04-01 (金) 03:58:55)
こちらの論文（PDF） の図4のようなグラフはなんと呼ぶのでしょうか？ また、このグラフをRで作成するパッケージはありますでしょうか？
名前だけでも分かれば検索できるようになると思うので、どうぞよろしくお願いします。
聞く場所（相手）が違う。その文書を書いた人に聞けばすぐにわかることであろう。
それに，こんなところで聞いて回答を待っている間に，プログラムを書けばよい。
func <- function(x, factor=1, threshold=NA, color="gray")
{
nr <- nrow(x)
nc <- ncol(x)
if (is.na(threshold)) threshold <- mean(x)+sd(x)
threshold <- factor*sqrt(threshold)
x <- factor*sqrt(x[nr:1,])
theta <- seq(0, 2*pi, length=100)
cos.x <- cos(theta)
sin.y <- sin(theta)
plot(c(0, nc+1), c(0, nr+1), type="n", axes=FALSE, xlab="", ylab="", asp=1)
for (i in 1:nr) {
segments(0, i, nc+1, i)
for (j in 1:nc) {
polygon(j+x[i, j]*cos.x, i+x[i, j]*sin.y, col=color[j], lwd=(x[i, j] > threshold)+1)
}
}
text(0, 1:nr, labels=rownames(x), pos=2, xpd=TRUE)
text(1:nc, nr+1, labels=colnames(x), pos=3, xpd=TRUE)
}
# test data
nc <- 12
nr <- 26
set.seed(123456789)
x <- matrix(sample(20, nr*nc, replace=TRUE), nr, nc)
color <- c("white", "gray", "white", "gray", "gray", "white", "gray", "gray", "white", "gray", "gray", "white")
colnames(x) <- letters[1:nc]
rownames(x) <- sapply(1:nr, function(i) paste(rep(LETTERS[i], sample(1:10, 1)), collapse=""))
# factor:円の大きさの縮小率，threshold:その値より大きければ太線で描く，color:色
func(x, factor=0.06, threshold=18, color=color)
