r - How to create a Marimekko/Mosaic plot in ggplot2 -


the marimekko/mosaic plot nice default plot when both x , y categorical variables. best way create these using ggplot?

example

the reference find 4yo blog post seems bit outdated. there better or easier implementations avaialable now? ggally package has function ggally_ratio produces quite different:

ggally

i did myself time ago, using geom_bar, turned general function should work on 2 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)

Comments

Post a Comment

Popular posts from this blog

c++ - CryptStringToBinary API behavior -

i seeing strange behavior cryptstringtobinary cryptography api. please see below code (config: x64 debug): #include "stdafx.h" #include <windows.h> #include <strsafe.h> #include <iostream> #include <exception> void main() { dword dwskip; dword dwflags; dword dwdatalen; //lpcwstr pszinput = l"jaaaaaecaaadzgaaakqaagdnnl1l56bwgfjdgr3rpxtqqqn6daw3usv2emkjym4t"; //this works fine lpcwstr pszinput = l"mytest"; //doesnt work, api returns false,error code 0x0000000d // determine size of byte array , allocate memory. if(! cryptstringtobinary( pszinput, _tcslen( pszinput ) + 1, crypt_string_base64, null, &dwdatalen, &dwskip, &dwflags ) ) { dword dw = getlasterror(); //0x0000000d: data invalid throw std::exception( "error computing byte length." ); } byte *pbytebyte = null; try { ...
Read more

c++ - Correct method for redrawing a layered window -

i have window created ws_ex_layered window style. drawing onto memory bitmap using gdi+, , using updatelayeredwindow update graphical content of layered window. intend use window main window of application, require redraw frequently. seeing layered windows not receive wm_paint windows message [?] , need come appropriate method re-drawing window. optimisation not essential , it's nice have cake , eat too. therefore, in search of "correct" method use. here thoughts far: i guess it's idea render onto off-screen bitmap before bitblt ing or similar. 60 frames rendered per second should (more than?) enough (but how compare other applications' frame rates?). possible solutions: use settimer send wm_timer message on regular basis. useful because through specifying time-out value, can achieve desired frames per second, without requirement measure duration "frame" takes rendered. would cause input or other lags due frequency , speed of m...
Read more

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more