Using ggplot2 and R to recreate a data journalist's figure about Michigan wages (CC321)

Support Riffomonas by becoming a Patreon member!

You can also find complete tutorials for learning R with the tidyverse using...

0:00 Introduction
3:58 Building bar plot with titles
11:08 Formatting titles
16:16 Styling legend text and glyph
20:06 Adding text to interior of bars
24:26 Styling x-axis text and ticks
31:07 Styling y-axis text and ticks

[osaabd]

Thank you Pat for the inspiring videos. I learned a lot today!

[alenesia_]

I loved your presentation!
Your fresh perspective on data visualization is really inspiring.
Thanks for sharing your knowledge!

[moviezone]

Thanks again for yet another video which rises the bar high! I gained a lot of valuable lessons. I do have one suggestion to you, would you please start a lesson on the programming aspect of R programming from basics to advanced level in a structured way by doing you your channel will stand out from the rest of the crowd sir. By the way I am following you from Ethiopia, Addis Ababa.

[belantaribrahim]

Great video as always 💯...thank you.

These past days I have been diving into diversity in ecology (alpha, beta, gamma, Shannon, Simpson...), since I don't have a lot of experience in statistics with ecological data I am learning as I go, and when it comes to R I always turn to your videos 😅.
I found your previous code club videos about dissimilarity matrices, NMDS, Mantel...very helpful of course, but in my research I came across Hill numbers and "hill.div" package...it would be so great if you make some videos about the package and the Hill numbers.

Thank you again...always keep making these videos🤗🤗

[Sabin]

So good, love to see you work. For me a lot of job is now being done by Calude. I think it is ruining my skills in terms of thinking how to do it.

[wolfgangr.]

Great work, but I'm not a huge fan of this heavy use of annotations. They won't change when your data changes.
Instead you could use something like:

...
scale_y_continuous(labels = scales::label_currency())+
coord_cartesian(ylim = c(0, NA),
xlim = c(-0.6, 6.6), clip = "off", expand = FALSE) +
...
theme(
...
axis.text.y = element_text(hjust = 0, vjust = -0.3, size = 13, face = "bold", margin = margin(r = -58)),
...
)

The definition of margin is not ideal (it's hardcoded and might need adaption) but I think it's overall a more "robust" solution

[svenr]

GO WOLVERINES! (Just cheering for you :P)