欠損値を ggplot に渡すと、非常に親切で、存在することを警告します。これは対話型セッションでは許容されますが、レポートを作成するときに、特に警告が多数ある場合は、出力が警告で雑然とすることはありません。以下の例では、1 つのラベルが欠落しており、警告が生成されます。
library(ggplot2)
library(reshape2)
mydf <- data.frame(
species = sample(c("A", "B"), 100, replace = TRUE),
lvl = factor(sample(1:3, 100, replace = TRUE))
)
labs <- melt(with(mydf, table(species, lvl)))
names(labs) <- c("species", "lvl", "value")
labs[3, "value"] <- NA
ggplot(mydf, aes(x = species)) +
stat_bin() +
geom_text(data = labs, aes(x = species, y = value, label = value, vjust = -0.5)) +
facet_wrap(~ lvl)
最後の式をラップsuppressWarnings
すると、警告がいくつあったかの要約が得られます。議論のために、これは受け入れられないとしましょう (しかし、実際には非常に正直で正しいです)。ggplot2オブジェクトを印刷するときに警告を(完全に)抑制する方法は?