Trực quan hóa khác biệt: Batman và Star Wars
Trong bài tập trước, bạn đã tạo colors_joined. Giờ bạn sẽ tạo một biểu đồ cột, mỗi cột ứng với một màu (name), thể hiện độ chênh lệch về tỷ phần.
Vì yếu tố (factor) và trực quan hóa nằm ngoài phạm vi khóa học này, chúng tôi đã xử lý sẵn cho bạn: đây là đoạn mã tạo bảng colors_joined sẽ được dùng trong video.
colors_joined <- batman_colors %>%
full_join(star_wars_colors, by = "color_id", suffix = c("_batman", "_star_wars")) %>%
replace_na(list(total_batman = 0, total_star_wars = 0)) %>%
inner_join(colors, by = c("color_id" = "id")) %>%
mutate(difference = fraction_batman - fraction_star_wars,
total = total_batman + total_star_wars) %>%
filter(total >= 200) %>%
mutate(name = fct_reorder(name, difference))
Bài tập này là một phần của khóa học
Kết hợp dữ liệu với dplyr
Hướng dẫn bài tập
- Tạo một biểu đồ cột dùng bảng
colors_joinedđể hiển thị các màu nổi bật nhất trong chủ đề Batman và Star Wars, với màu cột được tô theonamecủa chúng.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# Create a bar plot using colors_joined and the name and difference columns
ggplot(___, aes(___, ___, fill = ___)) +
geom_col() +
coord_flip() +
scale_fill_manual(values = color_palette, guide = "none") +
labs(y = "Difference: Batman - Star Wars")