r - 使用ggplot绘图时如何抑制警告

Question

将缺失值传递给 ggplot 时，它非常友好，并警告我们它们存在。这在交互式会话中是可以接受的，但是在编写报告时，输出不会被警告弄得一团糟，尤其是在警告很多的情况下。下面的示例缺少一个标签，这会产生警告。

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 对象时如何（完全）抑制警告？

Answer 1

您需要suppressWarnings()围绕print()调用，而不是创建ggplot()对象：

R> suppressWarnings(print(
+ ggplot(mydf, aes(x = species)) + 
+    stat_bin() + 
+    geom_text(data = labs, aes(x = species, y = value, 
+                               label = value, vjust = -0.5)) +
+    facet_wrap(~ lvl)))
R> 

将最终绘图分配给对象然后print().

plt <- ggplot(mydf, aes(x = species)) + 
   stat_bin() + 
   geom_text(data = labs, aes(x = species, y = value,
                              label = value, vjust = -0.5)) +
   facet_wrap(~ lvl)


R> suppressWarnings(print(plt))
R> 

该行为的原因是警告仅在实际绘制绘图时生成，而不是在创建表示绘图的对象时生成。R 将在交互使用期间自动打印，所以虽然

R> suppressWarnings(plt)
Warning message:
Removed 1 rows containing missing values (geom_text).

不起作用，因为实际上，您正在调用print(suppressWarnings(plt))，而

R> suppressWarnings(print(plt))
R>

确实有效，因为可以捕获呼叫suppressWarnings()引起的警告。print()

Answer 2

更有针对性的逐个情节方法是添加na.rm=TRUE到您的情节调用中。例如：

  ggplot(mydf, aes(x = species)) + 
      stat_bin() + 
      geom_text(data = labs, aes(x = species, y = value, 
                                 label = value, vjust = -0.5), na.rm=TRUE) +
      facet_wrap(~ lvl)

Answer 3

在您的问题中，您提到了报告编写，因此设置全局警告级别可能会更好：

options(warn=-1)

默认为：

options(warn=0)