With the following code:

```
library(ggplot2)
set.seed(6809)
diamonds <- diamonds[sample(nrow(diamonds), 1000), ]
diamonds$cut <- factor(diamonds$cut,
         levels = c("Ideal", "Very Good", "Fair", "Good", "Premium"))

# Repeat first example with new order
p <- ggplot(diamonds, aes(carat, ..density..)) +
        geom_histogram(binwidth = 1)
p + facet_grid(color ~ cut)

```

I can create the following figure:

![enter image description here](https://i.stack.imgur.com/FYGCI.jpg)

My questions are:

1. How can I sort the right strip according to my desired order
e.g. (G, F, D, E, I, J, H)?
2. How can I swap the right strip to with the y-axis (density)?