Código que hace una base de datos con las notas
library(dplyr)
nombres <- c("Ricardo Gonzalez", "Cecilia Carmona", "Benedicto Romero",
"Hermman Bauer", "Leontina Quiñones", "Nelson Hermosilla",
"Felipe Hernandez", "Cristina Dubournais", "Maria Luisa Ubeda")
pregunta_1 <- c(1.5,2,2,2,2,1.8,1.8,1.2,2)
pregunta_2 <- c(0.7,1.5,1.5,2,1.5,1.5,1.5,1.5,2)
pregunta_3 <- c(1,1.5,1.5,1.5,2,2,2,1.5,1.5)
tarea_1_df <- data.frame(nombres,pregunta_1,pregunta_2,pregunta_3)
tarea_1_df <- tarea_1_df |>
mutate(total_puntaje = pregunta_1 + pregunta_2 + pregunta_3) |>
mutate(nota = total_puntaje + 1) |>
arrange(nombres)
Tabla de notas
library(kableExtra)
tarea_1_df |>
kbl() |>
kable_styling(bootstrap_options = c("striped", "hover"))
|
nombres
|
pregunta_1
|
pregunta_2
|
pregunta_3
|
total_puntaje
|
nota
|
|
Benedicto Romero
|
2.0
|
1.5
|
1.5
|
5.0
|
6.0
|
|
Cecilia Carmona
|
2.0
|
1.5
|
1.5
|
5.0
|
6.0
|
|
Cristina Dubournais
|
1.2
|
1.5
|
1.5
|
4.2
|
5.2
|
|
Felipe Hernandez
|
1.8
|
1.5
|
2.0
|
5.3
|
6.3
|
|
Hermman Bauer
|
2.0
|
2.0
|
1.5
|
5.5
|
6.5
|
|
Leontina Quiñones
|
2.0
|
1.5
|
2.0
|
5.5
|
6.5
|
|
Maria Luisa Ubeda
|
2.0
|
2.0
|
1.5
|
5.5
|
6.5
|
|
Nelson Hermosilla
|
1.8
|
1.5
|
2.0
|
5.3
|
6.3
|
|
Ricardo Gonzalez
|
1.5
|
0.7
|
1.0
|
3.2
|
4.2
|