겹쳐 그린 밀도 그래프

이번 연습에서는 밀도 그래프를 만들고 서로 겹쳐 그려, 세 게임 퍼블리셔(Activision, Electronic Arts, Nintendo)의 평론가 점수 분포를 비교하는 방법을 배워요.

Critic_Score에 대한 밀도 그래프를 만들려면 density() 명령의 결과를 저장한 뒤, 그 객체의 x와 y 좌표를 add_lines()에 전달하세요:

d <- density(vgsales2016$Critic_Score, na.rm = TRUE)
plot_ly() %>%
  add_lines(x = ~d$x, y = ~d$y, fill = 'tozeroy') %>%
  layout(xaxis = list(title = 'Critic score'),
         yaxis = list(title = 'Density'))

익숙한 코드로 새로운 그래프 유형을 손쉽게 만들 수 있다는 점을 눈여겨보세요! fill = 'tozeroy' 인수는 곡선 아래 영역을 채워 줍니다.

데이터 프레임 activision, ea, nintendo와 plotly 패키지는 이미 로드되어 있어요.

이 연습은 강의의 일부입니다

R로 배우는 plotly 인터랙티브 데이터 시각화

강의 보기

연습 안내

Activision, EA, Nintendo의 Critic_Score에 대한 밀도 곡선을 각각 계산해 d.a, d.e, d.n 객체에 저장하세요.
activision, ea, nintendo 순서로 Critic_Score의 겹쳐진 밀도 그래프를 만드세요.

실습형 인터랙티브 연습

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

# Compute density curves
d.a <- density(___, na.rm = TRUE)
d.e <- density(___, na.rm = TRUE)
d.n <- density(___, na.rm = TRUE)

# Overlay density plots
plot_ly() %>%
  add_lines(x = ___, y = ___, name = "Activision", fill = 'tozeroy') %>%
  add_lines(x = ___, y = ___, name = "Electronic Arts", fill = 'tozeroy') %>%
  add_lines(x = ___, y = ___, name = "Nintendo", fill = 'tozeroy') %>%
  layout(xaxis = list(title = 'Critic Score'),
         yaxis = list(title = 'Density'))

코드 편집 및 실행