Karşılık gelen x verileri olmadan ikinci y eksenini ekleyin

Question

Ders değerlendirmelerinin grafiksel analizini yapıyorum.

> str(dataJ2) 
'data.frame': 16 obs. of 22 variables: 
... 
$ lk_nummer   : Factor w/ 111 levels "051-0311-00S",..: 19 30 38 47 49 50 51 55 56 59 ... 
$ le_titel   : Factor w/ 111 levels "","Advanced Methods and Strategies in Synthesis",..: 6 99 75 82 84 8 40 39 38 68 ... 
$ anzahl_stud   : int 7 79 1 34 10 20 83 10 4 11 ... 
$ durchschnitt  : num 4.61 5.35 3.5 4.4 4.4 4.33 4.49 4.53 5.38 4.48 ... 
$ standardabweich  : num 0.4 0.54 0 1.02 1.21 0.62 1.17 0.9 0.28 0.68 ... 
... 
$ prozent_best  : num 85.7 97.5 0 70.6 90 80 73.5 90 100 81.8 ... 
... 

ggplot2böyle bakan bir arsa yapabildi kullanma:: aşağıdaki verileri aldığımızda

plotJ2 <- ggplot(dataJ2, aes(y=durchschnitt,x=le_titel)) 

plotJ2 + geom_bar(position=position_dodge(), stat="identity", fill = I("chartreuse4")) + 
    scale_y_continuous(limits=c(0,6.6),breaks=seq(from=1, to=6, by=1)) + 
    geom_errorbar(aes(ymin=durchschnitt-standardabweich, ymax=durchschnitt+standardabweich), width=.1) + 
    ggtitle("2. Jahr Bsc Biologie") + 
    ylab("Durchschnitt") + xlab("Fächer") + 
    geom_text(aes(label = durchschnitt, y = 1.8), size = 4, colour="gray85") + 
    geom_text(aes(label = anzahl_stud, y = 0.2), size = 4, colour="grey85") + 
    geom_text(aes(label = prozent_best, y = 6.55), size = 4, colour="chartreuse4", adj=1) + 
    geom_text(aes(label = "%", y = 6.6), size = 4, colour="chartreuse4", adj=0) + 
coord_flip() 

Which looks like this when plotted.

Ama bununla birlikte, " prozent_best "grafiksel kısımda çok hoş görünmüyor. Ben MTEXT, metin ve facet_wrap gri grafik kısmının sağ tarafında ikinci bir y ekseni etiket olarak "dataJ2 $ prozent_best" verileri kullanarak eklemeyi denedim ama işe gelemedi.

Herhangi bir öneriniz var mı?

Faydalı çeviriler veri ek açıklama/açıklamaları:

lk_nummer -> dersler sayısı

le_titel -> ders adı

anzahl_stud -> öğrenci sayısı

durchschnitt -> ortalama

prozent_best -> sayısı s yüzde

Facher sınavı geçti tudents -> sınıfları

Answer 1

Dene: tek dizede değerle '%' sembolü birleştirecek

geom_text(aes(label = paste0(prozent_best,'%'), y = 6.55), 
size = 4, colour="chartreuse4", hjust='right') 

. Genel olarak etiket vektörlerini ggplot çağrısının dışında oluşturmanızı öneririm, ancak bunun için çok fazla karmaşa eklemez.

Ayrıca, scale_x_continuous(expand=0,limits=c(0,7)) eklemeye bakmak isteyebilirsiniz. Sol taraftaki çirkin gri çubuktan kurtulacak.

Ayrıca, arsa zaten çok meşgul olduğu için ggplots standart temanın arka planındaki gri bloklar çok yoğun olduğundan, theme_bw() ekleyerek deneyin.