EJERCICIO 1

a) Creacion de lista llamada acciones con los vectores: apple, google, amazon

#Vector Apple: 
apple<- c(120, 125, 130)

#Vector Google: 
google<- c(1800, 1850, 1900)

#Vector Amazon:
amazon<- c(3200, 3300,3400)

#Lista
lista_acciones<- list(apple=apple, google=google, amazon=amazon)
lista_acciones
## $apple
## [1] 120 125 130
## 
## $google
## [1] 1800 1850 1900
## 
## $amazon
## [1] 3200 3300 3400

b) añadiendo un nuevo elemento: Vector con los precios de cierre de las acciones de Microsoft

microsoft<- c(210,215, 220)
lista_acciones<- list(apple=apple, google=google, amazon=amazon, microsoft=microsoft)
lista_acciones
## $apple
## [1] 120 125 130
## 
## $google
## [1] 1800 1850 1900
## 
## $amazon
## [1] 3200 3300 3400
## 
## $microsoft
## [1] 210 215 220

c) Extrayendo el segundo elemento del vector google dentro de la lista acciones

lista_acciones [[2]][[2]]
## [1] 1850

EJERCICIO 2

a) Creando lista llamada indicadores

#Objetos de la lista indicadores
pib<- c(30000)
inflacion<- c(2.5, 3.0, 3.5)
desempleo<- matrix(c(5.0, 5.5, 6.0, 4.5, 4.0, 3.5), nrow = 2)
deuda<- list(publica=60, privada=40)

#lista
indicadores<- list(pib=pib, inflacion=inflacion, desempleo=desempleo, deuda=deuda)
indicadores
## $pib
## [1] 30000
## 
## $inflacion
## [1] 2.5 3.0 3.5
## 
## $desempleo
##      [,1] [,2] [,3]
## [1,]  5.0  6.0  4.0
## [2,]  5.5  4.5  3.5
## 
## $deuda
## $deuda$publica
## [1] 60
## 
## $deuda$privada
## [1] 40

b) Calculando el promedio de los elementos del tercer elemento de la lista

#doble chorchete
mean(indicadores[[3]])
## [1] 4.75
#etiqueras
mean(indicadores$desempleo)
## [1] 4.75

c) Modificando el valor de la deuda publica en un 20% adicional

#encontrando la posicion
valor_deuda<-indicadores [[4]][[1]]
valor_deuda
## [1] 60
#aumentandole el 20% de su valor al alemento
aumento_adicional<-valor_deuda*1.20
aumento_adicional
## [1] 72

EJERCICIO 3

a) Creando lista llamada estudiantes

estudiantes<- list( nombre = c("ana", "Luis", "Pedro"),
                   edad = c(18, 19, 20),
                    notas = list(matematicas = c(8, 7, 9),
                                 historia = c(6, 8, 7),
                                 ingles = c(9, 10, 8)))
estudiantes
## $nombre
## [1] "ana"   "Luis"  "Pedro"
## 
## $edad
## [1] 18 19 20
## 
## $notas
## $notas$matematicas
## [1] 8 7 9
## 
## $notas$historia
## [1] 6 8 7
## 
## $notas$ingles
## [1]  9 10  8

b) Modificando el nombre del primer estudiante por “Elena”

estudiantes[[1]][[1]]<- "Elena"
estudiantes
## $nombre
## [1] "Elena" "Luis"  "Pedro"
## 
## $edad
## [1] 18 19 20
## 
## $notas
## $notas$matematicas
## [1] 8 7 9
## 
## $notas$historia
## [1] 6 8 7
## 
## $notas$ingles
## [1]  9 10  8

c) añadiendo nuevo elemento a la lista: vector de genero

estudiantes<- list( nombre = c("Ana", "Luis", "Pedro"), 
                    edad = c(18, 19, 20),
                    genero= c("F", "M", "NB"),
                    notas = list(matematicas = c(8, 7, 9), 
                    historia = c(6, 8, 7), 
                    ingles = c(9, 10, 8)))
estudiantes
## $nombre
## [1] "Ana"   "Luis"  "Pedro"
## 
## $edad
## [1] 18 19 20
## 
## $genero
## [1] "F"  "M"  "NB"
## 
## $notas
## $notas$matematicas
## [1] 8 7 9
## 
## $notas$historia
## [1] 6 8 7
## 
## $notas$ingles
## [1]  9 10  8

d) cambiando la nota de ingles del tercer estudiante por un 9

estudiantes[[4]][[3]]<-9
estudiantes
## $nombre
## [1] "Ana"   "Luis"  "Pedro"
## 
## $edad
## [1] 18 19 20
## 
## $genero
## [1] "F"  "M"  "NB"
## 
## $notas
## $notas$matematicas
## [1] 8 7 9
## 
## $notas$historia
## [1] 6 8 7
## 
## $notas$ingles
## [1] 9

EJERCICIO 4

a) creando el objeto lista_4

a1<-list(a11=c(1, 2, 3), a12=c(4, 5, 6))
a2<-list(a21=c(7, 8, 9), a22=c(10, 11, 12))
a<-list(a1=a1, a2=a2)

b1<-list(b11=c(13, 14, 15), b12=c(16, 17, 18))
b2<-list(b21=c(19, 20, 21), b22=c(22, 23, 24))
b<-list(b1=b1, b2=b2)

lista_4<-list(a=a, b=b)
lista_4
## $a
## $a$a1
## $a$a1$a11
## [1] 1 2 3
## 
## $a$a1$a12
## [1] 4 5 6
## 
## 
## $a$a2
## $a$a2$a21
## [1] 7 8 9
## 
## $a$a2$a22
## [1] 10 11 12
## 
## 
## 
## $b
## $b$b1
## $b$b1$b11
## [1] 13 14 15
## 
## $b$b1$b12
## [1] 16 17 18
## 
## 
## $b$b2
## $b$b2$b21
## [1] 19 20 21
## 
## $b$b2$b22
## [1] 22 23 24

b) cambiando nombre de la lista “b1” a “sub_lista_b”

names(lista_4[[2]])[[1]]<-"sub_lista_b"
lista_4
## $a
## $a$a1
## $a$a1$a11
## [1] 1 2 3
## 
## $a$a1$a12
## [1] 4 5 6
## 
## 
## $a$a2
## $a$a2$a21
## [1] 7 8 9
## 
## $a$a2$a22
## [1] 10 11 12
## 
## 
## 
## $b
## $b$sub_lista_b
## $b$sub_lista_b$b11
## [1] 13 14 15
## 
## $b$sub_lista_b$b12
## [1] 16 17 18
## 
## 
## $b$b2
## $b$b2$b21
## [1] 19 20 21
## 
## $b$b2$b22
## [1] 22 23 24

c) Eliminando el elemento “b22”

lista_4[[2]][[2]][[2]]<-NULL
lista_4
## $a
## $a$a1
## $a$a1$a11
## [1] 1 2 3
## 
## $a$a1$a12
## [1] 4 5 6
## 
## 
## $a$a2
## $a$a2$a21
## [1] 7 8 9
## 
## $a$a2$a22
## [1] 10 11 12
## 
## 
## 
## $b
## $b$sub_lista_b
## $b$sub_lista_b$b11
## [1] 13 14 15
## 
## $b$sub_lista_b$b12
## [1] 16 17 18
## 
## 
## $b$b2
## $b$b2$b21
## [1] 19 20 21

d) agregando la lista “c” dentro de lista_4 y agregando elementos a la lista “c”

#creando Matriz identidad.
matriz_identidad<-diag(3)
print(matriz_identidad)
##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1
#creando matriz vacia
matriz_vacia<-matrix(nrow = 2, ncol = 2)
print(matriz_vacia)
##      [,1] [,2]
## [1,]   NA   NA
## [2,]   NA   NA
# agregandole valores a la lista c:
lista_c<-list(c11=matriz_identidad, c12=matriz_vacia)

#Añadiendo la lista c en la lista_4
lista_4<-list(a=a, b=b, c=lista_c)
lista_4
## $a
## $a$a1
## $a$a1$a11
## [1] 1 2 3
## 
## $a$a1$a12
## [1] 4 5 6
## 
## 
## $a$a2
## $a$a2$a21
## [1] 7 8 9
## 
## $a$a2$a22
## [1] 10 11 12
## 
## 
## 
## $b
## $b$b1
## $b$b1$b11
## [1] 13 14 15
## 
## $b$b1$b12
## [1] 16 17 18
## 
## 
## $b$b2
## $b$b2$b21
## [1] 19 20 21
## 
## $b$b2$b22
## [1] 22 23 24
## 
## 
## 
## $c
## $c$c11
##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1
## 
## $c$c12
##      [,1] [,2]
## [1,]   NA   NA
## [2,]   NA   NA

e) mostrando la captura de pantalla del esquema del literal a

library(png)

ruta_imagen <- "C:/Users/isaac/OneDrive/Escritorio/literal_a_ejercicio4_literal_e.png"

imagen <-readPNG(ruta_imagen)

plot(1:2, type = "n", axes = FALSE, xlab = "", ylab = "")
rasterImage(imagen, 1, 1, 2, 2)