Ejercicios con matrices

Una forma sencilla de agregar una columna incluyendo el nombre de cabecera seria:
final_matrix <- cbind(final_matrix, Sabado = c(1, 2, 3))

Agregar columna y crear el nombre de fila “tiempo podcast”

Sabado = c(30,25,27)
final_matrix_sabado <- cbind(final_matrix, Sabado)
rownames(final_matrix_sabado)<-c("tiempo Platzi","tiempo lecturas","Tiempo podcast")
final_matrix_sabado

Importante notar que en la matrix no se comienza a contar desde 0 como en otros lenguajes

Mi aporte para añadir tiempo de estudio el día sabado:

final_matrix_2 <- cbind(final_matrix, c(20,30,15))
final_matrix_2

dias <-c(“Lunes”, “Martes”, “Miercoles”, “Jueves”, “Viernes”, “Sabado”)
Tiempo <- c(“Tiempo Platzi”, “Tiempo Lecturas”, “Potcast”)

colnames(final_matrix_2) <- dias
rownames(final_matrix_2) <- Tiempo
final_matrix_2

vi esta forma y me gusto
@CiprianoBryan
#agregado_de_fila_a_la_matriz

final_matrix<-rbind(tiempo_de_matrix,podcast=c(10,20,13,02,13))
final_matrix
#agregado_de_columna_a_la_matriz

dias_new<-cbind(final_matrix,sabado=c(12,25,20))
dias_new

Asi me funciono

Tiempo_Podcast<-c(10,15,30,5,0)  

Final_matriz <- rbind(tiempo_matriz,Tiempo_Podcast)
  
final_matriz

Sabado <- c(25,30,10)

Final_matriz2 <- cbind(final_matriz,Sabado)
Final_matriz2

Desde que creamos la matriz, podemos integrar la nueva columna llamada podcast, basta con hacer esto
final_matrix <-rbind(tiempo_matrix,podcast = c(10,15,30,5,0)) ## agregar otra fila
y queda mucho mas sencillo integrar sabado como un vector aparte

Muy bueno el curso, sólo que en este espacio podrían dedicar un poco más tiempo a explicar operaciones entre matrices con R, no toma mucho (máx 3 minutos) y podrían explicar las básicas como suma, multiplicación, inversa, transpuesta, etc.

Me quise simplificar la vida por lo que solo subí hasta donde teníamos tiempo_platzi y tiempo_lecturas y cree la variable podcast con 6 números, a platzi y lecturas les agregue una cifra más, a la variable tiempo_matrix le cambie nrow = 3 y a días y tiempo les agregue “sábado” y “podcast”

hice dos cosas, agregue la fila y de una vez enuncie el nombre que segun mi criterio debia tener esa etiqueta de fila en mi caso “tiempo_adicional” y agregue la columa tambien con la etiqueta de la columna “sabado”

#ejercicios con matrices
final_matrix <- rbind(tiempo_matrix,posdcast=c(10,15,30,5,0))
final_matrix

mostrar_matrix_final <- rbind(final_matrix,colSums(final_matrix))
mostrar_matrix_final

#Reto1: agregar una columna sábado
final_matrix_reto1 <- cbind(final_matrix,sabado=c(10,5,15))
final_matrix_reto1

mostrar_matrix_final <- rbind(final_matrix_reto1,colSums(final_matrix_reto1))
mostrar_matrix_final```

#Se añade una nueva columna a la anterior matriz
sabado = c(5,10,15,20)
final2_matriz <- cbind(final_matriz, sabado)


final2_matriz

Pirmero presentar los datos de la 1 matriz:

Crear una matriz vacía con nombres de filas y columnas

matriz_actividades <- matrix(NA, nrow = length(actividades), ncol = length(dias),
dimnames = list(actividades, dias))

Mostrar la matriz vacía

print(matriz_actividades)

Nueva fila de actividades

nueva_actividad <- c(“NUEVA ACTIVIDAD”, “NUEVA ACTIVIDAD”, “NUEVA ACTIVIDAD”,
“NUEVA ACTIVIDAD”, “NUEVA ACTIVIDAD”, “NUEVA ACTIVIDAD”)
Luego se agrega.

Añadir la nueva fila a la matriz

matriz_actividades <- rbind(matriz_actividades, nueva_actividad)

Mostrar la matriz actualizada

print(matriz_actividades)

final_matriz <- cbind(final_matriz, c(1, 2, 3))
dias <- c(dias, “Sabado”)
colnames(final_matriz) <- dias
tiempo <- c(tiempo, “Podcasts”)
rownames(final_matriz) <- tiempo

agregar nueva columna

tiempo_matrix_adicional = cbind (tiempo_matrix, c(10,15,20))
colnames (tiempo_matrix_adicional)[6] <- "Sabado"
tiempo_matrix_adicional

EJERCICIO:
#nueva columna
final_matrix2 <- cbind(tiempo_matrix,c(40,20,30))
final_matrix2

Tengo una duda con respecto a los nombres de las filas y columnas que se pueden asignar con cbin o rbin. Esto dice la documentación:

For cbind row names are taken from the first argument with appropriate names: rownames for a matrix, or names for a vector of length the number of rows of the result.

For rbind column names are taken from the first argument with appropriate names: colnames for a matrix, or names for a vector of length the number of columns of the result.

> ejercicio_matrix <- cbind(final_matrix, c(40,20,30))
> ejercicio_matrix
                Lunes Martes Miercoles Jueves Viernes   
tiempo platzi      25      5        10     15      10 40
tiempo lecturas    30     10         5     10      15 20
                   10     15        30      5       0 30        
> colnames(ejercicio_matrix) <- c(dias, "Sabado")
> rownames(ejercicio_matrix) <- c(Tiempo, "Podcast")
> ejercicio_matrix
                Lunes Martes Miercoles Jueves Viernes Sabado
tiempo platzi      25      5        10     15      10     40
tiempo lecturas    30     10         5     10      15     20
Podcast            10     15        30      5       0     30

#Agregar columna
finalfinal_matrix <- cbind(final_matrix,c(7,5,15))

#Agregar nombre a columna y fila
colnames(finalfinal_matrix)<-c("lunes","martes","miercoles","jueves","viernes","sabado")
row.names(finalfinal_matrix)<-c("tiempo platzi","tiempo lecturas","podcast")

# agregar la columna 
final_matrix2=cbind(final_matrix,c(25,30,15)) 
# agregar nombre columna
colnames(final_matrix2)=c("Lunes","Martes","Miercoles","Jueves","Viernes","Sabado") 

Creo que hize el camino mas largo, alguien que me de feebback ? 🤠
Primera Parte
Añadir una fila para Platzi podcast

Segunda Parte
Añadir una columna para el dia sabado

Forma de colocar la fila con su nombre

final_matrix <-rbind(tiempo_matrix, Podcast = c(20,25,30,5,0)

Les dejo mi código , espero que les ayude :3
#matriz
tiempo_platzi <- c(10, 20, 15, 25, 30)
tiempo_lecturas <- c(5, 10, 8, 12, 15)
tiempo_matrix<- matrix(c(tiempo_platzi,tiempo_lecturas),
nrow = 2,byrow =TRUE)
días<- c(“Lunes”, “Martes”, “Miércoles”, “Jueves”, “Viernes”)
tiempo<- c(“Tiempo Platzi”, “Tiempo Lecturas”)
colnames(tiempo_matrix)<- días
rownames(tiempo_matrix)<- tiempo
tiempo_matrix
colSums(tiempo_matrix)
final_matrix<- rbind(tiempo_matrix,c(10,15,30,5,0))
final_matrix
final_matrix_terminada<- cbind(final_matrix,Sábado=c(10,20,15))
final_matrix_terminada
colSums(final_matrix_terminada)
final_matrix_terminada[ 1,5]

Pensé en esta forma de adicional la nueva columna y adicione el total de tiempo de las 3 actividades en una nueva fila.

Procedimiento:
Sabado <- c(20,30,40) # Creo el vector
final_matrix <- cbind(final_matrix, Sabado) # Agregar la nueva columna a la matrix
Total <- colSums(final_matrix) # Sumo las columnas
final_matrix <- rbind(final_matrix, Total) # Agrego la fila de sumas a la matrix
final_matrix # Visualizo la matrix

Hay una forma de agregar las columnas o filas ya con el encabezado. En este caso lo haré con las columnas.

1. Se crea el vector
2. Se le agrega el nombre al vector con la función colnames(), si fuera fila sería con rownames()
3. Se una a la matriz con cbind()

nueva_columna <- c(10, 0, 15)
colnames(nueva_columna) <- "Horas"
matriz_con_nueva_columna <- cbind(matriz_original, nueva_columna)

Primero le quise poner el nombre a la nueva fila, luego agregué la nueva columna y le puse el nombre. Lo hice con el siguiente código:

#agregar nuevas filas y columnas
final_matrix <- rbind(tiempo_matrix, c(10,15,30,5,0))

  #Para que aparezca el nombre de la última fila
    tiempo_nuevo <- c("tiempo platzi", "tiempo lecturas", "tiempo podcasts")
    rownames(final_matrix) <- tiempo_nuevo
    
final_matrix

  #para verificar cómo quedó la suma final
  colSums(final_matrix)
#agregando una nueva columna, para el sábado agregando minutos 
  Sábado <- cbind(final_matrix, c(10, 5, 15))
  Sábado    
  #agregándole el nombre sábado a la columna

  nuevo_nombre <- "Sabado"
  # Agregar el nombre "Sabado" a la última fila de la matriz
  nuevo_nombre <- "Sábado"
  colnames(Sábado)[ncol(Sábado)] <- nuevo_nombre
Sábado 

Reto aceptado 😃
Lo que puse fue lo siguiente:

final_matrix <- rbind(tiempo_matrix, tiempo_Coursera= c(10,15,30,5,0))  #Agregar nueva fila de información.
final_matrix

colSums(final_matrix)

sabado_matrix <-cbind(final_matrix, sabado =c(13,2,1)) # agregar una nueva columna con su respectiva información 
sabado_matrix

Lo chévere del ejercicio es que era muy intuitivo.

![](

Para ponerle nombre a la ultima fila use:
rownames(final_matrix)[3] <- “Tiempo podcast”

Y para añadir una columna use:
final_matrix2 <- cbind(final_matrix,c(23,19,5))
colnames(final_matrix2)[6] <- "Sabado"
final_matrix2

Incluso se puede sobreescribir una matriz por su nueva version

final_matriz <- cbind(final_matriz,Sabado = c(22,25,24))
final_matriz

#RetoPlatzi

Les comento que he tratado de ejecutar R con VSCode y me he enfrentado a muchos problemas con la instalación de las librerías. Estoy haciéndolo con replit y por lo menos estoy avanzando, Necesitan actualizar este curso, no digo que el contenido este mal pero la tecnología avanza muy rápido y 3 años ya es viejo.
No me mal interpreten excelente contenido, pero necesitamos que lo actualicen y por favor también indiquen como hacerlo con VSCode.

Mi resumen:

– DATOS DE LUNES A VIERNES –
tiempo_estudiox <- c(5,5,10,5,10)
tiempo_estudioy <- c(10,10,5,15,5)
sum_tiempo_estudio <- tiempo_estudiox + tiempo_estudioy
sum_tiempo_estudio

– SE LE REALIZA MATRIZ DE LUNES A VIERNES –
tiempo_matriz <- matrix(c(tiempo_estudiox, tiempo_estudioy), nrow = 2, byrow = TRUE)
tiempo_matriz

– NOMBRES DE CABECERAS –
colnames(tiempo_matriz) <- c(“Lunes”, “Martes”, “Miercoles”, “Jueves”, “Viernes”)
rownames(tiempo_matriz) <- c(“tiempo estudio x”, “tiempo estudio y”)

– SE LE REALIZA EL TOTAL –
colSums(tiempo_matriz)
#SE QUIERE EL TIEMPO EN PODCAST
final_matrix <- rbind(tiempo_matriz, c(15,5,10,5,10))
final_matrix

– NOMBRE DE LA CABECERA –
rownames(final_matrix) <- c(“tiempo estudio x”, “tiempo estudio y”, “tiempo_podcast”)

– SE CREA EL VECTOR DE LOS TIEMPOS EN SABADO –
sabado <- c(15,5,10)

– SE LE AGREGA SABADO A LA MATRIZ –
final_matrix_c <- cbind(final_matrix, sabado)
final_matrix_c

final_matrix <- cbind(final_matrix, c( 7, 7, 7))

dias <- c(“lunes”,“Martes”, “Miercoles”,“Jueves”,“vierne”, “Sabado”)
tiempo <- c(“Tiempo_platzi”, “Tiempo_lecturas”, “Tiempo_podcast”)

colnames (final_matrix)<- dias
rownames(final_matrix)<- tiempo

Mi código

final_matrix2 <- cbind(final_matrix, Sabado=c(10,5,8))
final_matrix2
tiempo2 <- c("tiempo platzi","tiempo lecturas","Tiempo Deporte")
rownames(final_matrix2) <- tiempo2

rowSums(final_matrix2)

El desarrollo de mi reto como sigue

matrix_sabado <- matrix(c(2,1,0), nr=3,nc=1)
colnames(matrix_sabado) <- c("Sabado")
final_matrix <- cbind(final_matrix,matrix_sabado)

Para los que ya saben algo de Python: en R el primer elemento de un array se cuenta como el elemento 1, mientras que en Python ese mismo elemento sería el elemento 0.

Aquí pueden ver una lista de varios lenguajes donde se encuentra cuáles cuentan desde 0 y cuáles desde 1:

https://en.wikipedia.org/wiki/Comparison_of_programming_languages_(array)#Array_dimensions

final_final_matrix <- cbind(final_matrix, Sabado=c(10, 20, 30))

Con el apoyo de un comentario por aca lo hice de esta forma
final_matrix <- cbind(final_matrix,Sabado=c(5,40,20))

Hola a todos, les comparto mi propuesta de solución al reto. Además de lo pedido en el reto realicé la suma de las filas, esto con el fin de totalizar el tiempo por actividad. En algunos casos, con el uso de matrices, ese total nos ayudará a segmentar más fácil nuestros resultados.

Sábado = c(10,20,30)
final_matrix <- cbind(final_matrix, Sábado)
Total_Dia <- colSums(final_matrix)
final_matrix <- rbind(final_matrix,Total_Dia)
Total_X_Actividad <- rowSums(final_matrix)
final_matrix <- cbind(final_matrix, Total_X_Actividad)
final_matrix

sabado<-c(23,12,56)
final_matriz_sabado <- cbind(final_matriz,sabado)
rownames(final_matriz_sabado)<- c(“tiempo platzi”,“tiempo lectura”, “tiempo podcast”)

Desafío:

final_matrix <- cbind(final_matrix, Sabado = c(10,15,30)) # cbind se usa para agregar columnas a una matriz
final_matrix

final_matrix$Sabado <- c(5,16,2)

agrfila <- rbind(tiempo_matrix, tiempo_podcast = c(10, 15, 30, 5, 0))

agrcolumna <- cbind(agrfila, sabado = c(10, 20, 30))

matriz superfinal completada!

hola, la forma como resolví el desafio fue:

final_matrix_2 <- cbind(final_matrix, c(20,30,15))
final_matrix_2

dias2 <-c(dias,“Sabado”)
dias2
tiempo2 <- c(tiempo, “tiempo podcast”)
tiempo2

colnames(final_matrix_2) <- dias2
rownames(final_matrix_2) <- Tiempo2
final_matrix_2

teniendo en cuenta que primero resalte (y di Enter) al día y tiempo de las lineas 81 y 82 (del video anterior)

Así logre dar solución al reto 😃

Podcast <- c(10,15,20,15,0)
final_mat <- rbind(t_matriz, Podcast)
final_mat
Sabado <- c(10,15,5)
definitive_mat <- cbind(final_mat,Sabado).
definitive_mat
total<-colSums(definitive_mat)
total
def_mat<-rbind(definitive_mat,total)
def_mat

Names clear with janitor package

Si deseas limpiar los nombres de tu dataset puedes usar janitor.

install.packages("janitor")

library("janitor")

orangeec_new <- janitor::clean_names(orangeec)

names(orangeec_new)

Hola a todos, comparto mi reto:

Agregar columna :

final_matrix <- cbind(final_matrix,Sabado=c(30,20,25))

rbind: añade fila (viene de row) cbind: añade columna (viene de column) Es bueno ser ordenado e ir guardando comentarios con el símbolo # en el script.

tiempo_platzi <- c(25, 5, 10, 15, 10, 15)
tiempo_lecturas <- c(30, 10, 5, 10, 15, 10)
podcast <- c(10, 15, 15, 30, 20, 10)
tiempo_matrix <- matrix(c(tiempo_platzi, tiempo_lecturas, podcast), nrow = 3, byrow = TRUE )

dias <- c(“lunes”, “martes”, “miercoles”, “jueves”, “viernes”, “sabado”)
tiempo <- c(“tiempo_platzi”, “tiempo_lecturas”, “podcast”)

colnames(tiempo_matrix) <- dias
rownames(tiempo_matrix) <- tiempo

colSums(tiempo_matrix)

tiempo_matrix

final_matrix_final <- cbind(final_matrix,c(15,10,16))

colnames(final_matrix_final) <- c("Lunes","Martes","Miercoles","Jueves","Viernes","Sabado")
rownames(final_matrix_final) <- c('Tiempo Platzi', "Tiempo Lecturas","Podtcast")
final_matrix_final```

En los comentarios me di cuenta de un parámetro de la función cbind() que simplifica el código. Sin embargo expongo mi solución con ustedes

`final_matrix = cbind(final_matrix,c(20,20,20))
final_matrix

#Ahora si agrego los nombres de la columna y la fila

dias[6] = "Sabado"
colnames(final_matrix) <- dias
final_matrix
Tiempo[3] = "tiempo podcast"
rownames(final_matrix) <- Tiempo
final_matrix

colSums(final_matrix)`

<code>
matriz_final <- rbind(tiempo_matriz,c(10,15,20,25,40))
rownames(matriz_final) <- c(tiempo,"podcast")
matriz_final <- cbind(matriz_final,c(10,10,10))
colnames(matriz_final) <- c(dias,"sabado")
matriz_final
</code>

🟢

final_matriz <- rbind(tiempo_matriz, tiempo podcast= c(15,10,20,5,0))
final_matriz
final_matriz_sabado <- cbind(final_matriz, Sabado = c(40,20,30))
final_matriz_sabado

rbind - para filas
cbind - para columnas

He aquí mi reto:

• Agregando la fila podcast.
• Agregando la columna para el tiempo del sabado.

final_matrix <- rbind(tiempo_matrix, "tiempo podcast" = c(10,15,20,52,12))

final_matrix

final_matrix_sabado <- cbind(final_matrix, Sabado = c(40,20,30))

final_matrix_sabado```

¿En la sintáxis de R no se usa ; ?

f.matrix<-cbind(f.matrix,c(20,35,60))
days2<-c(“monday”, “tuesday”, “wednesday”,“thursday”, “friday”, “saturday”)
colnames(f.matrix)<-days2
f.matrix

#add col
final_matrix_col <- cbind(final_matrix,c(10,15,30))
colnames(final_matrix_col)<- c(“Lunes”,“Martes”,“Miercoles”,“Jueves”,“Viernes”,“Sabado”)
final_matrix_col
colSums(final_matrix_col)

jajaja, en el video anterior me nació esta duda, y no sabía que estaba aquí el rbind…

Como puedo extraer los resultados de una matriz para insertar en un informe, de modo que no necesite editar la tabla?

final_matrix <- rbind(tiempo_matrix, c(10,15,30,5,0))
final_matrix <- cbind(tiempo_matrix, c(30,30), c(20,20))

dias <- c("Lunes","Martes","Miercoles","Jueves","Viernes","Sabado","Domingo")
tiempo <- c("tiempo platzi","tiempo lecturas","tiempo extra")
colnames(final_matrix) <- dias
rownames(final_matrix) <- tiempo

final_matrix
colSums(final_matrix)```

> final_matrix
                Lunes Martes Miercoles Jueves Viernes Sabado Domingo
tiempo platzi      25      5        10     15      10     30      20
tiempo lecturas    30     10         5     10      15     30      20
> colSums(final_matrix)
    Lunes    Martes Miercoles    Jueves   Viernes    Sabado   Domingo 
       55        15        15        25        25        60        40 

En este caso para agregar una nueva matriz la realize de la siguiente manera

1. Crear matriz

<matrizFinal <- c(0,0,0,0,0,0,0,0,0)>

1. Reasignar variable de matriz

<dias<- rbind(dias, matrizFinal)>

Resultado de la ejecucion

<            LUNES MARTES MIERCOLES JUEVES VIERNES SABADO DOMINGO LUNESA MARTESB
ENERO           1      2         3      4       5      6       7      8       9
FEBRERO         1      2         3      4       5      6       7      8       9
matrizFinal     0      0         0      0       0      0       0      0       0>

reto1_final_matrix<-cbind(final_matrix,c(15,10,10))
reto1_final_matrix

dias<-c("lunes","martes","miercoles","jueves","viernes","sabado")
tiempo<-c("tiempo platzi","tiempo lecturas","posdcast")
colnames(reto1_final_matrix)<-dias
rownames(reto1_final_matrix)<-tiempo

reto1_final_matrix

agregando filas:
final_matriz <- rbind(tiempo_matriz,“tiempo extra”= c(10,1,15,30,9))
luego agremaos columnas:
final_matriz <- cbind(final_matriz, Sabado = c(1, 2, 3))
resultado:
Lunes . Martes Mieroles Jueves Viernes Sabado
tiempo platzi 25 5 10 15 10 1
tiempo lecturas 30 10 5 10 15 2
tiempo extra 10 1 15 30 9 3

Sabado <-c(10,10,15)
final_matrix <- cbind(final_matrix,Sabado)
final_matrix

Hola Buen día

Comparto impresión del ejericio ( con errores y correcciones ) pues creo que de eso se trata.

Gracias!

final_matriz
                Lunes Martes Miercoles Jueves Viernes
Tiempo Platzi      25      5        10     15      10
Tiempo Lecturas    30     10         5     10      15
                   10     15        30      5       0
> final_matriz1 <- cbind(final_matriz,c(20,15,20)
+ final_matriz
Error: unexpected symbol in:
"final_matriz1 <- cbind(final_matriz,c(20,15,20)
final_matriz"
> final_matriz1
                Lunes Martes Miercoles Jueves Viernes         
tiempo platzi   "25"  "5"    "10"      "15"   "10"    "Sabado"
Tiempo lecturas "30"  "10"   "5"       "10"   "15"    "Sabado"
                "10"  "15"   "30"      "5"    "0"     "Sabado"
> final_matriz1 <- cbind(final_matriz,c(20,15,20))
> final_matriz1
                Lunes Martes Miercoles Jueves Viernes   
Tiempo Platzi      25      5        10     15      10 20
Tiempo Lecturas    30     10         5     10      15 15
                   10     15        30      5       0 20
> dias <c(“Lunes”, “Martes”, “Miercoles”, “Jueves”, “Viernes”, “Sabado”)
Error: unexpected input in "dias <c(“"
> dias <- c(“Lunes”, “Martes”, “Miercoles”, “Jueves”, “Viernes”, “Sabado”)
Error: unexpected input in "dias <- c(“"
> dias <- c(“Lunes”, “Martes”, “Miercoles”, “Jueves”, “Viernes”, “Sabado”)
Error: unexpected input in "dias <- c(“"
> dias
[1] "Lunes"     "Martes"    "Miercoles" "Jueves"    "Viernes"  
> dias < - c(“Lunes”, “Martes”, “Miercoles”, “Jueves”, “Viernes”, “Sabado”)
Error: unexpected input in "dias < - c(“"
> dias <- c(“Lunes”, “Martes”, “Miercoles”, “Jueves”, “Viernes”, “Sabado”)
Error: unexpected input in "dias <- c(“"
> dias <- c(“Lunes”, “Martes”, “Miercoles”, “Jueves”, “Viernes”, “Sabado”)
Error: unexpected input in "dias <- c(“"
> dias
[1] "Lunes"     "Martes"    "Miercoles" "Jueves"    "Viernes"  
> dias <- c("Lunes","Martes","Miercoles","Jueves","Viernes","Sabado")
> tiempo
[1] "Tiempo Platzi"   "Tiempo Lecturas"
> Tiempo
[1] "tiempo platzi"   "Tiempo lecturas"
> tiempo <- c("Tiempo Plazti","Tiempos Lecturas","Postcast")
> 
> colnames(final_matriz1) <- dias
> rownames(final_matriz1) <- tiempo
> 
> final_matriz1
                 Lunes Martes Miercoles Jueves Viernes Sabado
Tiempo Plazti       25      5        10     15      10     20
Tiempos Lecturas    30     10         5     10      15     15
Postcast            10     15        30      5       0     20```

Resumen

#matriz
tiempo_platzi <- c(25,5,10,15,10,0)
tiempo_lecturas <- c(30,10,5,10,15,0)
tiempo_corrida <- c(0,0,0,0,0,30)
tiempo_matrix_con_total <- tiempo_platzi + tiempo_lecturas + tiempo_corrida

tiempo_matrix <- matrix(c(tiempo_platzi,tiempo_lecturas,tiempo_corrida,tiempo_matrix_con_total),
nrow = 4, byrow = TRUE)

dias <- c(“Lunes”, “Martes”,“Miercoles”, “Jueves”,“Viernes”,“Sabado”)
Tiempo <- c(“tiempo platzi”,“tiempo lecturas”, “Corrida”,“Total”)

colnames(tiempo_matrix) <- dias
rownames(tiempo_matrix) <- Tiempo

tiempo_matrix

Respuesta al reto

> Sabado <-c(15,20,30)
> cbind(final_matrix,Sabado)
                Lunes Martes Miercoles Jueves Viernes Sabado
tiempo platzi      25      5        10     15      10     15
tiempo lecturas    30     10         5     15      15     20
                   10     15        30      5       0     30```

curso_mate <- c (14,15,17,20)
curso_leng <- c(15,18,10,6)
curso_hist <- c(14,15,13,9)

ciclo_I <- matrix(c(curso_mate,curso_leng,curso_hist),nrow = 3,ncol = 4,byrow= TRUE)

ciclo_I

CURSOS <- c(“Matematica”,“Leguaje”,“Historia”)
UNIDAD <- c(“I”,“II”,“III”,“IV”)

rownames(ciclo_I) <-CURSOS
colnames(ciclo_I) <- UNIDAD

ciclo_I

fisica <- c(18,14,17,19)
ciclo_I_final <- rbind(ciclo_I, fisica)
ciclo_I_final

ciclo_I_final_I <- cbind(ciclo_I_final, v =c(15,18,17,19))
ciclo_I_final_I

#—Agregar Columnas—
#Se crea vector de nueva columna
nueva_columna <- c(20,20,30)
#Se agrega columna “nueva_columna” a la matriz existente
final_matriz <- cbind(final_matriz,nueva_columna)
#Se imprime matriz
final_matriz
#Se agrega el elemento “Sabado” al vector de dias
dias <- c(dias,“Sabado”)
#Se modifica los nombres de columna de la matriz para que incluya el sabado
colnames(final_matriz) <-dias
final_matriz

t_teoria <- c(4,5,6,3,5)
t_practica <-c(3,5,6,7,8)

matriz <- matrix(c(t_teoria,t_practica), ncol = 5, nrow = 2, byrow = TRUE)

colSums(matriz)
rowSums(matriz)

matriz <- cbind(matriz,c(4,3))
matriz <- rbind (matriz,c(2,3,1,2,3,4))

colnames(matriz) <- c(“Lunes”,“Martes”,“Miercoles”,“Jueves”,“Viernes”,“Sabado”)
rownames(matriz) <- c(“T_Teoria”,“T_Practica”,“Repaso”)

colSums(matriz)
rowSums(matriz)

El ejercicio:

final_matrix <- cbind(final_matrix,c(20,10,30))
final_matrix

final_matrix
Lunes Martes Miercoles Jueves Viernes Sabado
tiempo platzi 25 5 10 15 10 20
tiempo lecturas 30 10 5 10 15 10
tiempo podcast 10 15 30 5 0 30

Envío el código que use para agregar filas y columnas:

Se recomienda renombrar la matriz después de agregar la primera fila o columna.

¿hay alguna forma de agregar un parámetro mas a un vector? Tipo si tengo un vector que es:
vector <- c(2,3)
y ahora en ves de ser (2,3) quiero que sea (2,3,4)
¿existe una forma de hacerlo añadiendo directamente el parámetro 4 sin tener que reescribir el vector?
es decir, no quiero hacer esto:
vector <- c(2,3,4)
singo algo como:
vectorNuevo <- funcionMagica(vector, 4)

dias <- c(dias,‘sabado’,‘domingo’)
dias
final_matrix2 <- cbind(final_matrix,c(40,20,30),c(5,5,10))
colnames(final_matrix2) <- dias
final_matrix2

![](

col_sabado <- c(15,10,5)
final_matrix <- cbind(final_matrix, col_sabado)
final_matrix

<code>

Reto

#Comando para agregar una columna, mostrarla y sumar los valores de las columnas
final_matrix2 <- cbind(final_matrix, c(20, 25, 30))
final_matrix2
colSums(final_matrix2)

final_matrix2 <- cbind(final_matrix, c(10,20,30))```

final_matrix <- rbind(tiempo_matrix,c(10,15,30,5,0))

rownames(final_matrix) <- tiempo

final_matrix_2 <- cbind(final_matrix, c(10,10,5))
colnames(final_matrix_2)<- dias 

Cual es el peligro de usar los vectores con " = " ??

New_day_matrix <- cbind(tiempo_matrix,sabado = c(10,10))
New_day_matrix

Podcast_matrix <- rbind(New_day_matrix,"tiempo podcast" = c(10,15,20,30,45,10))
Podcast_matrix

total_matrix <- rbind(Podcast_matrix,"total" = colSums(Podcast_matrix))
total_matrix```

> total_matrix
                Lunes Martes Miercoles Jueves Viernes sabado
tiempo platzi      25      5        10     10      30     10
tiempo lecturas    10      5        10     15      25     10
tiempo podcast     10     15        20     30      45     10
total              45     25        40     55     100     30

# agregar columna a la matrix 

matrixfinalcol <- cbind(MatrixFinal,c(10,15,30))

#agrega etiqueta a la nueva col
colnames(matrixfinalcol)[6]<-"Sabado"

matrixfinalcol```

 #agregar nombre a la nueva fila
 Tiempo <- c("tiempo_platzi","tiempo_lecturas","Podcast")
 rownames(final_matrix) <- Tiempo
 final_matrix
 
 #agregar una nueva colunma a una matriz
 
 final_matrix <- cbind(final_matrix, c(5,2,1))
 final_matrix
 
 #agregar nombre a la nueva columna
 
 dias <- c("Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado")
 colnames(final_matrix) <- dias
 final_matrix```

Reto logrado:

final_plus_matrix <- cbind(final_matrix, c(30,60,20))

colnames(final_plus_matrix) <- c(“Lunes”, “Martes”, “Miercoles”, “Jueves”, “Viernes”, “Sabado”)
row.names(final_plus_matrix) <-c(“Platzi”, “Lectura”, “Podcast”)

Por cierto: ¿Alguien sabe como pegar screenshots? la barra de comentarios no me deja y no entiendo lo que me pone cuando doy clic a imágenes. Salu2