นโยบายการจัดการความรู้ มหาวิทยาลัยสงขลานครินทร์ 1.ให้ใช้เครื่องมือการจัดการความรู้ผลักดัน คุณภาพคน และกระบวนทำงาน 2.ส่งเสริมการแลกเปลี่ยนประสบการณ์การทำงาน จากหน้างาน 3.ส่งเสริมให้มีเวทีเรียนรู้ร่วมกัน

Ico24 ถ้าผมมีแฟนเป็นสาวภาค math

Ico48
NovemberRain (Recent Activities)
03 April 2009 06:00
#43110
ผมพยายามเขียนตัวอย่างที่ เกลอ ยกมา โดยใช้ R แบบง่ายๆ นะครับ

สมมติครับ สมมติ ว่าผม "เดท" กับดารา 7 คน
ผมก็สร้าง vector  แสดงจำนวนความถี่ที่ผมไปกับดาราแต่ละคนออกมา แล้วผมตั้งชื่อมันว่า mydate

> mydate <- c(5, 10, 1, 8, 20, 15, 60)

# ผมเดทกับ 7 คนที่ว่า ตามลำดับ จาก 5, 10, ...  ไปจนถึง 60 ครั้ง

> names(mydate) <- c("Paeng", "Chompoo", "May", "Tangmo", "Peemai", "Pinky", "Pancake")

# เพื่อไม่ให้สับสนว่าผมไปกับใครบ้าง อ่ะ -- ผมตั้งชื่อไว้หน่อยนึง
# มี แป้ง ชมพู่ เมย์ แตงโม ปีใหม่ พิ้งกี้ แล้วก็แพนเค้ก
# ผมไม่รู้หรอกครับ ว่าใครเป็นใคร อาศัยเปิดเอาจากหน้าบันเทิงไทยรัฐ
# เจอชื่อใครก่อน ก็เอาชื่อนั้น ดีหน่อยที่ไม่เจอชื่อ "คุณระเบียบ"

> mydate

# ดูหน่อย ว่าเราไปเดทกับใครกี่ครั้ง

  Paeng Chompoo     May  Tangmo  Peemai   Pinky Pancake
      5      10       1       8      20      15      60

> boxplot(mydate, main="my celebrity date", horizontal=TRUE)

# ลองสั่ง boxplot ดู ได้ผลเป็นข้างล่างครับ
# ใครจะลองเอาไปเล่นก็ได้ครับ R เบื้องต้นไม่ยากครับ
# ที่เห็นเป็น "#" คือ comment ของ program รวมเบ็ดเสร็จจากสร้างข้อมูลจนถึง plot แค่สามคำสั่งเองครับ
#  สีน้ำเงินคือ output


mydate