Переименование графов bot x и y для ggplot2

Question

Я пытаюсь переклассировать как грань x, так и y для графика ggplot2.

Я нашел несколько способов записи функции, чтобы перемаркировать один грань, но не оба.

head(nh2) 
     RatioIncomePoverty Ethnicity Education mean.bmi 
1     0   1   1  26.18333 
2     0   1   1  30.88000 
3     0   1   2  32.03000 
4     0   1   4  34.45000 
5     0   2   1  26.33000 
6     0   2   2  23.44000 

b2 <- qplot(RatioIncomePoverty, mean.bmi, data=nh2, facets=Education~Ethnicity) 
b2 = b2 + labs(list(title="Average BMI and Ratio of Family Income to Poverty Threshold  among US Ethnic groups", x = "Ratio of Family Income to Poverty Threshold", y = "Average BMI")) 
b2 

В настоящее время как образование и этническая принадлежность имеют значение 1-5 для каждого, и я хотел бы переименовать их к тому, что они соответствуют в опросе.

Education:  
1 = "<9th" 
2 = "9th-11th" 
3 = "GED" 
4 = "Some/AA" 
5 = "Grad" 

Ethnicity: 
1 = "Mex/Amer" 
2 = "OtherHisp" 
3 = "White" 
4 = "Black" 
5 = "Other/Multi" 

Answer 1

Почему бы не просто создать факторы с такими уровнями?

eth <- c('Mex/Amer', 'OtherHisp', 'White', 'Black', 'Other/Multi') 
edu <- c('<9th', '9th-11th', 'GED', 'Some/AA', 'Grad') 

nh2 <- within(nh2, {ethFac <- factor(Ethnicity, labels = eth) 
        eduFac <- factor(Education, labels = edu)}) 

b2 <- qplot(RatioIncomePoverty, mean.bmi, data=nh2, facets=eduFac~ethFac)