A lo largo de este proyecto, se evidenciarán las generalidades del lenguaje de programación R a partir de RStudio.
Temas a abordar:
1. ¿Qué es R y RStudio?
2. Uso de librerías, instalación e importación
3. Importación de datos desde Excel
4. LaTex en RMarkdown
5. Operaciones básicas
6. Estadística descriptiva
7. Gráficos

1. R y RStudio

R: R es un lenguaje de programación y un entorno de software utilizado para el análisis estadístico y la generación de gráficos. Fue creado por Ross Ihaka y Robert Gentleman en 1993 en la Universidad de Auckland, Nueva Zelanda.

RStudio: RStudio es un entorno de desarrollo integrado para el lenguaje de programación R. Fue creado por RStudio, Inc. y se ha convertido en una de las interfaces más populares y ampliamente utilizadas para trabajar con R.

2. Uso de librerías, importación e instalación

Para insertar un “Chunk” de código, utilizar el comando Ctrl + Alt + I
library(gganimate)
No renderer backend detected. gganimate will default to writing frames to separate files
Consider installing:
- the `gifski` package for gif output
- the `av` package for video output
and restarting the R session

3. Importación de datos desde Excel

Para importar los datos, haremos uso de la librería “readxl”, la cual ya fue llamada en el anterior “Chunk”
datos <- as.data.frame(read_xlsx(file.choose()))
head(datos)
Fecha <- as.Date(datos[,1])
Precio <- as.numeric(datos[,2])
datos1 <- data.frame(Fecha,Precio)
head(datos1)

4. LaTex en Markdown

Aplicaremos el sistema de composición de textos LaTex dentro de nuestro ejercicio para determinar el manejo que se darán a las variables, por ejemplo:
Suma de dos valores:

\[ a+b=c \]

5. Operaciones básicas:

Utilizaremos la base de datos importada para realizar operaciones báasicas sobre los datos que se aprecian en la misma. Suma de dos precios de cierre: \[ precio_{(16/05/2022)}+precio_{(15/05/2023)}=x \]

Suma <- Precio[1,]+Precio[262,]
Suma
[1] 8606.73
Resta de dos precios de cierre:

\[ precio_{(16/05/2022)}-precio_{(15/05/2023)}=x \]

Resta <- Precio[1,]-Precio[262,]
Resta

Producto de dos precios de cierre:

\[ precio_{(16/05/2022)}*precio_{(15/05/2023)}=x \]

Producto <- Precio[1,]*Precio[262,]
Producto

Cociente de dos precios de cierre:

\[ \dfrac{precio_{(16/05/2022)}}{precio_{(15/05/2023)}}=x \]

Cociente <- Precio[1,]/Precio[262,]
Cociente

6. Estadística descriptiva:

La estadística descriptiva resume y describe características de un conjunto de datos para facilitar su comprensión, utilizando medidas como promedios y variabilidad.

Promedio de los precios de cierre \[ \begin{equation} \bar{precio} = \frac{1}{262}\sum_{i=1}^{n}precio_i \end{equation} \]

Promedio <- mean(Precio)
Promedio
[1] 4545.154

Varianza de los precios de cierre \[ \begin{equation} \sigma^2 = \frac{1}{n}\sum_{i=1}^{n}(precio_i - \bar{precio})^2 \end{equation} \]

Varianza <- var(Precio)
Varianza
[1] 94657.27

Mediana de los precios de cierre

Mediana <- median(Precio)
Mediana
[1] 4588

7. Gráficos

Realizaremos un gráfico que permita evaluar el comportamiento del USD/COP a lo largo del último año

Grafico <- ggplot(data = datos1, aes(x = Fecha, y = Precio)) +
  geom_line() +
  labs(x = "Fechas", y = "Precios de cierre", title = "Comportamiento USDCOP")
Grafico

LS0tDQp0aXRsZTogIkludHJvZHVjY2nDs24gYSBSIE1hcmtkb3duIg0KYXV0aG9yOiAiS2V2aW4gVmFyZ2FzIg0KZGF0ZTogIjIwMjMtMDUtMTkiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCg0KLS0tDQoNCiMjIyMjIyBBIGxvIGxhcmdvIGRlIGVzdGUgcHJveWVjdG8sIHNlIGV2aWRlbmNpYXLDoW4gbGFzIGdlbmVyYWxpZGFkZXMgZGVsIGxlbmd1YWplIGRlIHByb2dyYW1hY2nDs24gUiBhIHBhcnRpciBkZSBSU3R1ZGlvLg0KDQojIyMjIyBUZW1hcyBhIGFib3JkYXI6DQoNCiMjIyMjIyAxLiDCv1F1w6kgZXMgUiB5IFJTdHVkaW8/DQojIyMjIyMgMi4gVXNvIGRlIGxpYnJlcsOtYXMsIGluc3RhbGFjacOzbiBlIGltcG9ydGFjacOzbg0KIyMjIyMjIDMuIEltcG9ydGFjacOzbiBkZSBkYXRvcyBkZXNkZSBFeGNlbA0KIyMjIyMjIDQuIExhVGV4IGVuIFJNYXJrZG93bg0KIyMjIyMjIDUuIE9wZXJhY2lvbmVzIGLDoXNpY2FzDQojIyMjIyMgNi4gRXN0YWTDrXN0aWNhIGRlc2NyaXB0aXZhDQojIyMjIyMgNy4gR3LDoWZpY29zDQoNCiMjIDEuIFIgeSBSU3R1ZGlvDQoNCiMjIyMgUjogUiBlcyB1biBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIHkgdW4gZW50b3JubyBkZSBzb2Z0d2FyZSB1dGlsaXphZG8gcGFyYSBlbCBhbsOhbGlzaXMgZXN0YWTDrXN0aWNvIHkgbGEgZ2VuZXJhY2nDs24gZGUgZ3LDoWZpY29zLiBGdWUgY3JlYWRvIHBvciBSb3NzIEloYWthIHkgUm9iZXJ0IEdlbnRsZW1hbiBlbiAxOTkzIGVuIGxhIFVuaXZlcnNpZGFkIGRlIEF1Y2tsYW5kLCBOdWV2YSBaZWxhbmRhLg0KDQojIyMjIFJTdHVkaW86IFJTdHVkaW8gZXMgdW4gZW50b3JubyBkZSBkZXNhcnJvbGxvIGludGVncmFkbyBwYXJhIGVsIGxlbmd1YWplIGRlIHByb2dyYW1hY2nDs24gUi4gRnVlIGNyZWFkbyBwb3IgUlN0dWRpbywgSW5jLiB5IHNlIGhhIGNvbnZlcnRpZG8gZW4gdW5hIGRlIGxhcyBpbnRlcmZhY2VzIG3DoXMgcG9wdWxhcmVzIHkgYW1wbGlhbWVudGUgdXRpbGl6YWRhcyBwYXJhIHRyYWJhamFyIGNvbiBSLg0KDQojIyAyLiBVc28gZGUgbGlicmVyw61hcywgaW1wb3J0YWNpw7NuIGUgaW5zdGFsYWNpw7NuDQojIyMjIyMgUGFyYSBpbnNlcnRhciB1biAiQ2h1bmsiIGRlIGPDs2RpZ28sIHV0aWxpemFyIGVsIGNvbWFuZG8gQ3RybCArIEFsdCArIEkNCg0KYGBge3J9DQojSW5zdGFsYWNpw7NuIGRlIHBhcXVldGVzDQppbnN0YWxsLnBhY2thZ2VzKCJyZWFkeGwiKQ0KaW5zdGFsbC5wYWNrYWdlcygiZ2dwbG90MiIpDQoNCg0KI0ltcG9ydGFjacOzbiBkZSBsaWJyZXLDrWFzDQpsaWJyYXJ5KHJlYWR4bCkNCmxpYnJhcnkoZ2dwbG90MikNCg0KYGBgDQoNCiMjIDMuIEltcG9ydGFjacOzbiBkZSBkYXRvcyBkZXNkZSBFeGNlbA0KIyMjIyMjIFBhcmEgaW1wb3J0YXIgbG9zIGRhdG9zLCBoYXJlbW9zIHVzbyBkZSBsYSBsaWJyZXLDrWEgInJlYWR4bCIsIGxhIGN1YWwgeWEgZnVlIGxsYW1hZGEgZW4gZWwgYW50ZXJpb3IgIkNodW5rIg0KDQpgYGB7cn0NCmRhdG9zIDwtIGFzLmRhdGEuZnJhbWUocmVhZF94bHN4KGZpbGUuY2hvb3NlKCkpKQ0KaGVhZChkYXRvcykNCmBgYA0KDQpgYGB7cn0NCkZlY2hhIDwtIGFzLkRhdGUoZGF0b3NbLDFdKQ0KUHJlY2lvIDwtIGFzLm51bWVyaWMoZGF0b3NbLDJdKQ0KZGF0b3MxIDwtIGRhdGEuZnJhbWUoRmVjaGEsUHJlY2lvKQ0KaGVhZChkYXRvczEpDQpgYGANCg0KIyMgNC4gTGFUZXggZW4gTWFya2Rvd24NCg0KIyMjIyMjIEFwbGljYXJlbW9zIGVsIHNpc3RlbWEgZGUgY29tcG9zaWNpw7NuIGRlIHRleHRvcyBMYVRleCBkZW50cm8gZGUgbnVlc3RybyBlamVyY2ljaW8gcGFyYSBkZXRlcm1pbmFyIGVsIG1hbmVqbyBxdWUgc2UgZGFyw6FuIGEgbGFzIHZhcmlhYmxlcywgcG9yIGVqZW1wbG86DQoNCiMjIyMjIyBTdW1hIGRlIGRvcyB2YWxvcmVzOg0KJCQNCmErYj1jDQokJA0KDQojIyA1LiBPcGVyYWNpb25lcyBiw6FzaWNhczoNCg0KVXRpbGl6YXJlbW9zIGxhIGJhc2UgZGUgZGF0b3MgaW1wb3J0YWRhIHBhcmEgcmVhbGl6YXIgb3BlcmFjaW9uZXMgYsOhYXNpY2FzIHNvYnJlIGxvcyBkYXRvcyBxdWUgc2UgYXByZWNpYW4gZW4gbGEgbWlzbWEuDQpTdW1hIGRlIGRvcyBwcmVjaW9zIGRlIGNpZXJyZToNCiQkDQpwcmVjaW9feygxNi8wNS8yMDIyKX0rcHJlY2lvX3soMTUvMDUvMjAyMyl9PXgNCiQkDQpgYGB7cn0NClN1bWEgPC0gUHJlY2lvWzEsXStQcmVjaW9bMjYyLF0NClN1bWENCmBgYA0KIyMjIyMjIFJlc3RhIGRlIGRvcyBwcmVjaW9zIGRlIGNpZXJyZToNCiQkDQpwcmVjaW9feygxNi8wNS8yMDIyKX0tcHJlY2lvX3soMTUvMDUvMjAyMyl9PXgNCiQkDQpgYGB7cn0NClJlc3RhIDwtIFByZWNpb1sxLF0tUHJlY2lvWzI2MixdDQpSZXN0YQ0KYGBgDQojIyMjIFByb2R1Y3RvIGRlIGRvcyBwcmVjaW9zIGRlIGNpZXJyZToNCiQkDQpwcmVjaW9feygxNi8wNS8yMDIyKX0qcHJlY2lvX3soMTUvMDUvMjAyMyl9PXgNCiQkDQpgYGB7cn0NClByb2R1Y3RvIDwtIFByZWNpb1sxLF0qUHJlY2lvWzI2MixdDQpQcm9kdWN0bw0KYGBgDQojIyMjIENvY2llbnRlIGRlIGRvcyBwcmVjaW9zIGRlIGNpZXJyZToNCiQkDQpcZGZyYWN7cHJlY2lvX3soMTYvMDUvMjAyMil9fXtwcmVjaW9feygxNS8wNS8yMDIzKX19PXgNCiQkDQpgYGB7cn0NCkNvY2llbnRlIDwtIFByZWNpb1sxLF0vUHJlY2lvWzI2MixdDQpDb2NpZW50ZQ0KYGBgDQojIyA2LiBFc3RhZMOtc3RpY2EgZGVzY3JpcHRpdmE6DQoNCkxhIGVzdGFkw61zdGljYSBkZXNjcmlwdGl2YSByZXN1bWUgeSBkZXNjcmliZSBjYXJhY3RlcsOtc3RpY2FzIGRlIHVuIGNvbmp1bnRvIGRlIGRhdG9zIHBhcmEgZmFjaWxpdGFyIHN1IGNvbXByZW5zacOzbiwgdXRpbGl6YW5kbyBtZWRpZGFzIGNvbW8gcHJvbWVkaW9zIHkgdmFyaWFiaWxpZGFkLg0KDQpQcm9tZWRpbyBkZSBsb3MgcHJlY2lvcyBkZSBjaWVycmUNCiQkDQpcYmVnaW57ZXF1YXRpb259DQpcYmFye3ByZWNpb30gPSBcZnJhY3sxfXsyNjJ9XHN1bV97aT0xfV57bn1wcmVjaW9faQ0KXGVuZHtlcXVhdGlvbn0NCiQkDQpgYGB7cn0NClByb21lZGlvIDwtIG1lYW4oUHJlY2lvKQ0KUHJvbWVkaW8NCmBgYA0KVmFyaWFuemEgZGUgbG9zIHByZWNpb3MgZGUgY2llcnJlDQokJA0KXGJlZ2lue2VxdWF0aW9ufQ0KXHNpZ21hXjIgPSBcZnJhY3sxfXtufVxzdW1fe2k9MX1ee259KHByZWNpb19pIC0gXGJhcntwcmVjaW99KV4yDQpcZW5ke2VxdWF0aW9ufQ0KJCQNCmBgYHtyfQ0KVmFyaWFuemEgPC0gdmFyKFByZWNpbykNClZhcmlhbnphDQpgYGANCk1lZGlhbmEgZGUgbG9zIHByZWNpb3MgZGUgY2llcnJlDQpgYGB7cn0NCk1lZGlhbmEgPC0gbWVkaWFuKFByZWNpbykNCk1lZGlhbmENCmBgYA0KIyMgNy4gR3LDoWZpY29zDQpSZWFsaXphcmVtb3MgdW4gZ3LDoWZpY28gcXVlIHBlcm1pdGEgZXZhbHVhciBlbCBjb21wb3J0YW1pZW50byBkZWwgVVNEL0NPUCBhIGxvIGxhcmdvIGRlbCDDumx0aW1vIGHDsW8NCg0KYGBge3J9DQpHcmFmaWNvIDwtIGdncGxvdChkYXRhID0gZGF0b3MxLCBhZXMoeCA9IEZlY2hhLCB5ID0gUHJlY2lvKSkgKw0KICBnZW9tX2xpbmUoKSArDQogIGxhYnMoeCA9ICJGZWNoYXMiLCB5ID0gIlByZWNpb3MgZGUgY2llcnJlIiwgdGl0bGUgPSAiQ29tcG9ydGFtaWVudG8gVVNEQ09QIikNCkdyYWZpY28NCmBgYA0KDQoNCg0K