1. R datarium ÆÐÅ°Áö¿¡ ³»ÀåµÈ jobsatisfaction µ¥ÀÌÅͼÂÀº ³²³à 58¸íÀÇ ¼ºº°(gender), ±³À°¼öÁØ(education_level), Á÷¾÷¸¸Á·µµÁ¡¼ö(score)ÀÇ µ¥ÀÌÅ͸¦ Æ÷ÇÔÇÏ°í ÀÖ´Ù. ÀÌ µ¥ÀÌÅ͸¦ ÀÌ¿ëÇÏ¿© ´ÙÀ½ÀÇ ¹®Ç׿¡ ´äÇϽÿÀ.
1-(1) Á÷¾÷¸¸Á·µµÁ¡¼öÀÇ »óÀڱ׸²À» ¼ºº°·Î ³ª¶õÈ÷ ±×¸®½Ã¿À. ±×·¡ÇÁÀÇ Á¦¸ñÀ¸·Î º»ÀÎÀÇ ÇйøÀ» ³ÖÀ¸½Ã¿À. (3Á¡)
# install.packages(datarium)
library(datarium)
# µ¥ÀÌÅͼ ºÒ·¯¿À±â
data(jobsatisfaction)
head(jobsatisfaction,3)
# ¼ºº° »óÀڱ׸²
boxplot(score ~ gender, data ¡ë jobsatisfaction,
main ¡ë º»ÀÎÀÇ Çйø, # º»ÀÎÀÇ ÇйøÀ¸·Î ¼öÁ¤
xlab ¡ë ¼ºº°,
ylab ¡ë Á÷¾÷¸¸Á·µµÁ¡¼ö,
col ¡ë yellow)
# »óÀڱ׸²¿¡ ¼ºº° Æò±Õ Ç¥½Ã(Àû»ö + À§Ä¡°¡ Æò±ÕÀÓ), cex Á¡ÀÇ Å©±â, pch Æ÷ÀÎÆ® Á¾·ù
points(aggregate(score ~ gender, data¡ë jobsatisfaction, mean), pch¡ë3, col¡ëred, cex¡ë2)
# Âü°í(ggplot2 ÆÐÅ°Áö·Î ±×¸®±â)
library(ggplot2)
# ¼ºº° »óÀڱ׸²
ggplot(jobsatisfaction, aes(x ¡ë gender, y ¡ë score, fill ¡ë gender)) +
geom_boxplot() +
labs(title ¡ë º»ÀΡ¦(»ý·«)
|
½É¼Û¿ë, ÀÌÀ±µ¿, ÀÌÀº°æ, ¹Ú¼¿µ, Rµ¥ÀÌÅͺм®, ÃâÆǹ®È¿ø, 2022. Åë°èÇа³·Ð, ¹Ú¼¿µ¡¤À̱âÀ硤À̱àÈñ¡¤À念Àç, Çѱ¹¹æ¼ÛÅë½Å´ëÇб³ÃâÆǹ®È¿ø, 2022. RÀ» È°¿ëÇÑ µ¥ÀÌÅÍ ½Ã°¢È, À¯ÃæÇö¡¤È«¼ºÇÐ, ÀλçÀÌÆ®(insight), 2015.
|