Abaixo geramos 1000 valores de uma variável uniforme no intervalo \([0,1]\) e depois plotamos um gráfico de barras a partir dos valores obtidos.

uniforme <- runif(1000)
#uniforme
#boxplot(uniforme)
hist(uniforme)

No próximo exemplo geramos 1000 valores para uma v.a. Exponencial de média 5 (5 eventos por unidade de tempo, ou seja, taxa = 0,2) para depois plotar o boxplot e o histograma.

exponencial <- rexp(1000, r=0.2)
boxplot(exponencial)

hist(exponencial)

mean(exponencial)
[1] 4.967498

Por último geraremos 1000 valores para uma distribuição Normal de média 0 e desvio padrão 1 para em seguida plotar um histograma, um box plot e um QQplot.

x <- rnorm(1000, 500, 15.81)
y <- rbinom(1000, 1000, 0.5)
qqplot(x, y, plot.it = TRUE, xlab = deparse(substitute(x)), ylab = deparse(substitute(y)))

boxplot(x, y)

LS0tDQp0aXRsZTogIkdlcmFuZG8gVmFyacOhdmVpcyBBbGVhdMOzcmlhcyINCnN1YnRpdGxlOiAiSU1FLVVTUCAtIE1BRTM5OSAtIHByb2YuIEbDoWJpbyBQcmF0ZXMgTWFjaGFkbyINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCkFiYWl4byBnZXJhbW9zIDEwMDAgdmFsb3JlcyBkZSB1bWEgdmFyacOhdmVsIHVuaWZvcm1lIG5vIGludGVydmFsbyAkWzAsMV0kIA0KZSBkZXBvaXMgcGxvdGFtb3MgdW0gZ3LDoWZpY28gZGUgYmFycmFzIGEgcGFydGlyIGRvcyB2YWxvcmVzIG9idGlkb3MuDQoNCmBgYHtSfQ0KdW5pZm9ybWUgPC0gcnVuaWYoMTAwMCkNCiN1bmlmb3JtZQ0KI2JveHBsb3QodW5pZm9ybWUpDQpoaXN0KHVuaWZvcm1lKQ0KYGBgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCg0KTm8gcHLDs3hpbW8gZXhlbXBsbyBnZXJhbW9zIDEwMDAgdmFsb3JlcyBwYXJhIHVtYSB2LmEuIEV4cG9uZW5jaWFsIA0KZGUgbcOpZGlhIDUgKDUgZXZlbnRvcyBwb3IgdW5pZGFkZSBkZSB0ZW1wbywgb3Ugc2VqYSwgdGF4YSA9IDAsMikgcGFyYSBkZXBvaXMgcGxvdGFyIG8gYm94cGxvdCBlIG8gaGlzdG9ncmFtYS4NCg0KYGBge1J9DQpleHBvbmVuY2lhbCA8LSByZXhwKDEwMDAsIHI9MC4yKQ0KYm94cGxvdChleHBvbmVuY2lhbCkNCmhpc3QoZXhwb25lbmNpYWwpDQptZWFuKGV4cG9uZW5jaWFsKQ0KYGBgICAgICAgIA0KUG9yIMO6bHRpbW8gZ2VyYXJlbW9zIDEwMDAgdmFsb3JlcyBwYXJhIHVtYSBkaXN0cmlidWnDp8OjbyBOb3JtYWwgZGUgbcOpZGlhDQowIGUgZGVzdmlvIHBhZHLDo28gMSBwYXJhIGVtIHNlZ3VpZGEgcGxvdGFyIHVtIGhpc3RvZ3JhbWEsIHVtIGJveCBwbG90IGUgdW0gUVFwbG90Lg0KDQoNCmBgYHtSfQ0KeCA8LSBybm9ybSgxMDAwLCA1MDAsIDE1LjgxKQ0KeSA8LSByYmlub20oMTAwMCwgMTAwMCwgMC41KQ0KcXFwbG90KHgsIHksIHBsb3QuaXQgPSBUUlVFLCB4bGFiID0gZGVwYXJzZShzdWJzdGl0dXRlKHgpKSwgeWxhYiA9IGRlcGFyc2Uoc3Vic3RpdHV0ZSh5KSkpDQpib3hwbG90KHgsIHkpDQpgYGANCg==