mpg1<-read.csv("c:/data/mpg1.csv")
str(mpg1)
## 'data.frame': 234 obs. of 5 variables:
## $ manufacturer: chr "audi" "audi" "audi" "audi" ...
## $ trans : chr "auto" "manual" "manual" "auto" ...
## $ 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 ...
table(mpg1$trans,mpg1$manufacturer)
##
## audi chevrolet dodge ford honda hyundai jeep land rover lincoln
## auto 11 16 30 17 4 7 8 4 3
## manual 7 3 7 8 5 7 0 0 0
##
## mercury nissan pontiac subaru toyota volkswagen
## auto 4 8 5 7 20 13
## manual 0 5 0 7 14 14
table(mpg1$trans,mpg1$drv)
##
## 4 f r
## auto 75 65 17
## manual 28 41 8
a<-table(mpg1$trans)
prop.table(a)
##
## auto manual
## 0.6709402 0.3290598
round(prop.table(a),2)
##
## auto manual
## 0.67 0.33
library(dplyr)
##
## 다음의 패키지를 부착합니다: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
mpg1_1<-mpg1 %>%rename(t=trans,m=manufacturer)
head(mpg1_1)
## m t drv cty hwy
## 1 audi auto f 18 29
## 2 audi manual f 21 29
## 3 audi manual f 20 31
## 4 audi auto f 21 30
## 5 audi auto f 16 26
## 6 audi manual f 18 26
mpg1_2<-mpg1_1 %>% select(t,drv,cty)
head(mpg1_2)
## t drv cty
## 1 auto f 18
## 2 manual f 21
## 3 manual f 20
## 4 auto f 21
## 5 auto f 16
## 6 manual f 18
head(mpg1)
## manufacturer trans drv cty hwy
## 1 audi auto f 18 29
## 2 audi manual f 21 29
## 3 audi manual f 20 31
## 4 audi auto f 21 30
## 5 audi auto f 16 26
## 6 audi manual f 18 26
mpg1_3<-mpg1 %>% filter(manufacturer=="audi"
&trans=="auto"&drv=="f")
max(mpg1$cty)
## [1] 35
min(mpg1$cty)
## [1] 9
range(mpg1$cty)
## [1] 9 35
mpg1 %>% filter(cty>16)
## manufacturer trans drv cty hwy
## 1 audi auto f 18 29
## 2 audi manual f 21 29
## 3 audi manual f 20 31
## 4 audi auto f 21 30
## 5 audi manual f 18 26
## 6 audi auto f 18 27
## 7 audi manual 4 18 26
## 8 audi manual 4 20 28
## 9 audi auto 4 19 27
## 10 audi manual 4 17 25
## 11 audi auto 4 17 25
## 12 audi auto 4 17 25
## 13 chevrolet auto f 19 27
## 14 chevrolet auto f 22 30
## 15 chevrolet auto f 18 26
## 16 chevrolet auto f 18 29
## 17 chevrolet auto f 17 26
## 18 dodge auto f 18 24
## 19 dodge auto f 17 24
## 20 dodge auto f 17 24
## 21 dodge auto f 17 24
## 22 ford manual r 18 26
## 23 ford auto r 18 25
## 24 ford manual r 17 26
## 25 honda manual f 28 33
## 26 honda auto f 24 32
## 27 honda manual f 25 32
## 28 honda manual f 23 29
## 29 honda auto f 24 32
## 30 honda manual f 26 34
## 31 honda auto f 25 36
## 32 honda auto f 24 36
## 33 honda manual f 21 29
## 34 hyundai auto f 18 26
## 35 hyundai manual f 18 27
## 36 hyundai auto f 21 30
## 37 hyundai manual f 21 31
## 38 hyundai auto f 18 26
## 39 hyundai manual f 18 26
## 40 hyundai auto f 19 28
## 41 hyundai auto f 19 26
## 42 hyundai manual f 19 29
## 43 hyundai manual f 20 28
## 44 hyundai auto f 20 27
## 45 hyundai auto f 17 24
## 46 hyundai manual f 17 24
## 47 jeep auto 4 17 22
## 48 nissan manual f 21 29
## 49 nissan auto f 19 27
## 50 nissan auto f 23 31
## 51 nissan manual f 23 32
## 52 nissan manual f 19 27
## 53 nissan auto f 19 26
## 54 nissan auto f 18 26
## 55 nissan manual f 19 25
## 56 nissan auto f 19 25
## 57 pontiac auto f 18 26
## 58 pontiac auto f 17 27
## 59 pontiac auto f 18 28
## 60 subaru manual 4 18 25
## 61 subaru auto 4 18 24
## 62 subaru manual 4 20 27
## 63 subaru manual 4 19 25
## 64 subaru auto 4 20 26
## 65 subaru auto 4 18 23
## 66 subaru auto 4 21 26
## 67 subaru manual 4 19 26
## 68 subaru manual 4 19 26
## 69 subaru auto 4 19 26
## 70 subaru auto 4 20 25
## 71 subaru auto 4 20 27
## 72 subaru manual 4 19 25
## 73 subaru manual 4 20 27
## 74 toyota manual f 21 29
## 75 toyota auto f 21 27
## 76 toyota manual f 21 31
## 77 toyota auto f 21 31
## 78 toyota auto f 18 26
## 79 toyota manual f 18 26
## 80 toyota auto f 19 28
## 81 toyota auto f 21 27
## 82 toyota manual f 21 29
## 83 toyota manual f 21 31
## 84 toyota auto f 22 31
## 85 toyota auto f 18 26
## 86 toyota manual f 18 26
## 87 toyota auto f 18 27
## 88 toyota auto f 24 30
## 89 toyota auto f 24 33
## 90 toyota manual f 26 35
## 91 toyota manual f 28 37
## 92 toyota auto f 26 35
## 93 toyota manual 4 17 22
## 94 volkswagen manual f 21 29
## 95 volkswagen auto f 19 26
## 96 volkswagen manual f 21 29
## 97 volkswagen auto f 22 29
## 98 volkswagen manual f 17 24
## 99 volkswagen manual f 33 44
## 100 volkswagen manual f 21 29
## 101 volkswagen auto f 19 26
## 102 volkswagen auto f 22 29
## 103 volkswagen manual f 21 29
## 104 volkswagen auto f 21 29
## 105 volkswagen manual f 21 29
## 106 volkswagen manual f 17 24
## 107 volkswagen manual f 35 44
## 108 volkswagen auto f 29 41
## 109 volkswagen manual f 21 29
## 110 volkswagen auto f 19 26
## 111 volkswagen manual f 20 28
## 112 volkswagen auto f 20 29
## 113 volkswagen manual f 21 29
## 114 volkswagen auto f 18 29
## 115 volkswagen auto f 19 28
## 116 volkswagen manual f 21 29
## 117 volkswagen manual f 18 26
## 118 volkswagen auto f 17 26
quantile(mpg1$cty)
## 0% 25% 50% 75% 100%
## 9 14 17 19 35
mpg1 %>% filter(cty<=14)
## manufacturer trans drv cty hwy
## 1 chevrolet auto r 14 20
## 2 chevrolet auto r 11 15
## 3 chevrolet auto r 14 20
## 4 chevrolet auto r 13 17
## 5 chevrolet auto r 12 17
## 6 chevrolet auto 4 14 19
## 7 chevrolet auto 4 11 14
## 8 chevrolet auto 4 11 15
## 9 chevrolet auto 4 14 17
## 10 dodge auto f 11 17
## 11 dodge auto 4 14 18
## 12 dodge auto 4 13 17
## 13 dodge manual 4 14 17
## 14 dodge auto 4 14 19
## 15 dodge auto 4 14 19
## 16 dodge auto 4 9 12
## 17 dodge manual 4 11 17
## 18 dodge auto 4 11 15
## 19 dodge auto 4 13 17
## 20 dodge auto 4 13 17
## 21 dodge auto 4 9 12
## 22 dodge auto 4 13 17
## 23 dodge auto 4 11 16
## 24 dodge auto 4 13 18
## 25 dodge auto 4 11 15
## 26 dodge manual 4 12 16
## 27 dodge auto 4 9 12
## 28 dodge auto 4 13 17
## 29 dodge auto 4 13 17
## 30 dodge manual 4 12 16
## 31 dodge manual 4 9 12
## 32 dodge auto 4 11 15
## 33 dodge manual 4 11 16
## 34 dodge auto 4 13 17
## 35 dodge auto 4 11 15
## 36 ford auto r 11 17
## 37 ford auto r 11 17
## 38 ford auto r 12 18
## 39 ford auto 4 14 17
## 40 ford auto 4 14 17
## 41 ford auto 4 13 19
## 42 ford auto 4 13 19
## 43 ford auto 4 13 17
## 44 ford auto 4 14 17
## 45 ford manual 4 14 17
## 46 ford manual 4 13 16
## 47 ford auto 4 13 16
## 48 ford auto 4 13 17
## 49 ford auto 4 11 15
## 50 ford auto 4 13 17
## 51 ford manual r 14 20
## 52 jeep auto 4 14 17
## 53 jeep auto 4 9 12
## 54 jeep auto 4 14 19
## 55 jeep auto 4 13 18
## 56 jeep auto 4 11 14
## 57 land rover auto 4 11 15
## 58 land rover auto 4 12 18
## 59 land rover auto 4 12 18
## 60 land rover auto 4 11 15
## 61 lincoln auto r 11 17
## 62 lincoln auto r 11 16
## 63 lincoln auto r 12 18
## 64 mercury auto 4 14 17
## 65 mercury auto 4 13 19
## 66 mercury auto 4 13 19
## 67 mercury auto 4 13 17
## 68 nissan auto 4 14 17
## 69 nissan auto 4 14 20
## 70 nissan auto 4 12 18
## 71 toyota auto 4 14 17
## 72 toyota auto 4 11 15
## 73 toyota auto 4 13 18
median(mpg1$cty)
## [1] 17
mean(mpg1$cty)
## [1] 16.85897
mpg1 %>% filter(manufacturer=="hyundai"&cty>=16.85897|hwy<15)
## manufacturer trans drv cty hwy
## 1 chevrolet auto 4 11 14
## 2 dodge auto 4 9 12
## 3 dodge auto 4 9 12
## 4 dodge auto 4 9 12
## 5 dodge manual 4 9 12
## 6 hyundai auto f 18 26
## 7 hyundai manual f 18 27
## 8 hyundai auto f 21 30
## 9 hyundai manual f 21 31
## 10 hyundai auto f 18 26
## 11 hyundai manual f 18 26
## 12 hyundai auto f 19 28
## 13 hyundai auto f 19 26
## 14 hyundai manual f 19 29
## 15 hyundai manual f 20 28
## 16 hyundai auto f 20 27
## 17 hyundai auto f 17 24
## 18 hyundai manual f 17 24
## 19 jeep auto 4 9 12
## 20 jeep auto 4 11 14
mpg1 %>% filter(manufacturer=="honda"|manufacturer=="nissan")
## manufacturer trans drv cty hwy
## 1 honda manual f 28 33
## 2 honda auto f 24 32
## 3 honda manual f 25 32
## 4 honda manual f 23 29
## 5 honda auto f 24 32
## 6 honda manual f 26 34
## 7 honda auto f 25 36
## 8 honda auto f 24 36
## 9 honda manual f 21 29
## 10 nissan manual f 21 29
## 11 nissan auto f 19 27
## 12 nissan auto f 23 31
## 13 nissan manual f 23 32
## 14 nissan manual f 19 27
## 15 nissan auto f 19 26
## 16 nissan auto f 18 26
## 17 nissan manual f 19 25
## 18 nissan auto f 19 25
## 19 nissan auto 4 14 17
## 20 nissan manual 4 15 17
## 21 nissan auto 4 14 20
## 22 nissan auto 4 12 18