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

Our Shangri-La
Ico64
Kittisakdi Choomalee

ภาควิชาเวชศาสตร์ชุมชน คณะแพทยศาสตร์ มหาวิทยาลัยสงขลานครินทร์
Network
Members · Following: 0 · Followed: 16

อ่าน: 1212
ความเห็น: 1

ก้าวย่าง ทางเดิน ลืมเลือนคืนวัน ดั้นด้นไป: หนึ่งคำถามกับ R - axis break 2

ย่อได้ ทำได้ แต่ใช่หรือเปล่า

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

ฮา

วันนี้เป็นวันศุกร์แห่งชาติผมขอปล่อยบันทึกมากกว่า ๑ บันทึกใน ๑ วันนะครับ

พิเศษเพิ่มข้าว ไม่ใส่ไข่ครับ

ความเดิมครั้งที่แล้วผมพาเฉไฉออกนอกเรื่องไปไกลครับ

ผมพูดถึงข้อมูลที่มีค่าต่างกันมาก ๆ หรือข้อมูลที่มีลักษณะเป็นกลุ่มที่แต่ละกลุ่มมีความ (ค่า) ต่างกันมาก ๆ เมื่อนำข้อมูลทุกกลุ่มาอยู่ในกราฟเดียวกันจะทำให้เกิดความแตกต่างของตำแหน่งที่อยู่ในกราฟเป็นอย่างมาก

หรืออาจจะเกิดการสูญหายของข้อมูลบางอย่างเกิดขึ้นเนื่องจากข้อมูลมีค่าต่างกันมากและถูกจับให้มาอยู่ในพื้นที่จำกัด ค่า scale ของแกนจะเป็น scale ที่ค่อนค้างหยาบ หรือแต่ละช่วงจะมีค่าห่างกันมาก

ในบันทึกที่แล้วผมบอกเล่าไปว่าบางครั้งถ้าเราเจอข้อมูลที่มีลักษณะที่ค่าของข้อมูลมีความแตกต่างกันมาเช่นนี้ เราต้องทำการแปลงข้อมูลให้อยู่ในรูปของ scale อื่น ๆ เช่น log scal, exponential, square root เป็นต้น

ข้อมูลเช่นนี้เป็นข้อมูลที่นำเสนอข้อเท็จจริงของโลก ของธรรมชาติอย่างหนึ่งก็คือ ธรรมชาติไม่ได้มีเพียงระนาบเดียวเท่านั้น ธรรมชาติเป็นสิ่งที่ซับซ้อน สิ่งใด ๆ ในธรรมชาติไม่ได้มีเพียงแค่ความเป้นเส้นตรง ตรงไปตรงมาเท่านั้น แต่มีทั้งที่ตรงไปตรงมา ที่ซับซ้อนซ่อนเงื่อน ที่เลี้ยวลดคดโค้งไปมา หรือที่แตกต่างกันสุดขั้ว

โมเดลของสมการทางคณิตศาสตร์จึงไม่ได้มีแค่โมเดลของสมการเส้นตรง

กลับมานะครับ เข้าเรื่องกันต่อ

ผมลองให้ดูข้อมูลตัวอย่างนี้นะครับ

และอีกเช่นเดิมที่ข้อมูลในตัวอย่างด้านล่างนี้ผมใช้วิธีการ "กำหนดแบบมั่ว ๆ" ขึ้นมาตามใจชอบครับ

> a3 <-c(100, 200, 150, 220, 190,5000, 4500, 3452)

ผมกำหนดค่าให้กับวัตถุ a3 เป็น ๑๐๐, ๒๐๐, ๑๕๐, ๒๒๐, ๕,๐๐๐ ๔,๕๐๐ และ ๓,๔๕๒ ตามลำดับ จากข้อมูลข้างต้น ผมจงใจให้ข้อมูลแบ่งเป็น ๒ กลุ่มคือช่วง ๑๐๐ - ๒๒๐ และช่วง ๓,๔๕๒ - ๕,๐๐๐

เมื่อนำข้อมูลที่อยู่ในภายในวัตถุ a3 มาสร้างแผนภูมิแท่งแบบปกติที่ไม่มีการจัดการใด ๆ กับข้อมูลเลย ดังบรรทัดคำสั่งด้านล่าง จะได้แผนภูมิเป็น

> barplot(a3,col=rainbow(length(a3)))

จากแผนภูมิข้างบนจะเห็นว่าข้อมูลช่วง ๑๐๐ - ๒๒๐ จะเตี้ยเกือบติดแกนนอน ส่วนข้อมูลช่วงที่ ๒ ที่มีค่าระหว่าง ๓,๐๐๐๐ - ๕,๐๐๐ จะมีความสูงของแท่งมากกว่าข้อมูลช่วงที่ ๑ มาก

ผมนำข้อมูลข้างต้นมาสร้างแผนภูมิด้วยคำสั่ง gap.barplot() จากชุดคำสั่ง plotrix ของ R จะได้แผนภูมิเป็น

> library(plotrix)
> gap.barplot(a3, gap=c(300,3200))
> axis.break(2,300,style="zigzag")

 

บรรทัดคำสั่งบรรทัดแรกจะเป็นการโหลดชุดคำสั่ง plotrix เข้าสู่หน่วยความจำ

บรรทัดคำสั่งบรรทัดที่ ๒ เป็นการสร้างแผนภูมิแท่งด้วยคำสั่ง gap.barplot() โดยใช้ข้อมูลจากวัตถุ a3 มาเป็นข้อมูลสร้างแผนภูมิ กำหนดค่าที่ให้ตัดช่วงความสูงของแท่งกราฟทิ้งไปที่แกนตั้งมีค่าเท่ากับ ๓๐๐ - ๓,๒๐๐ (gap=c(300,3200))

หรือตัดบางส่วนของแท่งข้อมูลที่มีค่าสูงๆ (เกิน ๓,๐๐๐) ออก นำเฉพาะส่วนยอดมาวางต่อกับข้อมูลชุดแรก

บรรทัดคำสั่งบรรทัดที่ ๓ ใช้เพื่อกำหนดให้สร้างรอยตัดแกนตั้งที่ตำแหน่งแกนตั้งมีค่าเท่ากับ ๓๐๐ และกำหนดรูปแบบการตัดแกนตั้งให้เป็นรูปซิกแซก (style="zigzag")

ดูดีมีระดับขึ้นมานิดนึงใช่ไหมครับ แต่ค่าที่ label ให้กับแกนตั้งยังเป็นค่าที่หยาบอยู่ครับ

ครั้งต่อไปเรามากำหนดค่าให้กับแกนตั้งกันนะครับ เอาแบบตามใจผู้ใช้ครับ

เราเอง

ชื่อเพลง: รำวงสาละวัน
ศิลปิน: ไวพจน์ เพชรสุพรรณ
แนวคิดเลือกเพลง: เอาแบบขำ ๆ ครับ มีเนื้อหาในบันทึกที่แล้วที่เป็นบันทึกต่อเนื่องกับันทึกนี้ ผมเขียนถึงการทำให้แท่งข้อมูลในแผนภูมิเดี้ยลง แล้วไปยืมคำร้องของเพลงนี้มาต่อเป็นสร้อยคำ เตี้ยลง สาละวันเตี้ยลง เลยนำมาใส่ประกอบบันทึกนี้ครับ ^_^

หมวดหมู่บันทึก: บริการวิชาการ
สัญญาอนุญาต: ซีซี: แสดงที่มา-ไม่ใช้เพื่อการค้า-อนุญาตแบบเดียวกัน Cc-by-nc-sa
สร้าง: 11 มกราคม 2556 17:07 แก้ไข: 11 มกราคม 2556 17:07 [ แจ้งไม่เหมาะสม ]
ดอกไม้
สมาชิกที่ให้กำลังใจ: Ico24 ServiceMan และ Ico24 ทดแทน.
สมาชิกที่ให้กำลังใจ
 
Facebook
Twitter
Google

บันทึกอื่นๆ

ความเห็น

Ico48
Thanos [IP: 103.57.177.154]
18 มกราคม 2562 13:33
#108404

I am here for the share this nice article need to download settings windows 10 here and save the all process to batter working to upgrade the windows version.


ร่วมแสดงความเห็นในหน้านี้

ชื่อ:
อีเมล:
IP แอดเดรส: 34.228.115.216
ข้อความ:  
เรียกเครื่องมือจัดการข้อความ
   
ยกเลิก หรือ