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.4...@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@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@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.
______________________________________________
R-help@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.
