Skip to content
Snippets Groups Projects
Select Git revision
  • master
1 result

analisis_usabilidad.R

Blame
    • Code owners
    Assign users and groups as approvers for specific file changes. Learn more.
    analisis_usabilidad.R 2.37 KiB 
    library(lessR)

data <- read.csv("C:/Users/javie/Documents/UNIVERSIDAD/TFGInformatica/resultados_test_usabilidad.csv", header = T, sep = ";", stringsAsFactors = TRUE)

PieChart(Edad, hole = 0, values = "input", data = data, values_size=2, main = "Distribucin de usuarios por edad")
PieChart(Conocimientos, hole = 0, values = "input", data = data, values_size=2, main = "Distribucin de usuarios por conocimientos")
xtabs(~Edad+Conocimientos, data=data)

plot(NULL ,xaxt='n',yaxt='n',bty='n',ylab='',xlab='', xlim=0:1, ylim=0:1)
legend("topleft", legend = c("Joven", "Mediana", "Mayor"), pch=16, pt.cex=3, cex=1.5, bty='n',
       col = c('red', 'blue', 'green'))
legend("topright", legend = c("Inexperto", "Curioso", "Avanzado"), pch=c(4,3,2), pt.cex=3, cex=1.5, bty='n')

plot(data$ID, data$Res_tarea_1, ylab = "Tiempo en Tarea 1 (s)", xlab="ID", col = as.numeric(data$Edad) + 1, pch = as.numeric(data$Conocimientos) + 1, cex=1.5)
plot(data$ID, data$Res_tarea_1_1, ylab = "Tiempo en Tarea 1.1 (s)", xlab="ID", col = as.numeric(data$Edad) + 1, pch = as.numeric(data$Conocimientos) + 1, cex=1.5)
plot(data$ID, data$Res_tarea_1_2, ylab = "Tiempo en Tarea 1.2 (s)", xlab="ID", col = as.numeric(data$Edad) + 1, pch = as.numeric(data$Conocimientos) + 1, cex=1.5)
plot(data$ID, data$Res_tarea_1_3, ylab = "Tiempo en Tarea 1.3 (s)", xlab="ID", col = as.numeric(data$Edad) + 1, pch = as.numeric(data$Conocimientos) + 1, cex=1.5)
plot(data$ID, data$Res_tarea_2, ylab = "Tiempo en Tarea 2 (s)", xlab="ID", col = as.numeric(data$Edad) + 1, pch = as.numeric(data$Conocimientos) + 1, cex=1.5)
plot(data$ID, data$Res_tarea_3, ylab = "Tiempo en Tarea 3 (s)", xlab="ID", col = as.numeric(data$Edad) + 1, pch = as.numeric(data$Conocimientos) + 1, cex=1.5)

plot(data$ID, data$Val_global, ylab = "Valoracion Global", xlab="ID", col = as.numeric(data$Edad) + 1, pch = as.numeric(data$Conocimientos) + 1, cex=1.5)
plot(data$ID, data$Val_interaccion, ylab = "Valoracion de la claridad en la Interaccin", xlab="ID", col = as.numeric(data$Edad) + 1, pch = as.numeric(data$Conocimientos) + 1, cex=1.5)
plot(data$ID, data$Val_estetica, ylab = "Valoracion Esttica", xlab="ID", col = as.numeric(data$Edad) + 1, pch = as.numeric(data$Conocimientos) + 1, cex=1.5)
plot(data$ID, data$Val_comprensibilidad, ylab = "Valoracion de la Comprensibilidad del informe", xlab="ID", col = as.numeric(data$Edad) + 1, pch = as.numeric(data$Conocimientos) + 1, cex=1.5)