Tracking Services Status ICON Survey Report

Asst. Prof. Inthraporn (Joop) Aranyanak, PhD

install.packages("readxl")

Error in install.packages : Updating loaded packages

install.packages("openxlsx")

WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:

https://cran.rstudio.com/bin/windows/Rtools/
Installing package into ‘C:/Users/User/AppData/Local/R/win-library/4.4’
(as ‘lib’ is unspecified)
trying URL 'https://cran.rstudio.com/bin/windows/contrib/4.4/openxlsx_4.2.5.2.zip'
Content type 'application/zip' length 2370526 bytes (2.3 MB)
downloaded 2.3 MB

package ‘openxlsx’ successfully unpacked and MD5 sums checked

The downloaded binary packages are in
    C:\Users\User\AppData\Local\Temp\RtmpiAJGoY\downloaded_packages

install.packages("ggplot2")

Error in install.packages : Updating loaded packages

#install.packages("tidyverse")
install.packages("multcomp")

Error in install.packages : Updating loaded packages

install.packages("magick")

Error in install.packages : Updating loaded packages

Upload the file into the dataframe

library(readxl)
library(ggplot2)
library(tidyverse)
library(multcomp)
library(dplyr)
library(magick)

ICONS

data <- read_excel("C:\\Users\\User\\Desktop\\Survey Signup +Icon\\TrackingSevicesStatusIcon.xlsx")
# print(data)
summary(data)

       Id             Icon1          Icon2          Icon3           Icon4      
 Min.   :  1.00   Min.   :1.00   Min.   :1.00   Min.   :1.000   Min.   :1.000  
 1st Qu.: 36.25   1st Qu.:2.00   1st Qu.:2.00   1st Qu.:2.000   1st Qu.:4.000  
 Median : 71.50   Median :4.00   Median :3.00   Median :3.000   Median :5.000  
 Mean   : 71.50   Mean   :3.62   Mean   :2.88   Mean   :3.338   Mean   :4.958  
 3rd Qu.:106.75   3rd Qu.:5.00   3rd Qu.:4.00   3rd Qu.:5.000   3rd Qu.:6.000  
 Max.   :142.00   Max.   :7.00   Max.   :7.00   Max.   :7.000   Max.   :7.000  
     Icon5          Icon6      
 Min.   :1.00   Min.   :1.000  
 1st Qu.:2.00   1st Qu.:1.000  
 Median :4.00   Median :2.000  
 Mean   :4.12   Mean   :2.725  
 3rd Qu.:6.00   3rd Qu.:4.000  
 Max.   :7.00   Max.   :7.000  

# เปลี่ยนรูปแบบจาก wide เป็น narrow
data2 <- data %>%
  pivot_longer(cols = starts_with("Icon"),
               names_to = "variable",      
               values_to = "value") %>%
  mutate(variable = as.factor(variable))
# print(data2)

#คำนวณ mean & SD เพื่อนำไปใช้ในการสร้าง Error Bar
summary_data <- data2 %>%
  group_by(variable) %>%
  summarize(
    mean_value = mean(value),
    se = sd(value) / sqrt(n()))

print(summary_data)

#สร้างกราฟแท่งจาก Mean ของแต่ละไอคอน พร้อมใส่ Error Bar

ggplot(summary_data, aes(x = variable, y = mean_value)) +
  geom_bar(stat = "identity", fill = "orange", width = 0.6) +
  geom_errorbar(aes(ymin = mean_value - se*1.96, ymax = mean_value + se*1.96), width = 0.2) +
  geom_text(aes(label = round(mean_value, 2), y = mean_value), vjust = -0.5, hjust = -0.3, size = 3, color = "blue") +
  labs(title = "กราฟแสดงผลความพึงพอใจของแต่ละรูปแบบไอคอน", x = "รูปแบบไอคอน", y = "ระดับความพึงพอใจ")

ggplot(data2, aes(x = variable, y = value)) +
  geom_boxplot() +
  labs(title = "แจกแจงการกระจายตัวข้อมูลของแต่ละไอคอน",
       x = "รูปแบบไอคอน",
       y = "ค่าความพึงพอใจ")

# การวิเคราะห์ ANOVA เพื่อดูผลภาพรวมความต่างว่ามีนัยสำคัญหรือไม่
 anova_result <- aov(value ~ variable , data = data2)
 summary(anova_result)

             Df Sum Sq Mean Sq F value Pr(>F)    
variable      5  492.1   98.42   31.22 <2e-16 ***
Residuals   846 2667.2    3.15                   
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

posthoc_result <- glht(anova_result, linfct = mcp(variable = "Tukey"))
 summary(posthoc_result)

     Simultaneous Tests for General Linear Hypotheses

Multiple Comparisons of Means: Tukey Contrasts


Fit: aov(formula = value ~ variable, data = data2)

Linear Hypotheses:
                   Estimate Std. Error t value Pr(>|t|)    
Icon2 - Icon1 == 0  -0.7394     0.2107  -3.509  0.00633 ** 
Icon3 - Icon1 == 0  -0.2817     0.2107  -1.337  0.76446    
Icon4 - Icon1 == 0   1.3380     0.2107   6.350  < 0.001 ***
Icon5 - Icon1 == 0   0.5000     0.2107   2.373  0.16694    
Icon6 - Icon1 == 0  -0.8944     0.2107  -4.244  < 0.001 ***
Icon3 - Icon2 == 0   0.4577     0.2107   2.172  0.25193    
Icon4 - Icon2 == 0   2.0775     0.2107   9.859  < 0.001 ***
Icon5 - Icon2 == 0   1.2394     0.2107   5.882  < 0.001 ***
Icon6 - Icon2 == 0  -0.1549     0.2107  -0.735  0.97754    
Icon4 - Icon3 == 0   1.6197     0.2107   7.686  < 0.001 ***
Icon5 - Icon3 == 0   0.7817     0.2107   3.710  0.00315 ** 
Icon6 - Icon3 == 0  -0.6127     0.2107  -2.907  0.04326 *  
Icon5 - Icon4 == 0  -0.8380     0.2107  -3.977  0.00109 ** 
Icon6 - Icon4 == 0  -2.2324     0.2107 -10.594  < 0.001 ***
Icon6 - Icon5 == 0  -1.3944     0.2107  -6.617  < 0.001 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Adjusted p values reported -- single-step method)

ผลสรุปจากค่าสถิติและจากกราฟแสดงให้เห็นว่าคะแนนเฉลี่ยว่าไอคอนเหล่านี้สื่อความหมายมากที่สุด ไล่เลี่ยกันก็คือ Icon 4, Icon 5 และเมื่อวิเคราะห์โดยละเอียดจากค่าทางสถิติพบว่า Icon 4 กับ Icon 5 มีผลที่ต่างกันอย่างมีนัยสำคัญทางสถิติ และประกอบกับกราฟการกระจายตัวที่แสดงว่า Icon 4 มีการกระจายตัวของข้อมูลน้อยกว่าไอคอนอื่นๆ ซึ่งหมายความว่าการประมาณค่าประชากรจากข้อมูลตัวอย่าง นั้นมีความแม่นยำ น่าเชื่อถือ และความแปรปรวนต่ำ จึงเห็นว่า ไอคอน 1 สามารถสื่อความหมาย “ติดตามสถานะงานขอใช้บริการ” ได้มากที่สุด

คอมเม้นต์จากผู้ใช้ได้อธิบายเหตุผลของไอคอนที่สื่อมากที่สุดสองอันดับแรกว่า ไอคอน 4 สามารถออกแบบได้สื่อถึงเอกสารที่ได้แจ้งไว้และแสดงถึงการติดตามมากที่สุด ไอคอน 5 รองลงมา ผู้ใช้ส่วนใหญ่เห็นว่าสัญลักษณ์รูปนาฬิกาสามารถสื่อถึงการติดตามงาน หรือรออะไรบางอย่าง

และจากผลการสำรวจพบว่า Icon 6 คนส่วนใหญ่มีความเห็นว่าไอคอนนี้ไม่สามารถสื่อถึงการติดตามสถานะงานขอใช้บริการมากที่สุด

สรุปได้ว่า Icon 4 สื่อความหมาย”ติดตามสถานะงานขอใช้บริการ” ได้มากที่สุด โดยอาจมีเพิ่มเติมใส่เป็นสถานะติดตามด้านบนหัวกระดาษ หรือ เครื่องหมายติ้กถูกตรงเช็คบ๊อกได้แล้วแต่ความเหมาะสมเหมาะสม