Pg 112

Pg 112. 혼자서 해보기

mpg 데이터의 변수명은 긴 단어를 짤게 줄인 축약어로 되어있습니다. cty변수는 도시연비, hwy 변수는 고속도로 연비를 의미합니다. 변수명을 이해하기 쉬운 단어로 바꾸려고 합니다. mpg 데이터를 이용해 아래 문제를 해결해 보세요.

Q1. ggplot()패키지의 mpg 데이터를 사용할 수 있도록 불로온 후 복사본을 만드세요

mpg <- as.data.frame(ggplot2::mpg)
df_mpg <- mpg
df_new <- df_mpg
summary(df_new)

##  manufacturer          model               displ            year     
##  Length:234         Length:234         Min.   :1.600   Min.   :1999  
##  Class :character   Class :character   1st Qu.:2.400   1st Qu.:1999  
##  Mode  :character   Mode  :character   Median :3.300   Median :2004  
##                                        Mean   :3.472   Mean   :2004  
##                                        3rd Qu.:4.600   3rd Qu.:2008  
##                                        Max.   :7.000   Max.   :2008  
##       cyl           trans               drv                 cty       
##  Min.   :4.000   Length:234         Length:234         Min.   : 9.00  
##  1st Qu.:4.000   Class :character   Class :character   1st Qu.:14.00  
##  Median :6.000   Mode  :character   Mode  :character   Median :17.00  
##  Mean   :5.889                                         Mean   :16.86  
##  3rd Qu.:8.000                                         3rd Qu.:19.00  
##  Max.   :8.000                                         Max.   :35.00  
##       hwy             fl               class          
##  Min.   :12.00   Length:234         Length:234        
##  1st Qu.:18.00   Class :character   Class :character  
##  Median :24.00   Mode  :character   Mode  :character  
##  Mean   :23.44                                        
##  3rd Qu.:27.00                                        
##  Max.   :44.00

Q2. 복사본 데이터를 이용해 cty는 city로, hwy는 highway로 수정하세요.

df_new <- rename(df_new, city = cty)

df_new <- rename(df_new, hightway = hwy)

library("dplyr")

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

df_new <- dplyr::rename(df_new, city = cty)
df_new <- dplyr::rename(df_new, hightway = hwy)

Q3. 데이터 일부를 출혁해 변수명이 바뀌었는지 확인해 보세요. 아래와 같은 결과물이 출력되어야함.

head(df_new)

##   manufacturer model displ year cyl      trans drv city hightway fl   class
## 1         audi    a4   1.8 1999   4   auto(l5)   f   18       29  p compact
## 2         audi    a4   1.8 1999   4 manual(m5)   f   21       29  p compact
## 3         audi    a4   2.0 2008   4 manual(m6)   f   20       31  p compact
## 4         audi    a4   2.0 2008   4   auto(av)   f   21       30  p compact
## 5         audi    a4   2.8 1999   6   auto(l5)   f   16       26  p compact
## 6         audi    a4   2.8 1999   6 manual(m5)   f   18       26  p compact