str(lib)
## 'data.frame':    72 obs. of  6 variables:
##  $ faculty     : chr  "ศึกษาศาสตร์" "ศึกษาศาสตร์" "ศึกษาศาสตร์" "ศึกษาศาสตร์" ...
##  $ month       : chr  "ม.ค." "ก.พ." "มี.ค." "เม.ย." ...
##  $ borrows     : int  652 880 668 421 517 227 262 644 903 708 ...
##  $ students    : int  3200 3200 3200 3200 3200 3200 3200 3200 3200 3200 ...
##  $ satisfaction: num  4.1 3.8 3.4 3.6 4 3.9 4 4 3.9 3.4 ...
##  $ responses   : int  200 202 158 170 162 69 70 241 267 182 ...
head(lib)
##     faculty month borrows students satisfaction responses
## 1 ศึกษาศาสตร์  ม.ค.     652     3200          4.1       200
## 2 ศึกษาศาสตร์  ก.พ.     880     3200          3.8       202
## 3 ศึกษาศาสตร์  มี.ค.     668     3200          3.4       158
## 4 ศึกษาศาสตร์ เม.ย.     421     3200          3.6       170
## 5 ศึกษาศาสตร์  พ.ค.     517     3200          4.0       162
## 6 ศึกษาศาสตร์  มิ.ย.     227     3200          3.9        69


ข้อ 1 — คณะที่มีนักเรียนใช้ห้องสมุดเยอะที่สุด (3 คะแนน)

result = lib %>%
  group_by(faculty) %>%
  summarise(total_students = sum(students, na.rm = TRUE)) %>%
  arrange(desc(total_students))
ggplot(lib, aes(x = faculty, y = students)) +
  geom_col(fill = "steelblue")

คำตอบ (3–4 บรรทัด — “มากที่สุด” ของคุณนับจากอะไร และทำไมเลือกนับแบบนั้น) >มากที่สุดคือศึกษาศาสตร์เพราะนับจำนวนักเรียนที่เข้าใช้งาน


ข้อ 2 — เดือนไหนเหมาะกับการจัดกิจกรรมโดยมีผลตอบกลับเยอะ (3 คะแนน)

month_order <- c("ม.ค.", "ก.พ.", "มี.ค.", "เม.ย.", "พ.ค.", "มิ.ย.", 
                 "ก.ค.", "ส.ค.", "ก.ย.", "ต.ค.", "พ.ย.", "ธ.ค.")
Activity <- lib %>%
  mutate(month = factor(month, levels = month_order)) %>%
  group_by(month) %>%
  summarise(total_responses = sum(responses, na.rm = TRUE))

ggplot(Activity, aes(x = month, y = total_responses)) +
  geom_col(fill = "#6699FF") +
  theme_minimal() +
  labs(title = "จำนวนการตอบรับแยกตามเดือน", x = "เดือน", y = "จำนวนการตอบรับ")

คำตอบ (2 บรรทัด — แนะนำเดือนไหน เพราะอะไร)

แนะนำให้จัดในช่วงเดือน ก.พ. หรือ ก.ย. นะครับเพราะว่าใน2เดือนนั้นมีการตอบกลับสูงสามารถเก็บข้อมูลและปรับปรุงงานได้


ข้อ 3 — หน้าที่ผู้อ่านกดดูจำนวนนักเรียนแต่ละคณะต่อเดือนเองได้ (4 คะแนน)

sd <- SharedData$new(lib)
filter_select("faculty_filter", "เลือกคณะ:", sd, ~faculty, multiple = FALSE)
plot_ly(sd, x = ~faculty, y = ~students, type = 'bar', color = "#6699FF")%>%
  layout(
    xaxis = list(title = "สาขาวิชา"),
    yaxis = list(title = "จำนวน (คน)")
  )
datatable(sd, options = list(pageLength = 5, dom = 't'))


ข้อ 4 — ตรวจข้อสรุปของผู้บริหาร (3 คะแนน)

ตัวเลข 4.7 ถูกไหม

ข้อสรุปนี้มีปัญหาอะไร (พร้อมตัวเลขยืนยัน)


ข้อ 5 — บันทึกการใช้ AI (2 คะแนน)

prompt ที่ใช้ (คัดลอกมาเต็ม ๆ อย่างน้อย 1 อัน)

สิ่งที่แก้จากที่ AI ให้มา และทำไมต้องแก้


ถ้า knit ไม่ผ่าน เขียนไว้ตรงนี้ว่าติดตรงไหน