thr3ads.net - R help - [R] Help with ggplot plot [Feb 2020]

If this information is useful, please help other people find it:
Share via:

Bill Poling

2020-Feb-28 16:50 UTC

[R] Help with ggplot plot

#RStudio Version 1.2.5019
sessionInfo()
# R version 3.6.2 (2019-12-12)
#Platform: x86_64-w64-mingw32/x64 (64-bit)
#Running under: Windows 10 x64 (build 17134)

Hello, I am sure I am missing something simple.

Here is my data, its aggregated and if need be I can unaggregate I guess:

dput(tmp)
structure(list(InOutFlagAlpha = c("NO ", "YES", "NO
", "YES",
"NO ", "YES", "NO ", "YES", "NO
", "YES", "NO ", "YES", "NO ",
"YES", "NO ", "YES", "NO ",
"YES", "NO ", "YES"), ProductLineFlag =
structure(c(1L,
1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L,
1L, 2L, 2L), .Label = c("ACH", "CARD"), class =
"factor"), Region = structure(c(1L,
1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L,
5L, 5L, 5L), .Label = c("Frontier", "Midwest",
"Northeast", "Pacific",
"South"), class = "factor"), ProductLineID = c(7163L,
34212L,
35891L, 54177L, 8873L, 34008L, 52017L, 67881L, 7408L, 29430L,
64108L, 70532L, 5984L, 21720L, 49030L, 60211L, 7330L, 34876L,
46387L, 75893L)), row.names = c(NA, -20L), class = "data.frame")

|InOutFlagAlpha |ProductLineFlag |    Region| ProductLineID|
|:--------------|:---------------|---------:|-------------:|
|NO             |ACH             |  Frontier|          7163|
|YES            |ACH             |  Frontier|         34212|
|NO             |CARD            |  Frontier|         35891|
|YES            |CARD            |  Frontier|         54177|
|NO             |ACH             |   Midwest|          8873|
|YES            |ACH             |   Midwest|         34008|
|NO             |CARD            |   Midwest|         52017|
|YES            |CARD            |   Midwest|         67881|
|NO             |ACH             | Northeast|          7408|
|YES            |ACH             | Northeast|         29430|
|NO             |CARD            | Northeast|         64108|
|YES            |CARD            | Northeast|         70532|
|NO             |ACH             |   Pacific|          5984|
|YES            |ACH             |   Pacific|         21720|
|NO             |CARD            |   Pacific|         49030|
|YES            |CARD            |   Pacific|         60211|
|NO             |ACH             |     South|          7330|
|YES            |ACH             |     South|         34876|
|NO             |CARD            |     South|         46387|
|YES            |CARD            |     South|         75893|

I am trying to get the value from ProductLineID into the bars

I have slowly stepped through to the point of having everything but the values.

Appreciate any advice, thank you.

WHP

#1
  ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
    geom_bar(stat = "identity")
#2
  ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
    geom_bar(stat = "identity")  +
    facet_grid("InOutFlagAlpha")
#3
  ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
    geom_bar(stat ="identity")  +
    facet_grid("InOutFlagAlpha")
#4
  ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
    geom_bar(stat ="identity",position = 'dodge')  +
    facet_grid("InOutFlagAlpha")
#5
  ggplot(tmp, aes(x=Region, y=ProductLineID, fill=ProductLineFlag)) +
    geom_bar(stat ="identity",position = 'dodge')  +
    facet_grid("InOutFlagAlpha")
#6
  ggplot(tmp, aes(x=Region, y=ProductLineID, fill=ProductLineFlag)) + #Best so
far
    geom_bar(stat ="identity")  +
    geom_col()  +
    facet_grid("InOutFlagAlpha")
#7
  ggplot(tmp, aes(x=Region, y=ProductLineID, fill=ProductLineFlag)) + #Not
working
    geom_bar(stat ="identity")  +
    geom_col(position = 'dodge')  +
    facet_grid("InOutFlagAlpha")

WHP


Confidentiality Notice\ \ This email and the attachments...{{dropped:11}}

Rui Barradas

2020-Feb-28 17:05 UTC

head link

[R] Help with ggplot plot

Hello,

If you want faceting, a square grid can do it.


ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
   geom_bar(stat = "identity") +
   facet_grid(InOutFlagAlpha ~ ProductLineFlag)


Hope this helps,

Rui Barradas

?s 16:50 de 28/02/20, Bill Poling escreveu:> #RStudio Version 1.2.5019
> sessionInfo()
> # R version 3.6.2 (2019-12-12)
> #Platform: x86_64-w64-mingw32/x64 (64-bit)
> #Running under: Windows 10 x64 (build 17134)
> 
> Hello, I am sure I am missing something simple.
> 
> Here is my data, its aggregated and if need be I can unaggregate I guess:
> 
> dput(tmp)
> structure(list(InOutFlagAlpha = c("NO ", "YES",
"NO ", "YES",
> "NO ", "YES", "NO ", "YES",
"NO ", "YES", "NO ", "YES", "NO
",
> "YES", "NO ", "YES", "NO ",
"YES", "NO ", "YES"), ProductLineFlag =
structure(c(1L,
> 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L,
> 1L, 2L, 2L), .Label = c("ACH", "CARD"), class =
"factor"), Region = structure(c(1L,
> 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L,
> 5L, 5L, 5L), .Label = c("Frontier", "Midwest",
"Northeast", "Pacific",
> "South"), class = "factor"), ProductLineID = c(7163L,
34212L,
> 35891L, 54177L, 8873L, 34008L, 52017L, 67881L, 7408L, 29430L,
> 64108L, 70532L, 5984L, 21720L, 49030L, 60211L, 7330L, 34876L,
> 46387L, 75893L)), row.names = c(NA, -20L), class = "data.frame")
> 
> |InOutFlagAlpha |ProductLineFlag |    Region| ProductLineID|
> |:--------------|:---------------|---------:|-------------:|
> |NO             |ACH             |  Frontier|          7163|
> |YES            |ACH             |  Frontier|         34212|
> |NO             |CARD            |  Frontier|         35891|
> |YES            |CARD            |  Frontier|         54177|
> |NO             |ACH             |   Midwest|          8873|
> |YES            |ACH             |   Midwest|         34008|
> |NO             |CARD            |   Midwest|         52017|
> |YES            |CARD            |   Midwest|         67881|
> |NO             |ACH             | Northeast|          7408|
> |YES            |ACH             | Northeast|         29430|
> |NO             |CARD            | Northeast|         64108|
> |YES            |CARD            | Northeast|         70532|
> |NO             |ACH             |   Pacific|          5984|
> |YES            |ACH             |   Pacific|         21720|
> |NO             |CARD            |   Pacific|         49030|
> |YES            |CARD            |   Pacific|         60211|
> |NO             |ACH             |     South|          7330|
> |YES            |ACH             |     South|         34876|
> |NO             |CARD            |     South|         46387|
> |YES            |CARD            |     South|         75893|
> 
> I am trying to get the value from ProductLineID into the bars
> 
> I have slowly stepped through to the point of having everything but the
values.
> 
> Appreciate any advice, thank you.
> 
> WHP
> 
> #1
>    ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
>      geom_bar(stat = "identity")
> #2
>    ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
>      geom_bar(stat = "identity")  +
>      facet_grid("InOutFlagAlpha")
> #3
>    ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
>      geom_bar(stat ="identity")  +
>      facet_grid("InOutFlagAlpha")
> #4
>    ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
>      geom_bar(stat ="identity",position = 'dodge')  +
>      facet_grid("InOutFlagAlpha")
> #5
>    ggplot(tmp, aes(x=Region, y=ProductLineID, fill=ProductLineFlag)) +
>      geom_bar(stat ="identity",position = 'dodge')  +
>      facet_grid("InOutFlagAlpha")
> #6
>    ggplot(tmp, aes(x=Region, y=ProductLineID, fill=ProductLineFlag)) +
#Best so far
>      geom_bar(stat ="identity")  +
>      geom_col()  +
>      facet_grid("InOutFlagAlpha")
> #7
>    ggplot(tmp, aes(x=Region, y=ProductLineID, fill=ProductLineFlag)) + #Not
working
>      geom_bar(stat ="identity")  +
>      geom_col(position = 'dodge')  +
>      facet_grid("InOutFlagAlpha")
> 
> WHP
> 
> 
> Confidentiality Notice\ \ This email and the attachments...{{dropped:11}}
> 
> ______________________________________________
> 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.
>

Bill Poling

2020-Feb-28 17:38 UTC

head link

[R] Help with ggplot plot

Hi Rui, thank you this is helpful, however, I would like the values in the or
above the bars.

I have tried 'dodge' but not working correctly.

ggplot(tmp, aes(x=Region, y=ProductLineID, fill=ProductLineFlag)) + #Getting
worse again
    geom_bar(stat ="identity")  +
    geom_col(position = 'dodge')  +
    facet_grid("InOutFlagAlpha")

Thoughts?

WHP

From: Rui Barradas <ruipbarradas at sapo.pt>
Sent: Friday, February 28, 2020 11:06 AM
To: Bill Poling <Bill.Poling at zelis.com>; r-help (r-help at
r-project.org) <r-help at r-project.org>
Subject: Re: [R] Help with ggplot plot

[External Email]
Hello,

If you want faceting, a square grid can do it.


ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
geom_bar(stat = "identity") +
facet_grid(InOutFlagAlpha ~ ProductLineFlag)


Hope this helps,

Rui Barradas

?s 16:50 de 28/02/20, Bill Poling escreveu:> #RStudio Version 1.2.5019
> sessionInfo()
> # R version 3.6.2 (2019-12-12)
> #Platform: x86_64-w64-mingw32/x64 (64-bit)
> #Running under: Windows 10 x64 (build 17134)
>
> Hello, I am sure I am missing something simple.
>
> Here is my data, its aggregated and if need be I can unaggregate I guess:
>
> dput(tmp)
> structure(list(InOutFlagAlpha = c("NO ", "YES",
"NO ", "YES",
> "NO ", "YES", "NO ", "YES",
"NO ", "YES", "NO ", "YES", "NO
",
> "YES", "NO ", "YES", "NO ",
"YES", "NO ", "YES"), ProductLineFlag =
structure(c(1L,
> 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L,
> 1L, 2L, 2L), .Label = c("ACH", "CARD"), class =
"factor"), Region = structure(c(1L,
> 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L,
> 5L, 5L, 5L), .Label = c("Frontier", "Midwest",
"Northeast", "Pacific",
> "South"), class = "factor"), ProductLineID = c(7163L,
34212L,
> 35891L, 54177L, 8873L, 34008L, 52017L, 67881L, 7408L, 29430L,
> 64108L, 70532L, 5984L, 21720L, 49030L, 60211L, 7330L, 34876L,
> 46387L, 75893L)), row.names = c(NA, -20L), class = "data.frame")
>
> |InOutFlagAlpha |ProductLineFlag | Region| ProductLineID|
> |:--------------|:---------------|---------:|-------------:|
> |NO |ACH | Frontier| 7163|
> |YES |ACH | Frontier| 34212|
> |NO |CARD | Frontier| 35891|
> |YES |CARD | Frontier| 54177|
> |NO |ACH | Midwest| 8873|
> |YES |ACH | Midwest| 34008|
> |NO |CARD | Midwest| 52017|
> |YES |CARD | Midwest| 67881|
> |NO |ACH | Northeast| 7408|
> |YES |ACH | Northeast| 29430|
> |NO |CARD | Northeast| 64108|
> |YES |CARD | Northeast| 70532|
> |NO |ACH | Pacific| 5984|
> |YES |ACH | Pacific| 21720|
> |NO |CARD | Pacific| 49030|
> |YES |CARD | Pacific| 60211|
> |NO |ACH | South| 7330|
> |YES |ACH | South| 34876|
> |NO |CARD | South| 46387|
> |YES |CARD | South| 75893|
>
> I am trying to get the value from ProductLineID into the bars
>
> I have slowly stepped through to the point of having everything but the
values.
>
> Appreciate any advice, thank you.
>
> WHP
>
> #1
> ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
> geom_bar(stat = "identity")
> #2
> ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
> geom_bar(stat = "identity") +
> facet_grid("InOutFlagAlpha")
> #3
> ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
> geom_bar(stat ="identity") +
> facet_grid("InOutFlagAlpha")
> #4
> ggplot(tmp, aes(x=Region, y=ProductLineID, fill=Region)) +
> geom_bar(stat ="identity",position = 'dodge') +
> facet_grid("InOutFlagAlpha")
> #5
> ggplot(tmp, aes(x=Region, y=ProductLineID, fill=ProductLineFlag)) +
> geom_bar(stat ="identity",position = 'dodge') +
> facet_grid("InOutFlagAlpha")
> #6
> ggplot(tmp, aes(x=Region, y=ProductLineID, fill=ProductLineFlag)) + #Best
so far
> geom_bar(stat ="identity") +
> geom_col() +
> facet_grid("InOutFlagAlpha")
> #7
> ggplot(tmp, aes(x=Region, y=ProductLineID, fill=ProductLineFlag)) + #Not
working
> geom_bar(stat ="identity") +
> geom_col(position = 'dodge') +
> facet_grid("InOutFlagAlpha")
>
> WHP
>
>
> Confidentiality Notice\ \ This email and the attachments...{{dropped:11}}
>
> ______________________________________________
> mailto: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.
>
Confidentiality Notice

This email and the attachments may contain information which is privileged
and/or confidential and is intended for the business and/or confidential use of
the recipient only. Such information may be protected by applicable State and/or
Federal laws from disclosure or unauthorized use. If you are not the intended
recipient, you are hereby notified that any disclosure is strictly prohibited.
If you have received this email in error, please contact the sender immediately.

R help - Feb 2020 - Help with ggplot plot

[R] Help with ggplot plot

[R] Help with ggplot plot

[R] Help with ggplot plot