r - How to make a chart with multi histograms -

-

i have mess making chart multy histograms in r (try use ggplot2). example of need generated in excel chart (see link):

enter image description here

the initial dataset below:

attribute   dev_share   current_qty_share 1           0,04999641  0,115217086 2           0,050001729 0,076647464 3           0,04999641  0,074048054 4           0,050001729 0,071905297 5           0,049999069 0,067865674 6           0,049999069 0,059962063 7           0,049999069 0,054130954 8           0,049999069 0,052725868 9           0,049999069 0,047421666 10          0,049999069 0,036040466 11          0,049999069 0,033370802 12          0,049999069 0,029085289 13          0,049999069 0,027047913 14          0,04999641  0,034354363 15          0,050001729 0,036567374 16          0,049999069 0,039728818 17          0,049999069 0,042222847 18          0,049999069 0,036532247 19          0,049999069 0,02511592 20          0,050017684 0,040009836

for each attribute (#1,2,3...) correspond 2 variables ('dev_share' - blue color , 'current_qty_share' - green, yellow, red colors.

two dashed lines mean cut-offs: first cut-off corresponds 17th attribute , second 1 - 10th attribute. cutt-offs landmarks distinguish colors per attribute 'current_qty_share' variable: 17-20 - green, 10-16 - yellow, 1-9 - red. blue color same attributes of 'dev_share'.

x-axis contains attribute values, y-axis cintains values of 'dev_share' , 'current_qty_share'.

it grateful if make hint ot example how make chart in excel template (see link).

here started. first, had replace "," "." in data frame. if want show both columns, need convert data frame wide long. added way color differently bars, can change wish.

library(ggplot2) library(reshape2) data_wide <- read.table(text=" attribute   dev_share   current_qty_share 1           0.04999641  0.115217086 2           0.050001729 0.076647464 3           0.04999641  0.074048054 4           0.050001729 0.071905297 5           0.049999069 0.067865674 6           0.049999069 0.059962063 7           0.049999069 0.054130954 8           0.049999069 0.052725868 9           0.049999069 0.047421666 10          0.049999069 0.036040466 11          0.049999069 0.033370802 12          0.049999069 0.029085289 13          0.049999069 0.027047913 14          0.04999641  0.034354363 15          0.050001729 0.036567374 16          0.049999069 0.039728818 17          0.049999069 0.042222847 18          0.049999069 0.036532247 19          0.049999069 0.02511592 20          0.050017684 0.040009836",   header = true)  data_long <- melt(data_wide, id.vars=c("attribute")) data_long$color <-    with(data_long,        ifelse(variable == "current_qty_share", "darkblue",           ifelse(variable == "dev_share" & attribute >=1 & attribute <8,                  "darkred",                  ifelse(variable == "dev_share" & attribute >=8 & attribute <=17,                         "green",                              "yellow")))  ggplot(data=data_long, aes(x=as.factor(attribute), y=value, group=variable, fill=color)) +  geom_bar(stat='identity', position='dodge') +  theme_bw() +  geom_vline(xintercept=10, linetype = "longdash") +  geom_vline(xintercept=17, linetype = "longdash") +  xlab("attribute") +  ylab("value") +  scale_fill_manual(values=c("darkblue", "darkred", "green", "yellow"))

enter image description here


Comments

Post a Comment

Popular posts from this blog

c++ - llvm function pass ReplaceInstWithInst malloc -

-
#include "llvm/pass.h" #include "llvm/ir/module.h" #include "llvm/ir/function.h" #include "llvm/support/raw_ostream.h" #include "llvm/ir/legacypassmanager.h" #include "llvm/ir/instrtypes.h" #include "llvm/transforms/ipo/passmanagerbuilder.h" #include "llvm/ir/irbuilder.h" #include "llvm/transforms/utils/basicblockutils.h" using namespace llvm; namespace { struct replacepass : public functionpass { static char id; replacepass() : functionpass(id) {} virtual bool runonfunction(function &f) { allocainst* insttoreplace = ??? basicblock::iterator ii(insttoreplace); replaceinstwithinst(insttoreplace->getparent()->getinstlist(), ii, new allocainst(type::int32ty, 0, insttoreplace)); return true; } }; } char replacepass::id = 0; static void registerreplacepass(const passmanagerbuilder &, legacy::passmanagerbase &pm) { pm.add(new re
Read more

java.lang.NoClassDefFoundError When Creating New Android Project -

-
i've tried installing (and re-installing) android studio several times now, , each time, studio isn't able create new android project. when attempt initial android studio window (ie. basic 'create', 'open', 'import' etc options), i'm asked of questions in wizard, brief progress dialog, followed nothing @ all. if open incomplete project process creates choosing 'open' list, can try choosing create new android project menu. this has same issue, error message in output console time... java.lang.noclassdeffounderror: com/sun/xml/internal/bind/v2/model/annotation/annotationreader (wrong name: com/sun/xml/internal/bind/v0/model/qnnotation/annotationreader) note: when installed android studio, installed incompatible jdk (1.8, not 1.7). have had go default project settings change jdk uses 1.8. does know how can avoid this? there place should downloading jxb classes? missing in java paths? this appears have been caused cor
Read more

Decoding a Python 2 `tempfile` with python-future -

-
i'm attempting write python 2/3 compatible routine fetch csv file, decode latin_1 unicode , feed csv.dictreader in robust, scalable manner. for python 2/3 support, i'm using python-future including imporing open builtins , , importing unicode_literals consistent behaviour i'm hoping handle exceptionally large files spilling disk, using tempfile.spooledtemporaryfile i'm using io.textiowrapper handle decoding latin_1 encoding before feeding dictreader this works fine under python 3. the problem textiowrapper expects wrap stream conforms bufferediobase . unfortunately under python 2, although have imported python 3-style open , vanilla python 2 tempfile.spooledtemporaryfile still of course returns python 2 cstringio.stringo , instead of python 3 io.bytesio required textiowrapper . i can think of these possible approaches: wrap python 2 cstringio.stringo python 3-style io.bytesio . i'm not sure how approach - need write such wrapper or 1 ex
Read more