Muchas gracias, lo probaré. Atentamente Martin Vidalon
El mié., 21 ago. 2019 a las 11:08, Diego Martín (<[email protected]>) 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 (< > [email protected]>) 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 >> [email protected] >> https://stat.ethz.ch/mailman/listinfo/r-help-es >> > [[alternative HTML version deleted]] _______________________________________________ R-help-es mailing list [email protected] https://stat.ethz.ch/mailman/listinfo/r-help-es
