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 at 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 at 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 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.
-------------- 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>