Every morning while taking subway i check my twitter account to see whats happening in the R world. Last week i came across a post and ended up learning about TidyTuesday initiative. The concept is simple the link is updated every monday with a new dataset and lets users to create visuals in R and post on twitter using the hashtag #tidytuesday.
I had participated in something similar called makeovermondays. This was specifically for tableau. But i ended up using R for generating visuals and it worked out well.
Initiatives like these allows us to get different perspectives about data and understand how other people are perceiving the same data. Anyways i tried my hand at this weeks Wine dataset. In this post i will provide the code i used and in next post i will try to break up my code and explain what my code is doing.
library(ggplot2) library(dplyr) library(packcircles) data <- read.csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-05-28/winemag-data-130k-v2.csv", stringsAsFactors = FALSE) prices <- data %>% group_by(country) %>% summarise(n = n(), prc = max(price, na.rm = TRUE))-> data_f data_f <- na.omit(data_f) packing <- circleProgressiveLayout(data_f$prc, sizetype='area') data_f = cbind(data_f, packing) dat.gg <- circleLayoutVertices(packing, npoints=50) # Make the plot ggplot() +
# Make the bubbles
geom_polygon(data = dat.gg, aes(x, y, group = id, fill=as.factor(id)), colour = "black", alpha = 0.6) +
# Add text in the center of each bubble + control its size geom_text(data = data_f, aes(x, y, size=prc, label = country)) + scale_size_continuous(range = c(1,4)) +
# General theme:
theme(legend.position="none",text=element_text(color = "white"), plot.background = element_rect(fill = "black")) +