Podział etykiet na 2 linie w ggplot z czynnikami

Question

Mam działkę, której etykiety są czynnikami w postaci "1990-2012". Są za długie i/lub jest ich zbyt wiele i nakładają się na siebie.

chciałbym wydrukować każdą etykietę na dwóch liniach i złamać go po myślniku, coś takiego:

W sytuacjach, w których łamanie etykiety na dwie części nadal nie wystarczy, chciałbym również wiedzieć, jak wydrukować tylko każdą inną etykietę.

Mam ograniczenie polegające na tym, że etykietowanie powinno odbywać się "na miejscu" bez wstępnego przetwarzania danych.frame i/lub etykiet, chociaż niestandardowa funkcja zastosowana w wywołaniu ggplot byłaby w porządku.

Oto święte dataframe (nie można zmienić):

df <- structure(list(Period = structure(1:13, .Label = c("0-1000", 
    "1000-1500", "1500-1700", "1700-1820", "1820-1913", "1913-1950", 
    "1950-1970", "1970-1990", "1990-2012", "2012-2030", "2030-2050", 
    "2050-2070", "2070-2100"), class = "factor"), value = c(0.000168759866884916, 
    0.000989913144738397, 0.00159894629454382, 0.0045594248070473, 
    0.00585564273031225, 0.00932876890888812, 0.0191066122563939, 
    0.0183146076484786, 0.0130117469870081, 0.00923670910453378, 
    0.00560791817163286, 0.00272731553972227, 0.00149387241891397 
    ), variable = c("World", "World", "World", "World", "World", 
    "World", "World", "World", "World", "World", "World", "World", 
    "World")), .Names = c("Period", "value", "variable"), row.names = c(NA, 
    -13L), class = "data.frame") 

Oto ggplot:

library(ggplot2) 
    p <- ggplot(data = df, aes(x = Period, y = value, group = variable)) + geom_line() + theme_bw() 

Poniższy będzie działać, jeśli miałem miejsca po łączniku:

library(stringr) 
    p + scale_x_discrete(labels = function(x) str_wrap(x, width = 4)) 

[Dwie powyższe linie zostały użyte do wytworzenia drugiego wykresu po ręcznym zmodyfikowaniu parametru datafra mi dodać spację po dniu, oddzielając łącznikiem, innymi słowy, po tym jak oszukał]

następujące podejście do wydrukowania mniej etykiet zazwyczaj działa, ale nie tutaj:

library(scales) 
    p + scale_x_discrete(breaks = pretty_breaks(n = 6)) 

Answer 1

Czy to co Cię szuka?

p + scale_x_discrete(
    labels=function(x){ 
    x2 <- sub("(\\d+)\\-(\\d+)", 
       "\\1\\-\n\\2", 
       x) 
    x2 
    }) 

Właściwie pośredni x2 nie jest nawet konieczne,

p + scale_x_discrete(
    labels=function(x){ 
    sub("(\\d+)\\-(\\d+)","\\1\\-\n\\2",x) 
    }) 

jest trochę bardziej zwarty.

Edit: Jeszcze rozwiązanie bardziej zwięzłe, dzięki @jlhoward:

p + scale_x_discrete(
    labels=function(x) sub("-","-\n",x,fixed=TRUE))