如何抑制geom_smooth消息？

Question

R> suppressMessages(qplot(1:10, 1:10, geom=c('point', 'smooth')))
`geom_smooth()` using method = 'loess' and formula 'y ~ x'
R> suppressWarnings(qplot(1:10, 1:10, geom=c('point', 'smooth')))
`geom_smooth()` using method = 'loess' and formula 'y ~ x'

我得到了上面的信息，我无法抑制。如何传递这条信息？(我必须使用qplot()而不是ggplot())。

Answer 1

问题是消息来自于打印/呈现，而这并不发生在qplot内部。

抑制它的print，而不是qplot调用。

gg <- qplot(1:10, 1:10, geom=c('point', 'smooth'))
gg
# `geom_smooth()` using method = 'loess' and formula 'y ~ x'
suppressMessages(print(gg))
### printed, no message

将图形对象呈现到图形画布/设备时，在打印图形对象时发生，而不是在生成图形对象时发生。请注意，使用上面的第一行(gg <- ...)，这不会产生数据的图像/图形，因此R的图形窗格不会被更新。这种情况发生在命令行上有一个“裸”qplot(..)或ggplot(..) + ... (返回一个grob )时，而在交互R会话中的其他所有内容中，总是打印一些放在顶层的内容(使用某种print.*方法)。

赋值操作不会这样做，因为默认操作要么是字面上的，要么是在invisible(..)中有效地包装赋值(它抢占对象的print-ing )。