r - Rの箱ひげ図の変数の名前を変更する方法

Question

関係を示す箱ひげ図があります。しかし、プロット上の変数名に名前を付けることができませんでした。その方法を知っている人はいますか？Rコードは次のとおりです。

set.seed(2)
x1 <- sample(rep(1:5,2))
x2 <- sample(rep(1:5,2))
x3 <- sample(rep(1:5,2))
x4 <- sample(rep(1:5,2))
x5 <- sample(rep(1:5,2))
y <- runif(10,-1,1)

d <- data.frame(y,x1,x2,x3,x4,x5)
library(reshape2)
dm <- melt(d,id.var=1)
library(ggplot2)
ggplot(dm,aes(x=value,y=y))+geom_boxplot(aes(group=value))+
facet_wrap(~variable,nrow=1)

weather and pollution天気の代わりに書きたい。どうすればそれができますか？