How to create a Marimekko/Mosaic plot in ggplot2

by

I did it myself a time ago, using just geom_bar, I turned it into a general function so it should work on any two factors. enter image description here

ggMMplot <- function(var1, var2){
  require(ggplot2)
  levVar1 <- length(levels(var1))
  levVar2 <- length(levels(var2))

  jointTable <- prop.table(table(var1, var2))
  plotData <- as.data.frame(jointTable)
  plotData$marginVar1 <- prop.table(table(var1))
  plotData$var2Height <- plotData$Freq / plotData$marginVar1
  plotData$var1Center <- c(0, cumsum(plotData$marginVar1)[1:levVar1 -1]) +
    plotData$marginVar1 / 2

  ggplot(plotData, aes(var1Center, var2Height)) +
    geom_bar(stat = "identity", aes(width = marginVar1, fill = var2), col = "Black") +
    geom_text(aes(label = as.character(var1), x = var1Center, y = 1.05)) 
  }

ggMMplot(diamonds$cut, diamonds$clarity)

More Related Contents:

  1. Using ggplot2, can I insert a break in the axis?
  2. Fixing the order of facets in ggplot
  3. Grouped bar plot in ggplot
  4. Putting mathematical symbols and subscripts mixed with regular letters [duplicate]
  5. Create discrete color bar with varying interval widths and no spacing between legend levels
  6. Overlaying histograms with ggplot2 in R
  7. Increase distance between text and title on the y-axis
  8. Align ggplot2 plots vertically
  9. Grouped barplot in R with error bars
  10. Adding labels to ggplot bar chart
  11. How can I make a discontinuous axis in R with ggplot2?
  12. How to maintain size of ggplot with long labels
  13. How to move or position a legend in ggplot2
  14. Remove extra space and ring at the edge of a polar plot
  15. R – emulate the default behavior of hist() with ggplot2 for bin width
  16. How to jitter both geom_line and geom_point by the same magnitude?
  17. How to show only part of the plot area of polar ggplot with facet?
  18. Different legend-keys inside same legend in ggplot2
  19. Plot two graphs in a same plot
  20. ggplot multiple grouping bar
  21. pie chart with ggplot2 with specific order and percentage annotations
  22. R stat_smooth all points
  23. Drawing a barchart to compare two sets of data using ggplot2 package?
  24. Plotting multiple graphs in R [closed]
  25. How to set legend alpha with ggplot2
  26. Changing format of some axis labels in ggplot2 according to condition [duplicate]
  27. ggplot2 – using two different color scales for overlayed plots
  28. Spacing between boxplots in ggplot2
  29. Add axis tick-marks on top and to the right to a ggplot?
  30. heatmap-like plot, but for categorical variables

Leave a Comment