2013-10-24 11 views
5

Çakışan eksen etiketlerine sahip olduğum bir sorun var ve bunu düzeltmek için bir çözüm bulamıyor gibi görünüyor.Çakışan eksen etiketleri R

enter image description here

p <- ggplot(data=Data,aes(x=Indicator,y=Numeric,group=Expenditure_group,shape=Expenditure_group,colour=Expenditure_group))+geom_point()+geom_line() 

hiçbir çakışma olmayacak şekilde bu sorunu gidermek için bir yolu var mı?

cevap

10

yapabilirsiniz melodi biraz da x ekseni ya otomatik olarak

p + scale_x_discrete(labels = c("Congenital Rubella" = "C. Rub.", ..., "Total tetanus" = "T. tet.", "Yellow fever" = "Y. fever") 

Bkz olduğu gibi kendinizi

p + scale_x_discrete(labels = abbreviate) 

gibi etiketleri abbreviating veya etiketleri kısaltılmış sağlayabilir tarafından: http://docs.ggplot2.org/current/scale_discrete.html

+4

budur iyi bir cevap, ama başka bir kişisel favori, her xlabel'in başında bir satırsonu karakteri değiştirmek: 'p + scale_x_discrete (label = fonksiyonu (etiketler) { fixedLabels <- C() için (1 de l: uzunluk (etiketler)) { fixedLabels <- C (fixedLabels, paste0 (ifelse (l %% 2 == 0, ' , '\ n'), [l] etiketleri) } return (fixedLabels) }) ' – aaiezza