Cara menampilkan persentase pada histogram di ggplot2

Anda dapat menggunakan sintaks dasar berikut untuk menampilkan persentase pada sumbu y histogram di ggplot2:

 library (ggplot2)
library (scales)

#create histogram with percentages
ggplot(data, aes (x = factor (team))) +  
  geom_bar( aes (y = (..count..)/ sum (..count..))) +
  scale_y_continuous(labels=percent)

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh 1: Histogram dasar dengan persentase

Kode berikut menunjukkan cara membuat histogram untuk variabel kategori dengan persentase yang ditampilkan pada sumbu Y:

 library (ggplot2)
library (scales)

#define data frame
data <- data. frame (team = c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'C', 'C', 'C', 'C') ,
                   points = c(77, 79, 93, 85, 89, 99, 90, 80, 68, 91, 92))

#create histogram with percentages
ggplot(data, aes (x = factor (team))) +  
  geom_bar( aes (y = (..count..)/ sum (..count..))) +
  scale_y_continuous(labels=percent) 

Contoh 2: histogram dengan persentase (hilangkan desimal)

Anda juga dapat menggunakan argumen presisi untuk hanya menampilkan bilangan bulat sebagai persentase pada sumbu y:

 library (ggplot2)
library (scales)

#define data frame
data <- data. frame (team = c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'C', 'C', 'C', 'C') ,
                   points = c(77, 79, 93, 85, 89, 99, 90, 80, 68, 91, 92))

#create histogram with percentages
ggplot(data, aes (x = factor (team))) +  
  geom_bar( aes (y = (..count..)/ sum (..count..))) +
  scale_y_continuous(labels = scales :: percent_format(accuracy = 1L )) 

Contoh 3: Histogram khusus dengan persentase

Kode berikut menunjukkan cara membuat histogram dengan persentase yang ditampilkan pada sumbu Y dan judul khusus, label sumbu, dan warna:

 library (ggplot2)
library (scales)

#define data frame
data <- data. frame (team = c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'C', 'C', 'C', 'C') ,
                   points = c(77, 79, 93, 85, 89, 99, 90, 80, 68, 91, 92))

#create histogram with percentages and custom aesthetics
ggplot(data, aes (x = factor (team))) +  
  geom_bar( aes (y = (..count..)/ sum (..count..)), fill = ' lightblue ') +
  scale_y_continuous(labels=percent) +
  labs(title = ' Breakdown by Team ', x = ' Team ', y = ' Percent of Total ') +
  theme_minimal()

Terkait: Panduan Lengkap Tema ggplot2 Terbaik

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan operasi umum lainnya dengan histogram di R:

Bagaimana mengubah jumlah bin dalam histogram di R
Cara memplot banyak histogram di R
Cara membuat histogram frekuensi relatif di R