자동 패싯 만들기
이전 연습 문제에서는 패싯 산점도를 직접 만들었어요. 두 개의 그룹만 다뤘기 때문에 크게 번거롭지 않았죠. 하지만 vgsales2016 데이터셋에는 플랫폼이 6개나 있어서, 산점도 6개를 일일이 코딩하는 일은 매우 번거롭습니다.
이번 연습에서는 group_by(), nest(), mutate(), map2()를 사용해 아래 템플릿처럼 패싯 산점도 생성을 자동화하는 방법을 연습하겠습니다:
data %>%
group_by(factor) %>%
nest() %>%
mutate(
plot = map2(data, factor,
\(data, factor)
plot_ly(data = data, x = ~x, y = ~y) %>%
add_markers(name = ~factor)
)) %>%
subplot(nrows = R, shareY = TRUE, shareX = TRUE)
이 연습은 강의의 일부입니다
R로 배우는 plotly 인터랙티브 데이터 시각화
연습 안내
group_by(),nest(),mutate(),map2()를 사용해 x축은Critic_Score, y축은User_Score이고,Platform으로 패싯을 나눈 산점도를 만드세요.- 패싯은 3행 그리드로 배치하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Create a faceted scatterplot of User_Score vs. Critic_Score with 3 rows
vgsales2016 %>%
___(___) %>%
___() %>%
mutate(
plot = ___(
___, ___,
\(data, Platform)
)) %>%
subplot(nrows = ___, shareY = TRUE, shareX = TRUE)