Sumbu x kategorikal

Pada bagan sebelumnya, kita melihat bahwa gondongan (mumps) baru mulai dilaporkan pada 1999, sehingga perbandingan sebelum itu tidak bermakna.

Mari kita saring data agar hanya mencakup kasus yang dilaporkan pada atau setelah 1999, lalu buat bagan batang bertumpuk yang menampilkan proporsi berbagai penyakit menurut wilayah.

Ubah pipeline manipulasi data agar data berada dalam bentuk yang diinginkan, kemudian bangun bagan batang bertumpuk Anda dan plot! Tidak perlu mengatur urutan batang seperti pada latihan sebelumnya. Apakah Anda melihat pola yang mengejutkan?

Latihan ini adalah bagian dari kursus

Praktik Terbaik Visualisasi di R

Lihat Kursus

Petunjuk latihan

Saring data who_disease untuk hanya tahun 1999 dan setelahnya.
Tambahkan pada group_by() untuk mempertahankan informasi region dalam ringkasan.
Lengkapi estetika dengan x = region, y = total_cases, dan fill = disease.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

disease_counts <- who_disease %>%
	# Filter to on or later than 1999
	filter(___) %>% 
	mutate(disease = ifelse(disease %in% c('measles', 'mumps'), disease, 'other')) %>%
	group_by(disease, ___) %>%    # Add region column to grouping
	summarise(total_cases = sum(cases))

# Set aesthetics so disease is the stacking variable, region is the x-axis and counts are the y
ggplot(disease_counts, aes(___)) +
	# Add a column geometry with the proper position value.
	___(___)

Edit dan Jalankan Kode