as_labeller mit einem Ausdruck in ggplot2 und facet_wrap

Question

Es gibt ein Beispiel zur Verfügung gestellt here, aber ich kann es einfach nicht funktionieren. Hier ist mein Anwendungsfall:

df <- as.data.frame(matrix(runif(9),8,8)) 
angles <- c(0.112, 2.633, 3.766, 5.687, 0.867, 7.978, 8.937, 4.652) 
df$factor <- as.factor(angles) 
df.m <- melt(df) 
ggplot(df.m, aes(variable, value)) + 
    geom_boxplot() + 
    facet_wrap(~factor) 

Jetzt habe ich abgerundete Ecken mit dem Grad Symbol angezeigt werden soll. Also habe ich das versucht

new.labs <- as_labeller(paste(round(as.numeric(angles)), "degree"), label_parsed) 
ggplot(df.m, aes(variable, value)) + 
    geom_boxplot() + 
    facet_wrap(~factor, labeller=new.labs) 

Aber es produziert leere Zeichenfolgen.

Answer 1

Ich glaube, as.labeller erwartet entweder eine Funktion oder eine Nachschlagetabelle, kein Variablenname.

new.labs <- as_labeller(function(string) paste(round(as.numeric(string)), "*degree"), label_parsed) 

ggplot(df.m, aes(variable, value)) + 
    geom_boxplot() + 
    facet_wrap(~factor, labeller = new.labs)