ss.study.ca:如何存储图形和如何抑制警告

Question

两个问题：

1. ，我喜欢存储和处理ss.study.ca()的输出，就像我对ggplot所做的那样：

p1 <.p2 <- ss.study.ca(.)多图(p1，p2，rows = 2) #这个函数在1 pageHowever p2上放置了2个图，似乎想要一个页面。

• 第二个问题是ss.study.ca()返回一个NULL和一个警告消息，如下所示：

1:在ss.study.ca(df_temp$Value，LSL = (df_temp$LimitLo)1，USL = (df_temp$LimitHi)1 )中，正态检验/s失败

当我在循环中使用ss.study.ca时，我喜欢同时抑制这两个消息。

任何用于解决方案的指针都将受到赞赏。

Answer 1

谢谢你的回应。suppressWarnings()调用确实同时删除了警告和NULL。

虽然我确认了所提供的示例grid.arrange((....))工作，但在我的代码中，只有ggplot()不同，我得到了下面的错误描述：

Error in grabDL(warn, wrap, wrap.grobs, ...) : 
  'list' object cannot be coerced to type 'double'

这是由ggplot()的内容引起的吗？

Answer 2

谢谢你的问题吕克。

1. ss.study.ca()不生成ggplot，而是生成网格图(其中包含ggplot)。尽管如此，由于ggplot在内部也使用网格系统，所以可以将SixSigma和ggplot2绘图与网格和gridExtra包合并。这是一个对我有用的可重复的例子：

    library(SixSigma)
    library(gridExtra)
    library(grid)
    library(ggplot2)
    grid.arrange(grid.grabExpr(
      ss.study.ca(ss.data.ca$Volume, rnorm(40, 753, 3), 
                  LSL = 740, USL = 760, T = 750, alpha = 0.05, 
                  f.sub = "Winery Project")),
      ggplot(data.frame(x=rnorm(100)), aes(x)) + geom_histogram()
    )

1. 您可以在一个循环中抑制警告，该循环将表达式封装在suppressWarnings函数中。这是一个简单的例子，可以有更多的表达式：

    suppressWarnings({
      ss.study.ca(rexp(40, 0.01),
                  LSL = 740, USL = 760, T = 750, alpha = 0.05, 
                  f.sub = "Winery Project")
    })

我不确定空消息，如果它不是用suppressWarnings函数修复的，也许reprex会有所帮助。