Cara meletakkan label di atas geom_bar untuk setiap batang di R dengan ggplot2

101

Saya telah menemukan ini, Cara meletakkan label di atas geom_bar di R dengan ggplot2 , tetapi itu hanya menempatkan label (angka) hanya di satu batang.

Ini, katakanlah, dua batang untuk setiap sumbu x, bagaimana melakukan hal yang sama?

Data dan kode saya terlihat seperti ini:

dat <- read.table(text = "sample Types Number
sample1 A   3641
sample2 A   3119
sample1 B   15815
sample2 B   12334
sample1 C   2706
sample2 C   3147", header=TRUE)

library(ggplot2)
bar <- ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + 
  geom_bar(position = 'dodge') + geom_text(aes(label=Number))

Kemudian, kita akan mendapatkan: masukkan deskripsi gambar di sini

Tampaknya teks nomor juga diposisikan dalam pola "menghindar". Saya telah mencari manual geom_text untuk menemukan beberapa informasi, tetapi tidak dapat membuatnya berfungsi.

Saran?

r ggplot2 bar-chart

— Puriney
sumber

Jawaban:

143

Coba ini:

ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + 
     geom_bar(position = 'dodge', stat='identity') +
     geom_text(aes(label=Number), position=position_dodge(width=0.9), vjust=-0.25)

keluaran ggplot

— rcs
sumber

(+1) Anda juga dapat menambahkan vjust = -0.5setelah position()pernyataan sehingga nilainya ditempatkan tepat di atas batang.

— smillig

Terima kasih banyak, omong-omong, kode menyarankan pengaturan ymax, jadi aes(x=Types, y=Number, fill=sample, ymax = 16000), akan menghasilkan area atas yang lebih luas untuk sumbu y, sehingga 15815 akan ditampilkan dengan lebih baik.

— Puriney

Saya mendapatkan kesalahan ini: Kesalahan: stat_count () tidak boleh digunakan dengan estetika.

— userJT

jawaban ini memiliki sintaks yang lebih baru stackoverflow.com/questions/33079500/…

— userJT

@Seymourgeom_text(..., angle=-90)

— rcs

Untuk menambah jawaban rcs, jika Anda ingin menggunakan position_dodge () dengan geom_bar () saat x adalah tanggal POSIX.ct, Anda harus mengalikan lebarnya dengan 86400, misalnya,

ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + 
 geom_bar(position = "dodge", stat = 'identity') +
 geom_text(aes(label=Number), position=position_dodge(width=0.9*86400), vjust=-0.25)

— matmat
sumber