R Notebook

ggplot2에 내장된 샘플데이터 mpg 정형화

# package
library(ggplot2)  # 이 파일로 불러오는 것
df.mpg <- as.data.frame(ggplot2::mpg)

## 4함수 :: head, tail, str, summary
head(df.mpg)
tail(df.mpg)
str(df.mpg)

df.mpg %>% 
  data.table :: setnames(
    old = "manufacturer",
    new = "제조회사"
  )
df.mpg %>% 
  data.table :: setnames(
    old = "displ",
    new = "배기량"
  )
df.mpg %>% 
  data.table :: setnames(
    old = "year",
    new = "생산연도"
  )
df.mpg %>% 
  data.table :: setnames(
    old = "cyl",
    new = "실린더개수"
  )
df.mpg %>% 
  data.table :: setnames(
    old = "trans",
    new = "변속기종류"
  )
df.mpg %>% 
  data.table :: setnames(
    old = "drv",
    new = "구동방식"
  )
df.mpg %>% 
  data.table :: setnames(
    old = "cty",
    new = "도시연비"
  )
df.mpg %>% 
  data.table :: setnames(
    old = "hwy",
    new = "고속도로연비"
  )
df.mpg %>% 
  data.table :: setnames(
    old = "fl",
    new = "연료종류"
  )
df.mpg %>% 
  data.table :: setnames(
    old = "class",
    new = "자동차종류"
  )

df.mpg

summary(df.mpg)

df.mpg$total <- df.mpg$도시연비+df.mpg$고속도로연비

df.mpg$test <- ifelse(df.mpg$total >= 40, "high" , ifelse(df.mpg$total >= 30, "med", "low" ) )
table(df.mpg$test)

library(ggplot2)
ggplot2::qplot(df.mpg$test)

#'data.frame':  234 obs. of  11 variables:
# $ manufacturer (제조회사): chr  "audi" "audi" "audi" "audi" ...
# $ model   (모델)    : chr  "a4" "a4" "a4" "a4" ...
# $ displ   (배기량)    : num  1.8 1.8 2 2 2.8 2.8 3.1 1.8 1.8 2 ...
# $ year    (생산연도)    : int  1999 1999 2008 2008 1999 1999 2008 1999 1999 2008 ...
# $ cyl     (실린더개수)    : int  4 4 4 4 6 6 6 4 4 4 ...
# $ trans   (변속기종류)    : chr  "auto(l5)" "manual(m5)" "manual(m6)" "auto(av)" ...
# $ drv     (구동방식)    : chr  "f" "f" "f" "f" ...
# $ cty     (도시연비)    : int  18 21 20 21 16 18 18 18 16 20 ...
# $ hwy     (고속도로연비)    : int  29 29 31 30 26 26 27 26 25 28 ...
# $ fl      (연료종류)    : chr  "p" "p" "p" "p" ...
# $ class   (자동차종류)    : chr  "compact" "compact" "compact" "compact" ...


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