編集: ggplot バージョン 0.9.2 の更新
元の回答 (以下を参照) は、バージョン 0.9.0 または 0.9.1 で壊れました。以下は 0.9.2 で動作します
# Some toy data
df <- expand.grid(x = factor(seq(1:5)), y = factor(seq(1:5)), KEEP.OUT.ATTRS = FALSE)
df$Count = seq(1:25)
# A plot
library(ggplot2)
p = ggplot(data = df, aes( x = x, y = y, label = Count, size = Count)) +
geom_point(colour = NA) +
geom_text(show.legend = FALSE) +
guides(size = guide_legend(override.aes = list(colour = "black", shape = utf8ToInt("N")))) +
scale_size(range = c(2, 10))
p
元の回答
私自身の質問に回答し、上記の@kohskeのコメントにあるコードのスニペットを使用します:
# Some toy data
df <- expand.grid(x = factor(seq(1:5)), y = factor(seq(1:5)), KEEP.OUT.ATTRS = FALSE)
df$Count = seq(1:25)
# A plot
library(ggplot2)
p = ggplot(data = df, aes( x = x, y = y, label = Count, size = Count)) +
geom_text() +
scale_size(range = c(2, 10))
p
library(grid)
grid.gedit("^key-[-0-9]+$", label = "N")