Following on from the last post on the Hottest 100, I received a few tweets from @mjdart demanding a deeper dive into the data. One of his questions was

Of artists charting in at least 5 yrs, are Oz artists higher represented?

I decided to broaden the questions to look at artists with at least five tracks in Hottest 100s (so artists with two tracks in one year and one track in three other years would be in). On this criterion, Australia still comes out on top.

Number of artists with at least 5 “Hot” tracks

In the last post, I complained that 2010 data is currently missing from Wikipedia. It seems that this is because Wikipedia is yet to get permission from the ABC. I have decided to risk the wrath of Auntie and have posted the full chart in the table at the bottom of the post. Having pieced it together, I have updated my original chart to include 2010.

As you can see, 2010 was a good year for Australian artists. It also turns out that the artist with the most Hottest 100 tracks is also Australian: Powderfinger. Here are all the artists with at least 10 Hottest 100 tracks.

Artist Count Country
Powderfinger 22 Australia
Foo Fighters 20 United States
Grinspoon 17 Australia
Silverchair 17 Australia
Muse 16 United Kingdom
The Living End 16 Australia
Regurgitator 15 Australia
Pearl Jam 14 United States
Placebo 14 United Kingdom
You Am I 14 Australia
Green Day 13 United States
Something for Kate 13 Australia
Eskimo Joe 12 Australia
Garbage 12 United States
Red Hot Chili Peppers 12 United States
Hilltop Hoods 11 Australia
Radiohead 11 United Kingdom
Spiderbait 11 Australia
The White Stripes 11 United States
The Whitlams 11 Australia
Wolfmother 11 Australia
Beck 10 United States
Ben Harper 10 United States
Jebediah 10 Australia
Metallica 10 United States
Rage Against the Machine 10 United States
The Strokes 10 United States

UPDATE:

@mjdart asked another question which I thought I should also answer:

@stubbornmule If you assign 100 pts for #1 thru 1 pt for #100 each year, is Oz proportion higher/lower? eg Oz filling out top or bottom 50?

To answer this, I assigned 100 points for the top spot, 99 points for the second and so on down to one point for last place. I summed the score for each country and then scaled it by dividing by 50.5. This odd choice arises because 100 + 99 + 98 + … + 2 + 1 = 5050 and so dividing by 50.5 would give a score of 100 for a country that managed to win every spot in the top 100. This makes the score directly comparable to a simple count of places in the top 100. So, how does this weighted score compare to a simple count? The answer, evident in the chart below is not much! So, each country’s artists must be fairly evenly spread through the top 100 over time.

Finally, here is the complete listing of the 2010 Hottest 100, including country of origin. If you are feeling brave, you may wish to update Wikipedia. Just keep in mind, the list may be deleted again if the ABC does not provide permission for the list to be published!

RankTitleArtistCountry
1Big Jet planeAngus & Julia StoneAustralia
2Rock ItLittle RedAustralia
3Dance The Way I FeelOu Est Le Swimming PoolEngland
4PlansBirds Of TokyoAustralia
5Fall At Your FeetBoy & BearAustralia
6Teenage CrimeAdrian LuxSweden
7Fuck You!Cee Lo GreenUnited States
8Tokyo (Vampires & Wolves)The WombatsEngland
9Magic FountainArt Vs. ScienceAustralia
10Somebody To Love Me {Ft. Boy George & Andrew Wyatt}Mark Ronson & The Business Intl.England
11ABC News Theme {Remix}PendulumAustralia
12RapunzelDraphtAustralia
13Clap Your HandsSiaAustralia
14Runaway {Ft. Pusha T}Kanye WestUnited States
15Barbara StreisandDuck SauceUnited States
16Mace SprayThe JezabelsAustralia
17Bang Bang Bang {Ft. MNDR & Q-Tip}Mark Ronson & The Business Intl.England
18There’s Nothing In The Water We Can’t FightCloud ControlAustralia
19Crave You {Ft. Giselle}Flight FacilitiesAustralia
20Sunday BestWashingtonAustralia
21Undercover MartynUTwo Door Cinema ClubNorthern Ireland
22JellylegsChildren CollideAustralia
23AddictedBliss N EsoAustralia
24Talking Like I’m Falling Down StairsSparkadiaAustralia
25Eyes Wide OpenGotyeAustralia
26Not In Love {Ft. Robert Smith}Crystal CastlesCanada
27You’ve Got The Dirtee Love {Live}Florence & The Machine/Dizzee RascalEngland
28Radar DetectorDarwin DeezUnited States
29It Can Wait {Ft. Owl Eyes}IllyAustralia
30O.N.EYeasayerUnited States
31Bloodbuzz OhioThe NationalUnited States
32Pumped Up KicksFoster The PeopleUnited States
33Solitude Is BlissTame ImpalaAustralia
34Punching In A DreamThe Naked And FamousNew Zealand
35The Bike Song {Ft. Kyle Falconer & Spank Rock}Mark Ronson & The Business Intl.England
36Opposite Of AdultsChiddy BangUnited States
37Doncamatic {Ft. Daley}GorillazEngland
38Young BloodThe Naked And FamousNew Zealand
39RevolutionJohn Butler TrioAustralia
40Baby, I’m Getting BetterGyroscopeAustralia
41Down By The RiverBliss N EsoAustralia
42On Melancholy HillGorillazEngland
43We No Speak AmericanoYolanda Be CoolAustralia
44BaptismCrystal CastlesCanada
45Rabbit SongBoy & BearAustralia
46Way Back HomeBag RaidersAustralia
47Wild At HeartBirds Of TokyoAustralia
48WitchcraftPendulumAustralia
49Easy To LoveThe JezabelsAustralia
50One Life StandHot ChipEngland
51AmblingYeasayerUnited States
52OverpassThe John Steel SingersAustralia
53ReflectionsBliss N EsoAustralia
54Holidays {Ft. Alan Palomo}Miami HorrorAustralia
55Giving Up The GunVampire WeekendUnited States
56Bring NightSiaAustralia
57KickstartsExampleEngland
58The SuburbsArcade FireCanada
59Rich KidsWashingtonAustralia
60My EagleChildren CollideAustralia
61Jackson’s Last StandOu Est Le Swimming PoolEngland
62Hold OnAngus and Julia StoneAustralia
63Ready To StartArcade FireCanada
64Jona VarkGypsy & The CatAustralia
65One StepDead Letter CircusAustralia
66Audience =Cold War KidsUnited States
67HolidayVampire WeekendUnited States
68Dog {Ft. Lisa Mitchell}Andy BullAustralia
69WatercolourPendulumAustralia
70Paper RomanceGroove ArmadaEngland
71Piper’s SongGypsy & The CatAustralia
72I Can TalkTwo Door Cinema ClubNorthern Ireland
73Time To WanderGypsy & The CatAustralia
74LucidityTame ImpalaAustralia
75Coming Around Hungry Kids Of HungaryAustralia
76RadioactivedKings Of LeonUnited States
77Shutterbugg {Ft. Cutty}Big BoiUnited States
78Stylo {Ft. Bobby Womack and Mos Def}GorillazEngland
79Slow Motion Slow MotionLittle RedAustralia
80Howlin’ For You Howlin’ For YouThe Black KeysUnited States
81Echoes EchoesKlaxonsEngland
82Tighten Up Tighten UpThe Black KeysUnited States
83Modern Man Modern ManArcade FireCanada
84The Hardest Part The Hardest PartWashingtonAustralia
85I Feel Better I Feel BetterHot ChipEngland
86Queensland QueenslandEvil EddieAustralia
87The Saddest Thing I Know The Saddest Thing I KnowBirds Of TokyoAustralia
88Monster {Ft. JAY-Z, Rick Ross, Nicki Minaj & Bon Iver}Kanye WestUnited States
89Barricade BarricadeInterpolUnited States
90Finally See Our Way Finally See Our WayArt Vs. ScienceAustralia
91Northcote (So Hungover)The Bedroom PhilosopherAustralia
92I Can ChangeI Can ChangeLCD SoundsystemUnited States
93Anyone’s Ghost Anyone’s GhostThe NationalUnited States
94Time To Smile Time To SmileXavier RuddAustralia
95The High Road The High RoadBroken BellsUnited States
96Go Do Go DoJonsiIceland
97SleepwalkerParkway DriveAustralia
98Spanish SaharaFoalsEngland
99BigBigDead Letter CircusAustralia
100Neutron Star Collision (Love Is Forever)MuseEngland

{ 1 comment }

Hottest 100 for 2011

by Stubborn Mule on 26 January 2012 · 3 comments

Another year, another Australia Day. Another Australia Day, another Triple J Hottest 100. And that, of course, means an excellent excuse to  set R to work on the chart data.

For those outside Australia, the Hottest 100 is a chart of the most popular songs of the previous year, as voted by the listeners of the radio station Triple J. The tradition began in 1991, but initially people voted for their favourite song of all time. From 1993 onwards, the poll took its current form* and was restricted to tracks released in the year in question.

Since the Hottest 100 Wikipedia pages include country of origin**, I thought I would see whether there is any pattern in whose music Australians like best. Since it is Australia Day, it is only appropriate that we are partial to Australian artists and they typically make up close to half of the 100 entries. Interestingly, in the early 90s, Australian artists did not do so well. The United Kingdom has put in a good showing over the last two years, pulling ahead of the United States. Beyond the big three, Australia, UK and US, the pickings get slim very quickly, so I have only included Canada and New Zealand in the chart below.

Number of Hottest 100 tracks by Country

If you have excellent eyesight, you may notice that 2010 is missing from the chart. For some reason, this is the only year which does not include the full chart listing on the Wikipedia page. There is a link to a list on the ABC website, but unfortunately it does not include the country of origin. Maybe a keen Wikipedian reading this post will help by updating the page.

I make no great claims for the sophistication or the insight of this analysis: it was really an excuse to learn about using the XML package for R to pull data from tables in web pages.

require(XML)
require(ggplot2)
require(reshape2)

results <- data.frame()
col.names <- c("year", "rank", "title", "artist", "country")

# Skip 2010: full list is missing from Wikipedia page
years <- c(1993:2009, 2011)

for (year in years) {
    base.url <- "http://en.wikipedia.org/wiki/Triple_J_Hottest_100,"
    year.url <- paste(base.url, year, sep="_")
    tables <- readHTMLTable(year.url, stringsAsFactor=FALSE)
    table.len <- sapply(tables, length)
    hot <- cbind(year=year, tables[[which(table.len==4)]])
    names(hot) <- col.names
    results <- rbind(results, hot)
}

# Remap a few countries
results$country[results$country=="Australia [1]"] <- "Australia"
results$country[results$country=="England"] <- "United Kingdom"
results$country[results$country=="Scotland"] <- "United Kingdom"
results$country[results$country=="Wales"] <- "United Kingdom"
results$country[results$country=="England, Wales"] <-"United Kingdom"

# Countries to plot
top5 <- c("Australia", "United States", "United Kingdom",
  "Canada", "New Zealand")

# Create a colourful ggplot chart
plt <- ggplot(subset(results, country %in% top5),
    aes(factor(year), fill=factor(country)))
plt <- plt + geom_bar() + facet_grid(country ~ .)
plt <- plt + labs(x="", y="") + opts(legend.position = "none")

Created by Pretty R at inside-R.org

UPDATE: there is a little bit more analysis in this follow-up post.

* Since the shift to single year charts, there have been two all-time Hottest 100s: 1998 and 2009.

** There are some country combinations, such as “Australia/England”, but the numbers are so small I have simply excluded them from the analysis.

{ 3 comments }

Have wheelchair, will travel…probably

20 January 2012

Spending couple of weeks down the south coast of New South Wales, spotting dolphins and echidnas, has slowed down my blogging. Fortunately, regular contributor James Glover has once more come to the rescue with a guest post. This time his topic is wheelchairs and air-travel. Perhaps you’ve heard of a recent court case in which [...]

14 comments Read the full article →

Where is the cheapest petrol?

1 January 2012

For some time now, I have been meaning to have a look at Beautiful Soup, a python library designed to make it easy to scrape data from web-sites. Now that I have finally tried it out, I wish I had got to it sooner. It really is very handy and easy to use. As my [...]

3 comments Read the full article →

Roadkill Arithmetic

22 December 2011

Returning for another guest post, James Glover is once again drawn to a beer coaster for some quick, if somewhat morbid, calculations. For those taking to the road over the Christmas period, this post should also serve as a reminder to drive carefully! Why did the chicken cross the road? To get to The Other [...]

23 comments Read the full article →

Leni Riefenstahl

15 December 2011

As a change from the usual fare of economics and finance, I recently read  Jürgen Trimborn’s biography Leni Riefenstahl: A Life about Hitler’s favourite film-maker, Leni Riefenstahl. Riefenstahl was a highly controversial figure. Her films Triumph des Willen, chronicling the 1935 Nazi party rally in Nürnberg and Olympia, documenting the 1936 Olympic Games in Berlin were critically [...]

3 comments Read the full article →

More spreads

17 November 2011

To provide a bit more context for the French government bond spreads discussed in the last post, the chart below shows the 5-year spreads to German bonds for a few more European countries. With spreads over 4300 basis points (43%), the chart is dominated by Greece, so here is the chart again with Greece removed. [...]

9 comments Read the full article →

French spreads

17 November 2011

Changes of leadership in both Greece and Italy were initially well-received by markets, but investors are getting nervous again. Attention is shifting to France, and French government bonds seem to be on the nose. The chart below shows the “spread” between French and German 5-year government bonds. Measured in basis points (1/100th of 1%), the [...]

4 comments Read the full article →

Sculptures by the Sea

13 November 2011

It has been quite a long time since art was the subject of a post here on the Mule, but today we took the kids to see Sculptures by the Sea. Held each year, this exhibition consists of a series of large sculptures arranged along the coast from Bondi beach to beach. As usual, parking [...]

0 comments Read the full article →

More colour wheels

6 November 2011

In response to my post about colour wheels, I received a suggested enhancement from Drew. The idea is to first match colours based on the text provided and then add nearby colours. This can be done by ordering colours in terms of hue, saturation, and value. The result is a significant improvement and it will capture all of [...]

2 comments Read the full article →