r - ggplot2: Drop unused factors in a faceted bar plot but not have differing bar widths between facets -

- 

df <- structure(list(id = structure(c(1l, 1l, 1l, 1l, 1l, 2l, 2l, 2l,  2l, 2l, 2l, 3l, 3l, 3l, 3l, 3l, 3l, 4l, 4l, 4l, 4l, 4l, 4l, 5l,  5l, 5l, 5l, 5l, 5l, 6l, 6l, 6l, 6l, 6l, 6l, 7l, 7l, 7l), .label = c("1",  "2", "3", "4", "5", "6", "7"), class = "factor"), type = structure(c(1l,  2l, 3l, 4l, 5l, 1l, 2l, 3l, 4l, 5l, 6l, 1l, 2l, 3l, 4l, 5l, 6l,  1l, 2l, 3l, 4l, 5l, 6l, 1l, 2l, 3l, 4l, 5l, 6l, 1l, 2l, 3l, 4l,  5l, 6l, 1l, 2l, 3l), .label = c("1", "2", "3", "4", "5", "6",  "7", "8"), class = "factor"), time = structure(c(2l, 2l, 2l,  2l, 2l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 2l, 2l,  2l, 2l, 2l, 2l, 1l, 1l, 1l, 1l, 1l, 1l, 2l, 2l, 2l, 2l, 2l, 2l,  1l, 1l, 1l), .label = c("1", "5", "15"), class = "factor"), val = c(0.937377670081332,  0.522220720537007, 0.278690102742985, 0.967633064137772, 0.116124767344445,  0.0544306698720902, 0.470229141646996, 0.62017166428268, 0.195459847105667,  0.732876230962574, 0.996336271753535, 0.983087373664603, 0.666449476964772,  0.291554537601769, 0.167933790013194, 0.860138458199799, 0.172361251665279,  0.833266809117049, 0.620465772924945, 0.786503327777609, 0.761877260869369,  0.425386636285111, 0.612077651312575, 0.178726130630821, 0.528709076810628,  0.492527724476531, 0.472576208412647, 0.0702785139437765, 0.696220921119675,  0.230852259788662, 0.359884874196723, 0.518227979075164, 0.259466265095398,  0.149970305617899, 0.00682218233123422, 0.463400925742462, 0.924704828299582,  0.229068386601284)), .names = c("id", "type", "time", "val"), row.names = c(na,  -38l), class = "data.frame")

if create following plot:

ggplot(df, aes(x=id, y=val, fill=type)) +   facet_wrap(~ time, ncol=1) +   geom_bar(position="stack") +   coord_flip()

plot

i decide ideally supress factors being shown in facet don't have data. have referenced various questions , answers scale="free" method way go (as opposed drop=true drop empty facets corresponding unused values in time), next:

ggplot(df, aes(x=id, y=val, fill=type)) +   facet_wrap(~time, ncol=1, scale="free") +   geom_bar(position="stack") +   coord_flip()

plot

my question how prevent rescaling of bars occurs facet has 4 bars vs. facet 3 bars. effect subtle in contrived example, worse actual data. ideal output have bottom facet id factors 1,4, , 6 on vertical axis bars having same width top facet, , overall vertical dimension of facet reduced.

bonus points if can me why counts stacked instead of numeric values (fixed now)

bounty update:

as mentioned in followup question looks better solution involve use of ggplot_build , ggplot_table , modifying gtable object. i'm pretty sure figure out given time, i'm hoping bounty might motivate else me out. koshke has posted examples of this.

how this:

df$w <- 0.9 df$w[df$time == 5] <- 0.9 * 3/4 ggplot(df, aes(x=id, y=val, fill=type)) +    facet_wrap(~time, ncol=1, scale="free") +    geom_bar(position="stack",aes(width = w),stat = "identity") +    coord_flip()

enter image description here

not sure if got arithmetic right there, idea.


Comments

Post a Comment

Popular posts from this blog

c# - SVN Error : "svnadmin: E205000: Too many arguments" -

-
i trying reposotries using c# code process svncommand = null; var psi = new processstartinfo("svnadmin"); psi.redirectstandardoutput = true; psi.redirectstandarderror = true; psi.useshellexecute = false; psi.arguments= @"dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump"; using (svncommand = process.start(psi)) { var myoutput = svncommand.standardoutput; var myerror = svncommand.standarderror; debug.write("output :" + environment.newline + environment.newline + myoutput.readtoend() + environment.newline + "error :" + environment.newline + environment.newline + myerror.readtoend()); svncommand.close(); } when use dump command commandline svnadmin dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump it works fine when try ...
Read more

c# - Copy ObservableCollection to another ObservableCollection -

-
how copy observablecollection item observablecollection without reference of first collection? here observablecollection item value changes affecting both collections. code private observablecollection<ratemodel> _allmetalrate = new observablecollection<ratemodel>(); private observablecollection<ratemodel> _metalrateondate = new observablecollection<ratemodel>(); public observablecollection<ratemodel> allmetalrate { { return this._allmetalrate; } set { this._allmetalrate = value; notifypropertychanged("metalrate"); } } public observablecollection<ratemodel> metalrateondate { { return this._metalrateondate; } set { this._metalrateondate = value; notifypropertychanged("metalrateondate"); } } foreach (var item in metalrateondate) allmetalrate.add(item); what causing , how can solve it? you need clone object referenced item before it's a...
Read more

All overlapping substrings matching a java regex -

-
is there api method returns (possibly overlapping) substrings match regular expression? for example, have text string: string t = 04/31 412-555-1235; , , have pattern: pattern p = new pattern("\\d\\d+"); matches strings of 2 or more characters. the matches are: 04, 31, 412, 555, 1235. how overlapping matches? i want code return: 04, 31, 41, 412, 12, 55, 555, 55, 12, 123, 1235, 23, 235, 35. theoretically should possible -- there obvious o(n^2) algorithm enumerates , checks substrings against pattern. edit rather enumerating substrings, safer use region(int start, int end) method in matcher . checking pattern against separate, extracted substring might change result of match (e.g. if there non-capturing group or word boundary check @ start/end of pattern). edit 2 actually, it's unclear whether region() expect zero-width matches. specification vague, , experiments yield disappointing results. for example: string line = "xx90xx"; strin...
Read more