# [R] Creating hanging bar plot in r from dplyr

Scott Colwell @co|we|| @end|ng |rom uogue|ph@c@
Sat Apr 20 19:55:52 CEST 2019

```That is perfect. Thanks!

--
Scott R. Colwell, PhD

﻿On 2019-04-20, 1:23 PM, "Jeff Newmiller" <jdnewmil using dcn.davis.ca.us> wrote:

Not really sure I understand what you want. Here is some code to
consider:

################

library(ggplot2)
library(dplyr)
library(tidyr)

"samp.N   RSQ    MRB_uc  MRB_sb  MRB_bp
50      0.3      1.42    37.6   37.6
50      0.4      8.61    43.1   43.1
50      0.5      7.41    31.6   31.6
50      0.6      5.06    21.5   21.5
50      0.7      3.38    14.1   14.1
50      0.8     -1.07    5.16   5.16
100      0.3     -6.41    40.3   40.3
100      0.4     -10.6    21.0   21.0
100      0.5     -9.02    13.2   13.2
100      0.6     -9.85    5.14   5.14
100      0.7     -7.94    2.08   2.08
100      0.8     -4.81    1.28   1.28
dta2 <- (   dta
%>% mutate( samp.N = factor( samp.N )
, RSQ = factor( RSQ )
)
%>% gather( Measure, value, -c( samp.N, RSQ ) )
)

ggplot( dta2, aes( x = RSQ, y = value, fill = samp.N ) ) +
geom_bar( stat = "identity", position = "dodge", colour = "black" ) +
facet_wrap( ~ Measure, ncol = 1, scale = "free_y" ) +
ylab( "" )

################

On Sat, 20 Apr 2019, Scott Colwell wrote:

> I am trying to figure out how to create a hanging bar plot from dplyr.
> I have used dplyr as follows:
> table4 <- cr %>%
>  group_by(samp.N, RSQ) %>%
>  summarize(
>    MRB_uc = mean(CF.F1F2/0.40*100)-100,
>    MRB_sb = mean(SBC.F1F2.Alpha/0.40*100) - 100,
>    MRB_bp = mean(BPC.F1F2.Alpha/0.40*100) - 100
>  )
> which provides me with this:
>   samp.N   RSQ MRB_uc MRB_sb MRB_bp
>    <dbl> <dbl>  <dbl>  <dbl>  <dbl>
> 1     50   0.3   1.42  37.6   37.6
> 2     50   0.4   8.61  43.1   43.1
> 3     50   0.5   7.41  31.6   31.6
> 4     50   0.6   5.06  21.5   21.5
> 5     50   0.7   3.38  14.1   14.1
> 6     50   0.8  -1.07   5.16   5.16
> 7    100   0.3  -6.41  40.3   40.3
> 8    100   0.4 -10.6   21.0   21.0
> 9    100   0.5  -9.02  13.2   13.2
> 10    100   0.6  -9.85   5.14   5.14
> 11    100   0.7  -7.94   2.08   2.08
> 12    100   0.8  -4.81   1.28   1.28
> What I want to do is create a hanging bar plot with the x-axis being samp.N value by RSQ value. The bars are then values of MRB_uc, MRB_sb, and MRB_bp. Given some values are negative, some bars will be above zero and others below (hence the hanging bar plot)
> I don't have any code yet as I am completely unfamiliar with how to do this. Any suggestions would be really appreciated.
> Thank you!
> Scott
>
>
>
>
> --
> Scott R. Colwell, PhD
>
>
> 	[[alternative HTML version deleted]]
>
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> and provide commented, minimal, self-contained, reproducible code.
>

---------------------------------------------------------------------------
Jeff Newmiller                        The     .....       .....  Go Live...
DCN:<jdnewmil using dcn.davis.ca.us>        Basics: ##.#.       ##.#.  Live Go...
Research Engineer (Solar/Batteries            O.O#.       #.O#.  with
/Software/Embedded Controllers)               .OO#.       .OO#.  rocks...1k
---------------------------------------------------------------------------

```