예제) 차종별 실린더 개수에 따른 mpg에 대해 점도표 그려보기
dotchart(mtcars$mpg, labels=row.names(mtcars), cex=0.8)
✔︎ dotchart(x축, y축)
*plot: 연속형 데이터, dotchart: 이산형 데이터
✔︎ labels: 해당 축 data 범례
✔︎ row.names(xyz): 항목명 없는 행에 이름 부여
✔︎ cex: 폰트 크기
✔︎ order(a) : a 크기 순서로 정렬
carmpg <- mtcars[order(mtcars$mpg),]
✔︎ factor(a) : a를 팩터화
☞ 각 값이 어떤 값이 아니라 어떤 요소라 지정
(ex. 남자=0, 여자=1, 값은 의미 없고 구분짓기 위함)
carmpg$cyl <- factor(carmpg$cyl)
✔︎ x[조건] <- "color": 조건 만족시 지정한 색으로 변경
carmpg$color[carmpg$cyl==4] <- "blue"
carmpg$color[carmpg$cyl==6] <- "orange"
carmpg$color[carmpg$cyl==8] <- "green"
dotchart(carmpg$mpg, labels=row.names(carmpg),
groups=carmpg$cyl, cex=0.8, color=carmpg$color,
main="Mileage & # of cylinder",
xlab="Miles per Gallon")
✔︎ groups(a) : 점들을 a기준으로 묶어 표시
✔︎ color: 색 적용
✔︎ main: 그래프 제목
✔︎ xlab: x축 이름 지정
## mtcars 활용
# 이렇게 시작한 것을 (아래 왼쪽 그래프)
dotchart(mtcars$mpg, labels=row.names(mtcars))
# 이렇게 변화시킬 수 있음 (아래 오른쪽 그래프)
carmpg <- mtcars[order(mtcars$mpg),]
carmpg$cyl <- factor(carmpg$cyl)
carmpg$color[carmpg$cyl==4] <- "blue"
carmpg$color[carmpg$cyl==6] <- "orange"
carmpg$color[carmpg$cyl==8] <- "green"
dotchart(carmpg$mpg, labels=row.names(carmpg),
groups=carmpg$cyl, cex=0.8, color=carmpg$color,
main="Mileage & # of cylinder",
xlab="Miles per Gallon")