
Introducción
A continuación, se explorarán varios conceptos fundamentales del
lenguaje de programación R, aplicados al análisis de datos y
representación gráfica. A través de ejemplos prácticos, se demostrará la
asignación de variables, se realizarán operaciones aritméticas, se
aplicarán funciones matemáticas, y se trabajará con constantes y
vectores. Además, se visualizarán los datos mediante gráficas
sencillas.
Asignación de variables
x <- 3
y <- 2
Impresión de resultados
x
## [1] 3
y
## [1] 2
Operaciones Aritméticas
suma <- x + y
suma
## [1] 5
resta <- x - y
resta
## [1] 1
multiplicacion <- x*y
multiplicacion
## [1] 6
division <- x/y
division
## [1] 1.5
division_entera <- x %/% y
division_entera
## [1] 1
residuo <- x%%y
residuo
## [1] 1
potencia <- x ^ 2
potencia
## [1] 9
Funciones matematicas
raiz_cuadrada <- sqrt(x)
raiz_cuadrada
## [1] 1.732051
raiz_cubica <- x ^ (1/3)
raiz_cubica
## [1] 1.44225
exponencial1 <- exp (1)
exponencial1
## [1] 2.718282
absoluto <- abs(x)
absoluto
## [1] 3
signo <-sign(x)
signo
## [1] 1
redondeo_arriba <- ceiling (x/y)
redondeo_arriba
## [1] 2
redondeo_abajo <- floor (x/y)
redondeo_abajo
## [1] 1
truncar <- trunc(x/y)
truncar
## [1] 1
Constantes
pi
## [1] 3.141593
radio <-5
area_circulo <- pi * radio **2
area_circulo
## [1] 78.53982
Vectores
a <- c(1,2,3,4,5)
a
## [1] 1 2 3 4 5
nombre <- c("Jose", "Ana", "Juan")
nombre
## [1] "Jose" "Ana" "Juan"
longitud <- length(a)
longitud
## [1] 5
longitud_nombre <- length (nombre)
longitud_nombre
## [1] 3
promedio <- mean(a)
promedio
## [1] 3
resumen <- summary(a)
resumen
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1 2 3 3 4 5
orden_ascendente <- sort(a)
orden_ascendente
## [1] 1 2 3 4 5
orden_descentente <- sort(a,decreasing=TRUE)
orden_descentente
## [1] 5 4 3 2 1
?sort
b<- c(1,2,3,4,5)
b
## [1] 1 2 3 4 5
suma_vectores <- a+b
suma_vectores
## [1] 2 4 6 8 10
Grafica
plot(a, b, main="Ventas Totales", xlab="Semana", ylab="Millones de dólares")

Ejercicio 1 IMC
# Definición de vectores con valores numéricos
nombre <- c("Miguel", "Karla", "Valeria", "Maria", "David")
peso <- c(55, 53, 56, 59, 56)
altura <- c(1.66, 1.76, 1.64, 1.61, 1.62)
# Creación de un data frame con los vectores anteriores
df <- data.frame(nombre, peso, altura)
# Cálculo del IMC y adición al data frame
# IMC = peso (kg) / altura (m)^2
df$IMC <- peso / (altura * altura)
# Impresión del data frame con la columna IMC añadida
df
## nombre peso altura IMC
## 1 Miguel 55 1.66 19.95936
## 2 Karla 53 1.76 17.11002
## 3 Valeria 56 1.64 20.82094
## 4 Maria 59 1.61 22.76147
## 5 David 56 1.62 21.33821
# Resumen estadístico del data frame
summary(df)
## nombre peso altura IMC
## Length:5 Min. :53.0 Min. :1.610 Min. :17.11
## Class :character 1st Qu.:55.0 1st Qu.:1.620 1st Qu.:19.96
## Mode :character Median :56.0 Median :1.640 Median :20.82
## Mean :55.8 Mean :1.658 Mean :20.40
## 3rd Qu.:56.0 3rd Qu.:1.660 3rd Qu.:21.34
## Max. :59.0 Max. :1.760 Max. :22.76
# Los valores del Índice de Masa Corporal varían de 17.11 a 22.76. La mediana y la media del IMC (20.82 y 20.40, respectivamente) sugieren que, en general, el grupo cae dentro de un rango de IMC considerado como normal según los estándares de la Organización Mundial de la Salud (OMS), que define un IMC normal entre 18.5 y 24.9.
plot(altura, peso, main="Altura y Peso", xlab= "Altura", ylab="Peso", col="red")

Conclusiones
R es un lenguaje de programación útil para realizar
cálculos, principalmente estadísticos, y forma parte de las herramientas
del Big Data.
R Studio es el entorno en donde se puede programar
R, y gracias a que también aqui se puede programar
python, en julio del 2023 se anunció su nuevo nombre:
Posit.
En esta introducción, lo que 1lama la atención es: la constante
aparición de alertas o errores en el programa, los cuales encontramos
que principalmente se deben a que la versión de R no es
la más reciente, a la falta de instalación de paquetes o 1lamar a las
librerías, problemas de escritura (typost) y los muchos
argumentos que tienen las funciones.
Si desde un inicio programamos de forma estructurada, disciplinada y
meticulosa, podemos preveer muchas de las alertas o errores y así
obtendremos los muchos beneficios de la programación en R, como
los pronósticos de predicción.
A través de ejercicios prácticos, como el cálculo del Índice de Masa
Corporal (IMC) y la generación de gráficos, se demuestra la eficacia de
R para manipular y representar datos de manera
eficiente. Estos ejemplos prácticos no solo subrayan la facilidad con la
que R maneja análisis de datos complejos, sino que
también destacan cómo provee insights valiosos de forma accesible.
LS0tDQp0aXRsZTogIkNvbWFuZG9zIELDoXNpY29zIg0KYXV0aG9yOiAiQWxtYSBTYW50aWFnbyAtIEEwMDgzNjYzNiINCmRhdGU6ICIyMDI0LTAyLTE1Ig0Kb3V0cHV0OiANCiBodG1sX2RvY3VtZW50Og0KICAgdG9jOiBUUlVFDQogICB0b2NfZmxvYXQ6IFRSVUUNCiAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCiAgIA0KLS0tDQohW10oRDpcXERlc2Nhcmdhc1xcTUFURVMuanBnKQ0KDQojIEludHJvZHVjY2nDs24gDQpBIGNvbnRpbnVhY2nDs24sIHNlIGV4cGxvcmFyw6FuIHZhcmlvcyBjb25jZXB0b3MgZnVuZGFtZW50YWxlcyBkZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBSLCBhcGxpY2Fkb3MgYWwgYW7DoWxpc2lzIGRlIGRhdG9zIHkgcmVwcmVzZW50YWNpw7NuIGdyw6FmaWNhLiBBIHRyYXbDqXMgZGUgZWplbXBsb3MgcHLDoWN0aWNvcywgc2UgZGVtb3N0cmFyw6EgbGEgYXNpZ25hY2nDs24gZGUgdmFyaWFibGVzLCBzZSByZWFsaXphcsOhbiBvcGVyYWNpb25lcyBhcml0bcOpdGljYXMsIHNlIGFwbGljYXLDoW4gZnVuY2lvbmVzIG1hdGVtw6F0aWNhcywgeSBzZSB0cmFiYWphcsOhIGNvbiBjb25zdGFudGVzIHkgdmVjdG9yZXMuIEFkZW3DoXMsIHNlIHZpc3VhbGl6YXLDoW4gbG9zIGRhdG9zIG1lZGlhbnRlIGdyw6FmaWNhcyBzZW5jaWxsYXMuDQoNCiMgQXNpZ25hY2nDs24gZGUgdmFyaWFibGVzDQpgYGB7cn0NCnggPC0gMw0KeSA8LSAyDQpgYGANCg0KIyBJbXByZXNpw7NuIGRlIHJlc3VsdGFkb3MNCmBgYHtyfQ0KeA0KeQ0KYGBgICAgICAgIA0KDQojIE9wZXJhY2lvbmVzIEFyaXRtw6l0aWNhcw0KYGBge3J9DQpzdW1hIDwtIHggKyB5DQpzdW1hIA0KDQpyZXN0YSA8LSB4IC0geSANCnJlc3RhDQoNCm11bHRpcGxpY2FjaW9uIDwtIHgqeQ0KbXVsdGlwbGljYWNpb24NCg0KZGl2aXNpb24gPC0geC95DQpkaXZpc2lvbiANCg0KZGl2aXNpb25fZW50ZXJhICA8LSB4ICUvJSB5DQpkaXZpc2lvbl9lbnRlcmENCg0KcmVzaWR1byA8LSB4JSV5DQpyZXNpZHVvDQoNCnBvdGVuY2lhIDwtIHggXiAyDQpwb3RlbmNpYQ0KYGBgDQoNCiMgRnVuY2lvbmVzIG1hdGVtYXRpY2FzDQpgYGB7cn0NCnJhaXpfY3VhZHJhZGEgPC0gc3FydCh4KQ0KcmFpel9jdWFkcmFkYQ0KDQpyYWl6X2N1YmljYSA8LSB4IF4gICgxLzMpDQpyYWl6X2N1YmljYQ0KDQpleHBvbmVuY2lhbDEgPC0gZXhwICgxKQ0KZXhwb25lbmNpYWwxDQoNCmFic29sdXRvIDwtIGFicyh4KQ0KYWJzb2x1dG8NCg0Kc2lnbm8gPC1zaWduKHgpDQpzaWdubw0KDQpyZWRvbmRlb19hcnJpYmEgPC0gY2VpbGluZyAoeC95KQ0KcmVkb25kZW9fYXJyaWJhDQoNCnJlZG9uZGVvX2FiYWpvIDwtIGZsb29yICh4L3kpDQpyZWRvbmRlb19hYmFqbw0KDQp0cnVuY2FyICA8LSB0cnVuYyh4L3kpDQp0cnVuY2FyDQpgYGANCg0KIyBDb25zdGFudGVzDQpgYGB7cn0NCnBpDQpyYWRpbyA8LTUgDQphcmVhX2NpcmN1bG8gPC0gcGkgKiByYWRpbyAqKjINCmFyZWFfY2lyY3Vsbw0KYGBgDQoNCiMgVmVjdG9yZXMNCmBgYHtyfQ0KYSA8LSBjKDEsMiwzLDQsNSkNCmENCg0Kbm9tYnJlIDwtIGMoIkpvc2UiLCAiQW5hIiwgIkp1YW4iKQ0Kbm9tYnJlDQoNCmxvbmdpdHVkIDwtIGxlbmd0aChhKQ0KbG9uZ2l0dWQNCg0KbG9uZ2l0dWRfbm9tYnJlIDwtIGxlbmd0aCAobm9tYnJlKQ0KbG9uZ2l0dWRfbm9tYnJlDQoNCnByb21lZGlvIDwtIG1lYW4oYSkNCnByb21lZGlvIA0KDQpyZXN1bWVuIDwtIHN1bW1hcnkoYSkNCnJlc3VtZW4NCm9yZGVuX2FzY2VuZGVudGUgPC0gc29ydChhKQ0Kb3JkZW5fYXNjZW5kZW50ZQ0KDQpvcmRlbl9kZXNjZW50ZW50ZSA8LSBzb3J0KGEsZGVjcmVhc2luZz1UUlVFKQ0Kb3JkZW5fZGVzY2VudGVudGUNCg0KP3NvcnQNCg0KYjwtIGMoMSwyLDMsNCw1KQ0KYg0KDQpzdW1hX3ZlY3RvcmVzIDwtIGErYiANCnN1bWFfdmVjdG9yZXMNCmBgYA0KDQojIEdyYWZpY2ENCmBgYHtyfQ0KcGxvdChhLCBiLCBtYWluPSJWZW50YXMgVG90YWxlcyIsIHhsYWI9IlNlbWFuYSIsIHlsYWI9Ik1pbGxvbmVzIGRlIGTDs2xhcmVzIikNCmBgYA0KDQojIEVqZXJjaWNpbyAxIElNQw0KDQpgYGB7cn0NCiMgRGVmaW5pY2nDs24gZGUgdmVjdG9yZXMgY29uIHZhbG9yZXMgbnVtw6lyaWNvcw0Kbm9tYnJlIDwtIGMoIk1pZ3VlbCIsICJLYXJsYSIsICJWYWxlcmlhIiwgIk1hcmlhIiwgIkRhdmlkIikNCnBlc28gPC0gYyg1NSwgNTMsIDU2LCA1OSwgNTYpIA0KYWx0dXJhIDwtIGMoMS42NiwgMS43NiwgMS42NCwgMS42MSwgMS42MikgDQoNCiMgQ3JlYWNpw7NuIGRlIHVuIGRhdGEgZnJhbWUgY29uIGxvcyB2ZWN0b3JlcyBhbnRlcmlvcmVzDQpkZiA8LSBkYXRhLmZyYW1lKG5vbWJyZSwgcGVzbywgYWx0dXJhKQ0KDQojIEPDoWxjdWxvIGRlbCBJTUMgeSBhZGljacOzbiBhbCBkYXRhIGZyYW1lDQojIElNQyA9IHBlc28gKGtnKSAvIGFsdHVyYSAobSleMg0KZGYkSU1DIDwtIHBlc28gLyAoYWx0dXJhICogYWx0dXJhKQ0KDQojIEltcHJlc2nDs24gZGVsIGRhdGEgZnJhbWUgY29uIGxhIGNvbHVtbmEgSU1DIGHDsWFkaWRhDQpkZg0KYGBgDQoNCmBgYHtyfQ0KIyBSZXN1bWVuIGVzdGFkw61zdGljbyBkZWwgZGF0YSBmcmFtZQ0Kc3VtbWFyeShkZikNCg0KIyBMb3MgdmFsb3JlcyBkZWwgw41uZGljZSBkZSBNYXNhIENvcnBvcmFsIHZhcsOtYW4gZGUgMTcuMTEgYSAyMi43Ni4gTGEgbWVkaWFuYSB5IGxhIG1lZGlhIGRlbCBJTUMgKDIwLjgyIHkgMjAuNDAsIHJlc3BlY3RpdmFtZW50ZSkgc3VnaWVyZW4gcXVlLCBlbiBnZW5lcmFsLCBlbCBncnVwbyBjYWUgZGVudHJvIGRlIHVuIHJhbmdvIGRlIElNQyBjb25zaWRlcmFkbyBjb21vIG5vcm1hbCBzZWfDum4gbG9zIGVzdMOhbmRhcmVzIGRlIGxhIE9yZ2FuaXphY2nDs24gTXVuZGlhbCBkZSBsYSBTYWx1ZCAoT01TKSwgcXVlIGRlZmluZSB1biBJTUMgbm9ybWFsIGVudHJlIDE4LjUgeSAyNC45Lg0KDQpwbG90KGFsdHVyYSwgcGVzbywgbWFpbj0iQWx0dXJhIHkgUGVzbyIsIHhsYWI9ICJBbHR1cmEiLCB5bGFiPSJQZXNvIiwgY29sPSJyZWQiKQ0KDQpgYGANCg0KIyBDb25jbHVzaW9uZXMgDQoqUiogZXMgdW4gbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiDDunRpbCBwYXJhIHJlYWxpemFyIGPDoWxjdWxvcywgIHByaW5jaXBhbG1lbnRlIGVzdGFkw61zdGljb3MsIHkgZm9ybWEgcGFydGUgZGUgbGFzIGhlcnJhbWllbnRhcyBkZWwgKkJpZyBEYXRhKi4NCg0KKlIgU3R1ZGlvKiBlcyBlbCBlbnRvcm5vIGVuIGRvbmRlIHNlIHB1ZWRlIHByb2dyYW1hciAqKlIqKiwgeSBncmFjaWFzIGEgcXVlIHRhbWJpw6luIGFxdWkgc2UgcHVlZGUgcHJvZ3JhbWFyICoqcHl0aG9uKiosIGVuIGp1bGlvIGRlbCAyMDIzIHNlIGFudW5jacOzIHN1IG51ZXZvIG5vbWJyZTogKipQb3NpdCoqLg0KDQpFbiBlc3RhIGludHJvZHVjY2nDs24sIGxvIHF1ZSAxbGFtYSBsYSBhdGVuY2nDs24gZXM6IGxhIGNvbnN0YW50ZSBhcGFyaWNpw7NuIGRlIGFsZXJ0YXMgbyBlcnJvcmVzIGVuIGVsIHByb2dyYW1hLCBsb3MgY3VhbGVzIGVuY29udHJhbW9zIHF1ZSBwcmluY2lwYWxtZW50ZSBzZSBkZWJlbiBhIHF1ZSBsYSB2ZXJzacOzbiBkZSAqKlIqKiBubyBlcyBsYSBtw6FzIHJlY2llbnRlLCBhIGxhIGZhbHRhIGRlIGluc3RhbGFjacOzbiBkZSBwYXF1ZXRlcyBvIDFsYW1hciBhIGxhcyBsaWJyZXLDrWFzLCBwcm9ibGVtYXMgZGUgZXNjcml0dXJhICgqdHlwb3N0KikgeSBsb3MgbXVjaG9zIGFyZ3VtZW50b3MgcXVlIHRpZW5lbiBsYXMgZnVuY2lvbmVzLg0KDQpTaSBkZXNkZSB1biBpbmljaW8gcHJvZ3JhbWFtb3MgZGUgZm9ybWEgZXN0cnVjdHVyYWRhLCBkaXNjaXBsaW5hZGEgeSBtZXRpY3Vsb3NhLCBwb2RlbW9zIHByZXZlZXIgbXVjaGFzIGRlIGxhcyBhbGVydGFzIG8gZXJyb3JlcyB5IGFzw60gb2J0ZW5kcmVtb3MgbG9zIG11Y2hvcyBiZW5lZmljaW9zIGRlIGxhIHByb2dyYW1hY2nDs24gZW4gKlIqLCBjb21vIGxvcyBwcm9uw7NzdGljb3MgZGUgcHJlZGljY2nDs24uDQoNCkEgdHJhdsOpcyBkZSBlamVyY2ljaW9zIHByw6FjdGljb3MsIGNvbW8gZWwgY8OhbGN1bG8gZGVsIMONbmRpY2UgZGUgTWFzYSBDb3Jwb3JhbCAoSU1DKSB5IGxhIGdlbmVyYWNpw7NuIGRlIGdyw6FmaWNvcywgc2UgZGVtdWVzdHJhIGxhIGVmaWNhY2lhIGRlICoqUioqIHBhcmEgbWFuaXB1bGFyIHkgcmVwcmVzZW50YXIgZGF0b3MgZGUgbWFuZXJhIGVmaWNpZW50ZS4gRXN0b3MgZWplbXBsb3MgcHLDoWN0aWNvcyBubyBzb2xvIHN1YnJheWFuIGxhIGZhY2lsaWRhZCBjb24gbGEgcXVlICoqUioqIG1hbmVqYSBhbsOhbGlzaXMgZGUgZGF0b3MgY29tcGxlam9zLCBzaW5vIHF1ZSB0YW1iacOpbiBkZXN0YWNhbiBjw7NtbyBwcm92ZWUgaW5zaWdodHMgdmFsaW9zb3MgZGUgZm9ybWEgYWNjZXNpYmxlLg==