[R] Help needed with ggplot2

[bharat rawlley]

 Thank you, I have tried to do a better job here - 



Data - 
email <- structure(list(percentage = c(57.14, 29.76, 69.32, 28.41, 57.89,                                        34.21, 58.59, 33.33, 48.42, 42.11, 59.77, 29.89, 72.13, 18.03,                                        53.33, 33.33, 55.1, 40.82, 46.55, 37.93), year = c(2020L, 2020L,                                                                                           2019L, 2019L, 2018L, 2018L, 2017L, 2017L, 2016L, 2016L, 2015L,                                                                                           2015L, 2014L, 2014L, 2013L, 2013L, 2012L, 2012L, 2011L, 2011L                                       ), gender = c("male", "female", "male", "female", "male", "female",                                                      "male", "female", "male", "female", "male", "female", "male",                                                      "female", "male", "female", "male", "female", "male", "female"                                       )), class = "data.frame", row.names = c(NA, -20L))



Code - 
ymax <- max(graph_text$percentage)ggplot(aes(x=year, y=percentage, color = gender, fill=gender, data = graph_text)+  geom_bar(position = 'dodge', stat='identity')+  theme_classic()+  geom_text(aes(label = percentage), size = 4, position = position_dodge(width = 1.1), vjust=-0.2) +   scale_y_continuous(limits=c(0, 1.4*ymax))



Session info - 
R version 4.1.0 (2021-05-18)Platform: x86_64-w64-mingw32/x64 (64-bit)Running under: Windows 10 x64 (build 19042)
Matrix products: default
locale:[1] LC_COLLATE=English_India.1252  LC_CTYPE=English_India.1252    LC_MONETARY=English_India.1252[4] LC_NUMERIC=C                   LC_TIME=English_India.1252    
attached base packages:[1] stats     graphics  grDevices utils     datasets  methods   base     
loaded via a namespace (and not attached): [1] fansi_0.5.0      assertthat_0.2.1 dplyr_1.0.6      crayon_1.4.1     utf8_1.2.1       [6] grid_4.1.0       R6_2.5.0         DBI_1.1.1        lifecycle_1.0.0  gtable_0.3.0    [11] magrittr_2.0.1   scales_1.1.1     ggplot2_3.3.3    pillar_1.6.1     rlang_0.4.11    [16] generics_0.1.0   vctrs_0.3.8      ellipsis_0.3.2   tools_4.1.0      glue_1.4.2      [21] purrr_0.3.4      munsell_0.5.0    compiler_4.1.0   pkgconfig_2.0.3  colorspace_2.0-1[26] tidyselect_1.1.1 tibble_3.1.2    


I have the following questions - 
Q1 How can I make the years appear on x axis as 2011, 2012, 2013, 2014 and so on (earlier they were showing up as 2012.5 etc. which has disappeared now for reason I do not know)
Q2 Is there any way to create a small gap between the red and blue bars for aesthetic purposes
Q3 Is there anyway to make the text on top of the bars bolder or thicker? 
Thank you




    On Saturday, 21 August, 2021, 05:57:09 pm GMT-4, Bert Gunter <bgunter.4567 using gmail.com> wrote:  
 
 See ?dput for how to provide a reproducible example (a reprex). Or see here:
https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example

It will improve your chance of getting a helpful and quick response.

Cheers,
Bert Gunter

"The trouble with having an open mind is that people keep coming along
and sticking things into it."
-- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )

On Sat, Aug 21, 2021 at 2:47 PM bharat rawlley via R-help
<r-help using r-project.org> wrote:
>
>
> Hello, on using the following code for the following data, the graph I get has an x axis where years are mentioned as 2012.5, 2017.5 etc.
>
> I have the following questions -
> Q1 How can I make the years on x axis as 2011, 2012, 2013, 2014 and so on..
> Q2 Is there any way to create a small gap between the red and blue bars for aesthetic purposes
> Q3 Is there anyway to make the text on top of the bars bolder or thicker?
> Thank you
>
> code -
> ymax <- max(graph_text$percentage)ggplot(aes(x=year, y=percentage, color = gender, fill=gender), data = graph_text)+  geom_bar(position = 'dodge', stat='identity')+  theme_classic()+  geom_text(aes(label = percentage), size = 4, position = position_dodge(width = 1.1), vjust=-0.2) +  scale_y_continuous(limits=c(0, 1.4*ymax))
>
>
> | 57.14 | 2020 |  male |
> | 29.76 | 2020  | female |
> | 69.32 | 2019  | male |
> | 28.41 | 2019 |  female |
> | 57.89 | 2018 |  male |
> | 34.21 | 2018  | female |
> | 58.59 | 2017 |  male |
> | 33.33 | 2017  | female |
> | 48.42 | 2016  | male |
> | 42.11 | 2016 |  female |
> | 59.77 | 2015 |  male |
> | 29.89 | 2015 |  female |
> | 72.13 | 2014 |  male |
> | 18.03 | 2014 |  female |
> | 53.33 | 2013 |  male |
> | 33.33 | 2013 |  female |
> | 55.1 | 2012 |  male |
> | 40.82 | 2012  | female |
> | 46.55 | 2011  | male |
> | 37.93 | 2011  | female |
>
>
>
>
>
> ______________________________________________
> R-help using 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.
  
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 1629584566984blob.jpg
Type: image/png
Size: 39551 bytes
Desc: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20210821/93aa7a3e/attachment.png>