as_labeller с выражением в ggplot2 и facet_wrap

Question

Есть пример here, но я просто не могу заставить его работать. Вот мой случай использования:

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) 

Теперь я хочу, чтобы отобразить закругленные углы с символом градуса. Поэтому я пробовал это

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) 

Но он производит пустые строки.

Answer 1

Я считаю, что as.labeller ожидает либо функцию, либо таблицу поиска, а не имя переменной.

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)