20200694

간이 과제 1 , 마감 3/27

펭귄의 암수 성별(Sx)과 펭귄의 종류(sp)에 따라

날개길이(fl)가 어떻게 다른지 알아보기 위한 방법으로,

pengs 데이터를 이용하여,

아래에 나와 있는 상자그림을 그렸다.

아래에 나와 있는 상자그림과 동일한 그림을

그릴 수 있는 R 코드를 생성하고,

동일한 그림을 그리시오.

가능한 비슷하게 그리면 됨.

많이 비슷할수록 높은 보너스 점수를 부여함.

제출은, R markdown 파일로 코드와 결과를 만들어서,

knitr 을 사용하여 출력한 html 파일을 함께,

사이버캠퍼스에 제출하면 됨.

install.packages("palmerpenguins")

## 'C:/Users/gnldy/AppData/Local/R/win-library/4.3'의 위치에 패키지(들)을 설치합니다.
## (왜냐하면 'lib'가 지정되지 않았기 때문입니다)

## 패키지 'palmerpenguins'를 성공적으로 압축해제하였고 MD5 sums 이 확인되었습니다
## 
## 다운로드된 바이너리 패키지들은 다음의 위치에 있습니다
##  C:\Users\gnldy\AppData\Local\Temp\RtmpSkAxBl\downloaded_packages

library(palmerpenguins)

dim(penguins)

## [1] 344   8

head(penguins,3)

## # A tibble: 3 × 8
##   species island    bill_length_mm bill_depth_mm flipper_length_mm body_mass_g
##   <fct>   <fct>              <dbl>         <dbl>             <int>       <int>
## 1 Adelie  Torgersen           39.1          18.7               181        3750
## 2 Adelie  Torgersen           39.5          17.4               186        3800
## 3 Adelie  Torgersen           40.3          18                 195        3250
## # ℹ 2 more variables: sex <fct>, year <int>

tail(penguins,3)

## # A tibble: 3 × 8
##   species   island bill_length_mm bill_depth_mm flipper_length_mm body_mass_g
##   <fct>     <fct>           <dbl>         <dbl>             <int>       <int>
## 1 Chinstrap Dream            49.6          18.2               193        3775
## 2 Chinstrap Dream            50.8          19                 210        4100
## 3 Chinstrap Dream            50.2          18.7               198        3775
## # ℹ 2 more variables: sex <fct>, year <int>

pengs <- na.omit(penguins)
names(pengs) <-c('sp','is','bl','bd','fl','ms','sx','yr')

peng<- na.omit(penguins[,-7])
names(peng) <-c('sp','is','bl','bd','fl','ms','yr')

dim(penguins)

## [1] 344   8

dim(pengs)

## [1] 333   8

dim(peng)

## [1] 342   7

head(pengs)

## # A tibble: 6 × 8
##   sp     is           bl    bd    fl    ms sx        yr
##   <fct>  <fct>     <dbl> <dbl> <int> <int> <fct>  <int>
## 1 Adelie Torgersen  39.1  18.7   181  3750 male    2007
## 2 Adelie Torgersen  39.5  17.4   186  3800 female  2007
## 3 Adelie Torgersen  40.3  18     195  3250 female  2007
## 4 Adelie Torgersen  36.7  19.3   193  3450 female  2007
## 5 Adelie Torgersen  39.3  20.6   190  3650 male    2007
## 6 Adelie Torgersen  38.9  17.8   181  3625 female  2007

library(tidyverse)

# 패키지 불러오기

install.packages("palmerpenguins")

## Warning: 패키지 'palmerpenguins'가 사용중이므로 설치되지 않을 것입니다

install.packages("dplyr")

## Warning: 패키지 'dplyr'가 사용중이므로 설치되지 않을 것입니다

install.packages("ggplot2")

## Warning: 패키지 'ggplot2'가 사용중이므로 설치되지 않을 것입니다

library(palmerpenguins)
library(dplyr)
library(ggplot2)


# 변수 및 함수 지정

pengs = na.omit(penguins)

names(pengs) = c('sp', 'is', 'bl','bd', 'fl','ms','sx','yr')


# 상자 그림 그리기

ggplot(pengs, aes(x=fl, y=sx, fill=sp)) + geom_boxplot()