모델을 묶어서 비교하기
여러 모델을 실행할 때는 결과를 tibble 형태와 평행좌표 차트로 요약해 비교하면 유용합니다. 작업 공간에는 여러분이 만든 glm_metrics 객체와 이에 대응하는 bayes_metrics, mixed_metrics가 로드되어 있습니다. GGally 패키지도 준비되어 있어요.
이 연습은 강의의 일부입니다
R로 배우는 Feature Engineering
연습 안내
- 세 모델을 모두 행 기준으로 바인딩하세요.
- 두 지표에서의 모델 성능을 비교하는 평행좌표 플롯을 만드세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
model <- c("glm", "glm","bayes","bayes", "mixed", "mixed")
# Bind models by rows
models <- ___(glm_metrics,bayes_metrics, mixed_metrics)%>%
add_column(model = model)%>%
select(-.estimator) %>%
spread(model,.estimate)
models
# Create a parallel coordinates plot
___(models,
columns = 2:4, groupColumn = 1,
scale="globalminmax",
showPoints = TRUE)