ggplot2でtableを使う.R

library(ggplot2)

t1 <- as.table(Titanic[1:3,,2,2])

fortify.table <- function(model, ...) {
  data <- reshape2::melt(model)
  return(data)
}

p1 <- ggplot(data=t1)

p1 + geom_bar(aes(Sex, value, fill=Class),
              stat="identity")

p1 + geom_bar(aes(Sex, value, fill=Class),
              stat="identity",
              position="fill") + coord_flip()