[R-es] qcc con par

[Diego Martín]

Saludos:

        No conozco la librería qcc, así que cabe que pudiera estar errando
en la interpretación de lo que buscas, estimado Martin. En todo caso déjame
que te haga la siguiente sugerencia. A mí me ha ido, pero insisto, no sé si
te valdrá.

library(qcc)
n <- c(rep(50,5), rep(100,5), rep(25, 5))
x <- rbinom(length(n), n, 0.2)

g1 <- qcc(x, type="p", size=n, plot = FALSE)
g2 <- qcc(x, type="np", size=n, plot = FALSE)

vpar <- par(no.readonly = TRUE)
par(mfrow=c(1,2), mar=c(5,5,3,0))
plot(g1, title="Gráfico 1", ylim=c(0,0.5),
     add.stats=FALSE, restore.par=FALSE)
par("mar"=c(5,0,3,3), yaxt="n")
plot(g2, title="Gráfico 2", add.stats=FALSE, ylim=c(0,0.5))
par(vpar)


        Afectuosamente.

El mar., 20 ago. 2019 a las 21:48, Martin Vidalon (<martinvidalon using gmail.com>)
escribió:

> Hola colegas, por favor si me indican que estoy haciendo mal.
> Estoy tratando de usar el paquete QCC y colocar mas de gráfico de control
> en una sola ventana usando función "par" con "qcc" para presentar varios
> gráficos en la misma ventana.
> He probado pero no funciona, solo muestra un gráfico miren el código
>
> # set unequal sample sizes
> n <- c(rep(50,5), rep(100,5), rep(25, 5))
> # generate randomly the number of successes
> x <- rbinom(length(n), n, 0.2)
> par(mfrow=c(1,2))
> # plot the control chart with variable limits
> qcc(x, type="p", size=n)
> # plot the standardized control chart
> qcc(x, type="np", size=n)
>
> Gracias si alguien me ayuda
> Atentamente
>
> Martin Vidalon
>
>         [[alternative HTML version deleted]]
>
> _______________________________________________
> R-help-es mailing list
> R-help-es using r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

	[[alternative HTML version deleted]]