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 - How to retrieve a variable from the Apache configuration inside the module? -

-
i'm building custom apache module. how retrieve variable apache configuration inside module? see variable "some_var_config_from_apache_or_htaacess" inside apache module: /* source: http://people.apache.org/~humbedooh/mods/examples/mod_example_1.c */ /* include required headers httpd */ #include "httpd.h" #include "http_core.h" #include "http_protocol.h" #include "http_request.h" static void register_hooks(apr_pool_t *pool); static int example_handler(request_rec *r); /* define our module entity , assign function registering hooks */ module ap_module_declare_data example_module = { standard20_module_stuff, null, // per-directory configuration handler null, // merge handler per-directory configurations null, // per-server configuration handler null, // merge handler per-server configurations null, // directives may have httpd register_hoo
Read more

c# - Constructor arguments cannot be passed for interface mocks -

-
when debug code , read line mocklessonplannerafactory creation error: constructor arguments cannot passed interface mocks. var mockschoolclasscodeservice = new mock<ischoolclasscodeservice>(); var mockdateservice = new mock<idateservice>(); var mocklessonplannerafactory = new mock<ilessonplannerafactory>(mockdateservice.object); var mocklessonplannerbfactory = new mock<ilessonplannerbfactory>(mockdateservice.object); var service = new timetableservice(mockunitofwork.object, mocklessonplannerafactory.object, mocklessonplannerbfactory.object, mockschoolclasscodeservice.object); my timetableservice accepts instances of interface type only. mocklessonplannerafactory , bfactory... want in constructor idateservice passed. what wrong code? the clue in error message "constructor arguments cannot passed interface mocks." the mock created interface have default constructor because interfaces don't have constructor. remember mockin
Read more

python - malformed header from script index.py Bad header -

-
i want run python code in apache2(ubuntu 14.04) server. have followed these steps , getting error: step 1: configuration 1: have created directory , file under /var/www/cgi-bin configuration 2 : have edited /etc/apache2/sites-available/000-default.conf alias /cgi-bin /var/www/cgi-bin <directory "/var/www/cgi-bin"> options indexes followsymlinks execcgi addhandler cgi-script .cgi .py allow </directory> <directory /var/www/cgi-bin> options </directory> step 2: and python script is: index.py #!/usr/bin/env python import cgi; import cgitb;cgitb.enable() print "content-type: text/plain\n" print "<b>hello python</b>" step 3: when ran through chrome browser using: url : http://localhost/cgi-bin/index.py step 4: i getting error in error-log malformed header script 'index.py': bad header: hello python you should end header \r\n, must print out yet \r\n signal body coming. (i
Read more