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]]
Not really sure I understand what you want. Here is some code to
consider:
################
library(ggplot2)
library(dplyr)
library(tidyr)
dta <- read.table( text "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
", header = TRUE )
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 at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
---------------------------------------------------------------------------
Jeff Newmiller The ..... ..... Go Live...
DCN:<jdnewmil at dcn.davis.ca.us> Basics: ##.#. ##.#. Live
Go...
Live: OO#.. Dead: OO#.. Playing
Research Engineer (Solar/Batteries O.O#. #.O#. with
/Software/Embedded Controllers) .OO#. .OO#. rocks...1k
That is perfect. Thanks!
--
Scott R. Colwell, PhD
?On 2019-04-20, 1:23 PM, "Jeff Newmiller" <jdnewmil at
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)
dta <- read.table( text "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
", header = TRUE )
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 at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
---------------------------------------------------------------------------
Jeff Newmiller The ..... ..... Go Live...
DCN:<jdnewmil at dcn.davis.ca.us> Basics: ##.#. ##.#.
Live Go...
Live: OO#.. Dead: OO#.. Playing
Research Engineer (Solar/Batteries O.O#. #.O#. with
/Software/Embedded Controllers) .OO#. .OO#. rocks...1k
---------------------------------------------------------------------------