R, ggplot2, facetted histogram, decending order, factor x-axis labels -

-

i have interesting problem need produce facetted histogram series want put in decending order each panel. below code replicates problem.

library(ggplot2) set.seed(1) ngroup  = 10; nsample = 10 df <- data.frame(group=rep(1:nsample,ngroup),                  category = factor(sample(letters,                                           ngroup*nsample,                                           replace=true),                                    levels=letters),                  amount   = runif(ngroup*nsample)) ggplot(df,aes(x=category,y=amount)) +    geom_bar(stat='identity') +   facet_wrap(~group,scales='free_x') +   labs(title="some random histogram facets")

which produces below output:

example

i have tried following:

library(ggplot2) set.seed(1) ngroup  = 10; nsample = 10 df <- data.frame(group=rep(1:nsample,ngroup),                  category = factor(sample(letters,                                           ngroup*nsample,                                           replace=true),                                    levels=letters),                  amount   = runif(ngroup*nsample)) ggplot(df,aes(x=reorder(category,-amount),y=amount)) +    geom_histogram(stat='identity') +   facet_wrap(~group,scales='free_x') +   labs(title="some random histogram facets")

which slight improvement (see below), no-where near should be.

example2

any suggestions appreciated? understand x-axis labels not correspond between panels, fine application.

update: fixing labels.

mamoun's answer did job, however, of interested in fixing x-axis labels remove interaction suffixes, can done (including other desired formatting options):

library(ggplot2) set.seed(1) ngroup  = 10; nsample = 10 df <- data.frame(group=factor(rep(1:nsample,ngroup)),                  category = factor(sample(letters,                                           ngroup*nsample,                                           replace=true),                                    levels=letters),                  amount   = runif(ngroup*nsample)) df <- ddply(df,c("group","category"),function(d){ data.frame(amount=sum(d$amount)) }) df$interaction = interaction(df$category,df$group) df$xlabel      = as.character(df$category)  ggplot(df,aes(x=reorder(interaction,-amount),y=amount,fill=amount)) +     geom_bar(stat='identity',color="black",width=1.0) +   scale_x_discrete(breaks=df$interaction,labels=df$xlabel) +    facet_wrap(~group,scales='free_x') +   theme_bw() + theme(legend.position=c(1,0),legend.justification=c(1,0)) +    theme(axis.text.x = element_text(angle = 90, hjust = 0.5, vjust=0.5, size=6)) +   scale_fill_gradient(low="blue",high="red") +    labs(title="some random histogram facets",x="category")

which produces following, desired:

example3

you can use reorder , interaction between groups , category this

ggplot(df,aes(x=reorder(interaction(category, group), -amount, sum),y=amount)) +    geom_bar(stat='identity') +   facet_wrap(~group,scales='free_x') +   labs(title="some random histogram facets")

Comments

Post a Comment

Popular posts from this blog

PHP DOM loadHTML() method unusual warning -

-
i had following code works fine on localhost: $document = new domdocument(); $document->loadhtml($p_result); $form = $document->getelementsbytagname('form')->item(0); // code continues using $form variable after same code updated on outside server, loadhtml() failed , issued warning. warning: domdocument::loadhtml() expects parameter 1 valid path, string given in path/name/to/script.php returned null instead of object code pretty gets fatal error. note contents of $p_result absolutely same on outside server , on localhost. but why displays kind of warning , why not work? doesn't loadhtml() expects argument 1 string in first place? why method expects parameter 1 valid path ? just make clear i'm not calling loadhtmlfile() , i'm calling loadhtml() . thanks. you're affected one of php bugs . issue present in php 5.6.8 , 5.6.9. have affected php version on server, , bug-free version on localhost. the bug forbids null
Read more

python - How to create jsonb index using GIN on SQLAlchemy? -

-
here's current code creating index jsonb. index("mytable_data_idx_id_key", mytable.data['id'].astext, postgresql_using='gin') but got error. sqlalchemy.exc.programmingerror: (psycopg2.programmingerror) data type text has no default operator class access method "gin" hint: must specify operator class index or define default operator class data type. [sql: "create index event_data_idx_id_key on event using gin ((data ->> 'id'))"] is there way create index on sqlalchemy? the postgresql specific sqlalchemy docs @ http://docs.sqlalchemy.org/en/latest/dialects/postgresql.html#operator-classes mention postgresql_ops dictionary provide "operator class" used postgresql, , provide example illustrating use: index('my_index', my_table.c.id, my_table.c.data, postgresql_ops={ 'data': 'text_pattern_ops',
Read more

c# - TransactionScope not rolling back although no complete() is called -

-
i'm using transactionscope rollback transaction fail bool errorreported = false; action<importerrorlog> newerrorcallback = e => { errorreported = true; errorcallback(e); }; using (var transaction = new transactionscope()) { foreach (importtaskdefinition task in taskdefinition) { loader.load(streamfile, newerrorcallback, task.destinationtable, processingtaskid); } if (!errorreported) transaction.complete(); } i'm sure there no transactionscope started ahead or after code. i'm using entity framework insert in db. regardless state of errorreported transaction never rolled in case of error. what missing ? transactionscope sets transaction.current . that's does. wants transacted must @ property. i believe ef each time connection opened reason. probably, connection open when scope installed. open connection inside of scope or enlist manually. ef has nasty "design decision": default opens
Read more