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]]
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 en
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 en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
[[alternative HTML version deleted]]
Muchas gracias, lo probaré. Atentamente Martin Vidalon El mié., 21 ago. 2019 a las 11:08, Diego Martín (<ako.sistemas en gmail.com>) escribió:> 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 en 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 en r-project.org >> https://stat.ethz.ch/mailman/listinfo/r-help-es >> >[[alternative HTML version deleted]]