r - How to shade a region under a horizontal line transparently using ggplot2? -


this original image.

original image

this code used produce above image.

## employees wise sales report: may 2014-lynda best visualization assignment setwd('d:/dataset/lynda') empwisedata=read.csv('income.csv',header=t,sep=",") names(empwisedata) attach(empwisedata)  minimum=c(min(person1),min(person2),min(person3),min(person4),min(person5)) average=c(mean(person1),mean(person2),mean(person3),mean(person4),mean(person5)) maximum=c(max(person1),max(person2),max(person3),max(person4),max(person5)) attach(average)  library(ggplot2) library(reshape2) df = melt(data.frame(minimum,average,maximum,employees=c("person1", "person2","person3","person4","person5")),variable.name="incomelevels") df$employees<-factor(df$employees,levels = df$employees[order(average)])  p=ggplot(df, aes(employees, value, fill=incomelevels)) +   geom_bar(position="dodge",stat="identity")  p + geom_hline(yintercept=mean(average))+scale_fill_manual(values=c("red","orange","dark green"))+labs(size= "nitrogen", x = "employees of acme widgets",y = "income in usd", title = "acme widgets :: employees wise sales report-may 2014 ")

i fill color under horizontal line in graph. had tried geom_rect modifying last line of above code follows.

p+geom_hline(yintercept=mean(average)) + scale_fill_manual(values=c("red","orange","dark green"))+labs(size= "nitrogen", x = "employees of acme widgets",y = "income in usd", title = "acme widgets :: employees wise sales report-may 2014 ") + geom_rect(xmin=0,xmax=200,ymin=0,ymax=mean(average),fill="blue")

and got following image.

enter image description here

i dont need dark blue. need transparency average bars (yellow coloured) viewed. had tried different alpha levels too. nothing works. appreciated.

solution: had modified last line of code per advice of lukea. code 

p+geom_hline(yintercept=mean(average))+scale_fill_manual(values=c("red","orange","dark green"))+labs(size= "nitrogen", x = "employees of acme widgets",y = "income in usd", title = "acme widgets :: employees wise sales report-may 2014 ")+  annotate("rect", xmin = -inf, xmax = inf, ymin = -inf, ymax = mean(average), fill = "blue", alpha = .1, color = na)

and got desired output plot mentioned below. enter image description here

thank all.

try this

library(ggplot2) ggplot(mtcars, aes(mpg)) +    geom_histogram() +    annotate("rect", xmin = -inf, xmax = inf, ymin = -inf, ymax = 1, fill = "blue", alpha = .5, color = na)

enter image description here


Comments

Post a Comment

Popular posts from this blog

javascript - Using jquery append to add option values into a select element not working -

i'm looking dynamically populate select element names of items stored array. for reason it's not working , i'm not sure why. html: <div class="col-md-4 col-md-offset-4"> <select class="select1"> </select> , <select class="select2"> </select> </div> note i'm using bootstrap layout. here's jquery i'm using try , populate ".select1" jquery: select: function() { $.each(state.greens, function(index, value) { $(".select1").append("<option value =' " + index + " '>" + state.greens[index].name + "</option>"); }); } note function 'select' stored within object called 'display'. state.greens name of array i'm trying access. so @ end of html page call display.select(); call function. no error messages showing in console. also, saw question: appending
Read more

Android soft keyboard reverts to default keyboard on orientation change -

i'm building android soft keyboard , can't seem fix bug - have arabic , qwerty keyboard , when rotate device on qwerty keyboard (or arabic shift), it's if program has "restarted" , becomes arabic keyboard without shift. the onsaveinstancestate(bundle savedinstancestate) not work because application not extend activity inputmethodservice . i put following in android manifest android:configchanges="keyboard|keyboardhidden|orientation" android:windowsoftinputmode="stateunchanged|adjustresize"> i tried using @override public void onconfigurationchanged(configuration newconfig) { super.onconfigurationchanged(newconfig); log.i(mydebug, "config changed " + currentkeyboard.equals(qwerty)); } however, currentkeyboard.equals(qwerty)) results false , made sure true before orientation change. any appreciated. i think applications fault. if application restarting on orientation change
Read more

Rendering JButton to get the JCheckBox behavior in a JTable by using images does not update my table -

i rendering jbutton image on simulate jcheckbox behavior. why don't let jtable render jcheckbox? because need bigger checkboxes , there's no way can resize them (as far know). so, have own table cell renderer , editor. both renders jbutton , checkbox images on them. trying change image checked image unchecked image (or vice versa) , update cell value (boolean true or false). however, reason, getcelleditorvalue() not update table. so, release mouse, value goes original one. any appreciated! lot! public class tableexample extends jframe { jscrollpane pane; jpanel panel; jtable table; object[][] data; mytablemodel tm; renderer buttoncolumn; public tableexample(object[][] data) throws ioexception { string[] columns = {"column#1", "column#2", "column#3", "column#4", "column#5", "column#6"}; this.data = data; this.setpreferredsize(new dimension(700, 500));
Read more