Recent comments in /f/dataisbeautiful

Milamber69reddit t1_izb711r wrote

I looked up the price of swans and the numbers that I got are way more than that. As it is swans a swimming. That means that they are hatched and not eggs. The least expensive that I could find was the white mute at $3,083 each with free shipping. That comes to $129,486. The ones I would rather have are the Australian Black Swans. Those come in at $6,500 each with a grand total of $273,000. Trumpeter Swans and Whooper Swans are even more.

27

TrueBirch OP t1_izb47vx wrote

library(tidyverse)

price <- tibble(item_name = c("12 Partridges in a Pear Tree", "22 Turtle Doves", "30 French Hens",

"36 Calling Birds", "40 Gold Rings", "42 Geese a-Laying", "42 Swans a-Swimming",

"40 Maids a-Milking", "36 Ladies Dancing", "30 Lords a-Leaping",

"22 Pipers Piping", "12 Drummers Drumming"),

total_cost = c(3362.16, 6600, 3187.5, 5399.64, 9960, 5040, 78749.58, 290,

33232.48, 41940, 6042.8, 3266.93)) %>%

mutate(total_cost_rounded = scales::dollar(round(total_cost)))

price$item_name_ordered <-

ordered(price$item_name, levels = price$item_name)

ggplot(price, aes(x = item_name_ordered, y = total_cost, fill = "#D6001C")) +

geom_col() +

geom_label(aes(label = total_cost_rounded),

position = position_stack(

vjust = 0.5)) +

coord_flip() +

labs(

title = "Total cost of each gift in the song \"The 12 Days of Christmas\"",

y = "Total cost of each item in the United States in 2022",

x = NULL,

caption = "Created by TrueBirch using data from PNC's Christmas Price Index.

Total cost is the unit cost multiplied by number of times a gift is given."

) +

scale_y_continuous(label = scales::dollar) +

scale_fill_manual(values = "#D6001C") +

theme(

panel.grid.major = element_line(colour = "gray60"),

panel.grid.minor = element_line(colour = NA),

panel.grid.major.y = element_blank(),

panel.background = element_rect(fill = "#599C5D"),

plot.background = element_rect(fill = "gray93"),

legend.position = "none",

plot.title = element_text(size = 17),

plot.caption = element_text(size = 11),

axis.title = element_text(size = 13),

axis.text = element_text(size = 12),

strip.text = element_text(size = 12)

)

5

TrueBirch OP t1_izb46ol wrote

I created the chart using R and ggplot2. The full reproducible code is pasted in a following comment.

This post made me curious about how much you'd have to pay for each set of gift in The 12 Days of Christmas. Turns out PNC Bank tallies the prices every year. They make a few judgement calls, such as treating a "maid a-milking" as the cost of hiring a single individual at the federal minimum wage. Here's how PNC explains its methodology:

>

"The partridge and dove prices came from a national bird supplier. Hatcheries provided the cost of the hens and swans. The price of the geese came from a waterfowl farm. A national pet chain provided the price of the calling birds, or canaries. The pear tree price came from a Pennsylvania nursery. A national jewelry chain provided the cost of five 14-carat gold rings, and PHILADANCO, a modern dance company in Philadelphia, offered the price of ladies dancing, while Philadelphia Ballet supplied the cost of the Lords-a-Leaping. Maids-a-milking are the only unskilled laborers in the PNC CPI and, as such, they reflect the federal minimum wage. Year after year, the sources for the prices remain the same for the most part for consistency, but they have changed on occasion due to changes in the market or business landscape."

8

happyimmigrant t1_izb26zd wrote

Love my Milwaukee tools, but they aren't flawless. I have a 12v jigsaw which is fucking useless and an 18v belt sander that consumes batteries at a rate which makes it unusable for anything outside the workshop. That said, my other 12 units are spot on. I have an impact that I'm still using daily from 2010. Used it for removing lugs from car wheels, which it handles with aplomb. Actually, I was given an 18v 1/2 drive impact that I never use because the driver still does it better.

3