PREGUNTA 1.

Usted tiene el siguiente data frame.

library(openxlsx)
df<-read.xlsx("https://r.datametria.com/wp-content/uploads/2022/04/datos_pbi.xlsx")

names(df)<-c("AÑO","CONSUMO_PRIVADO","CONSUMO_PUBLICO","INV_BRUTA_INTERNA",
             "INV_BRUTA_FIJA","INV_BRUTA_FIJA_PRIVADA","INV_BRUTA_FIJA_PUBLICA",
             "INV_BRUTA_FIJA_VAR_INVENTARIOS","EXPORTACIONES","IMPORTACIONES")

df<-df[-c(1,12),]

df[,1:10]<-apply(df[,1:10], 2, as.numeric)

El ejercicio consiste en replicar el gráfico siguiente lo más parecido posible.

PREGUNTA 2.

A usted le piden realizar una función que permita calcular el porcentaje de avance de una encuesta. La cuál tiene 5000 personas de muestra.

A usted le proporcionan cada día un data frame en el cuál se encuentra el identificador del encuestado (id), el tiempo que demoró en completar toda la encuesta (tiempo) y la condición económica de la persona (CE).

Es así que su necesidad es crear una función que calcule el porcentaje de avance, hasta la fecha, un gráfico para ver el porcentaje de avance por condición económica y otro gráfico en donde se observe el tiempo promedio que han demorado en completar la encuesta por condición económica.

Es decir, su función tendrá como argumento un data frame. Y arrojará en la consola el porcentaje de avance. Y en la parte de los plots un gráfico dividido en dos partes, el primero con el porcentaje de avance y el segundo con el tiempo promedio para completar la encuesta, los 2 por condición económica.

Justo, acaban de enviarle el data frame. Con el que tiene que calcular lo pedido.

# El data frame que tiene la información del avance de la encuesta.
df<-data.frame(id=sample(1:5000,3567,F),
               tiempo=sample(10:30,3567,T),
               CE=sample(c("A","B","C","D","E"),3567,T))
head(df)
##     id tiempo CE
## 1 4713     17  C
## 2 4144     11  A
## 3 2477     16  C
## 4 3803     27  C
## 5 3876     10  C
## 6 2876     11  A

PREGUNTA 3.

Con los siguientes datos:

df<-read.csv("https://r.datametria.com/wp-content/uploads/2020/08/gender.csv",
             sep = ";")

Donde 0 es igual a femenino y 1 igual a masculino.

El objetivo es obtener una gráfica similar a la siguiente:

RECOMENDACIONES:

El color de los gráficos dependerá del gusto de cada uno.