R中的ggplot2中用于2x2x2设计的堆叠条形图

Question

I have a dataset that looks like this:

conifer.abundance <- c(6,7,8,2,3,4,5,1,7,8,9,8,7,6,5,1)
lily.abundance <- c(5,5,5,5,4,4,4,4,6,7,8,2,3,4,5,1)
type <- c("Control","Control","Control","Control","Control","Control","Control","Control","Treatment","Treatment","Treatment","Treatment","Treatment","Treatment","Treatment","Treatment")
class <- c("City","Rural","City","Rural","City","Rural","City","Rural","City","Rural","City","Rural","City","Rural","City","Rural")
climate <- c("wet","wet","dry","dry","wet","wet","dry","dry","wet","wet","dry","dry","wet","wet","dry","dry")
all.abundance <- conifer.abundance + lily.abundance
dat88 <- data.frame(climate,type,class,conifer.abundance, lily.abundance,all.abundance)

This is a 2x2x2 design. I want to plot barplots such that the mean of all.abundance is represented as sum of mean conifer.abundance and mean lily.abundance (stacked) and it has a legend of its own. I tried following this code, but it seems like it using fill to stack the bars, but I need to use it for a different purpose here. Suppose, I have several more data points, I would also need to plot a bootstrapped confidence interval (as below). Any suggestions? Here is my current code for plotting the graph above.

  pd <- position_dodge(0.82) 
  ggplot(dat88, aes(x=class, y=all.abundance, fill = climate)) + 
  theme_bw() + 
  stat_summary(geom="bar", fun.y=mean, position = "dodge") + 
  stat_summary(geom="errorbar", fun.data=mean_cl_boot,position = pd) + 
  ylab("Total Abundance") + 
  facet_grid(~type)

Please note that I have slightly changed the dataset to represent a more biologically fitting scenario.

Answer 1

If you want to stack the height values for female & male, you'll need to melt / gather them into a single variable.

The following two methods for manipulating the data frame are equivalent. Depends on which packages you are more familiar with:

# data.table package
dat2 <- data.table::melt(dat, measure.vars = c("male.height", "female.height"),
                         variable.name = "Gender", value.name = "height")

# tidyr package
dat3 <- tidyr::gather(dat, key = Gender, value = height, 
                      male.height, female.height, factor_key = TRUE)

> all.equal(dat2, dat3)
[1] TRUE

Since this is a 2 x 2 x 2 design, I added a dimension to facet_grid to show both type and species. If that's not needed, simply revert to facet_grid(~type) :

ggplot(dat2,
       aes(x = class, y = height, fill = Gender)) +
  geom_col() +
  ylab("Total Height") +
  facet_grid(species~type) +
  scale_fill_discrete(breaks = c("female.height", "male.height"),
                      labels = c("female", "male"))