tambahkan teks unik ke setiap faset ggplot [duplikat]

Menggunakan ggplot Saya mencoba menambahkan teks unik ke setiap aspek dalam plot di bawah ini dengan geom_text tetapi posisi horizontal teks berbeda di masing-masing aspek. Saya ingin teks ditempatkan di sudut kiri atas setiap segi. Sepuluh baris pertama kumpulan data tercantum di bawah ini. Terima kasih banyak sebelumnya atas bantuan apa pun yang diterima pertanyaan ini.

FM     x   PC Suitability   Output
1  Max 3.349 71.6         avg 9.20e-06
2  Max 3.997 71.6         avg 9.69e-06
3  Max 4.645 71.6         avg 1.02e-05
4  Max 5.293 71.6         avg 1.08e-05
5  Max 5.941 71.6         avg 1.13e-05
6  Max 6.589 71.6         avg 1.19e-05
7  Max 7.237 71.6         avg 1.26e-05
8  Max 7.885 71.6         avg 1.32e-05
9  Max 8.533 71.6         avg 1.39e-05
10 Max 9.181 71.6         avg 1.47e-05

p = ggplot(y1, aes(x, Output, group=FM, linetype=Suitability, size = 
Suitability)) + geom_line(aes(group=Suitability)) + 
facet_grid(~FM, scales = "free_x", ncol=2)+ scale_linetype_manual(values = 
c("solid","dashed","dashed"))+ scale_size_manual(values=c(.6,.5,.5))+
ylab("Prediction Values\n")+ xlab("\nRange of Values")+ 
theme(axis.text=element_text(size=9))+ theme_bw()+ 
theme(panel.border = element_blank(), axis.line = 
element_line())+theme(legend.position="none")

perc <- ddply(.data=y1, .(FM),summarize, n=paste(PC))
p+geom_text(data=perc, aes(x=.25, y=1,label=n), colour="black", 
inherit.aes=FALSE)

masukkan deskripsi gambar di sini


r ggplot2 facet-wrap geom-text
person Andrew Yost    schedule 15.06.2017    source sumber
comment
dapatkah Anda memberikan kerangka data yang terorganisir dengan baik.   -  person Al14    schedule 15.06.2017
comment
anda bisa menggunakan x=-Inf lalu membenarkannya sedikit.. Coba geom_text(data=perc, aes(x=-Inf, y=1, label=n), colour="black", inherit.aes=FALSE, hjust = -1)   -  person user20650    schedule 15.06.2017
comment
Ya! Jawaban itu berfungsi dengan baik...terima kasih. Saya menemukan solusi lain dan seharusnya melihatnya sebelum mengajukan pertanyaan tetapi label ditempatkan tepat di tempat kode memerintahkannya...pada nilai x 0,25 dan karena saya menggunakan timbangan = free_x nilai 0,25 berbeda untuk setiap aspek. Maka solusinya adalah dengan menggunakan kode berikut:   -  person Andrew Yost    schedule 16.06.2017
comment
geom_teks(data=perc, aes(x=min(y1$x), y=1,label=n), warna=hitam, warisan.aes=FALSE)   -  person Andrew Yost    schedule 16.06.2017
comment
Saya pikir x= -Inf adalah pilihan yang lebih baik.   -  person Andrew Yost    schedule 16.06.2017