A better chart to visualize “Best places to live” – Top 100 cities comparison Excel chart

Share

Facebook
Twitter
LinkedIn

Recently, I saw this chart on Economist website.

It is trying to depict how various cities rank on livability index and how they compare to previous ranking (2014 vs 2009).

Best cities to live - Chart from Economist.com

As you can see, this chart is not the best way to visualize “Best places to live”.

Few reasons why,

  • The segregated views (blue, gray & red) make it hard to look for a specific city or region
  • The zig-zag lines look good, but they are incredibly hard to understand
  • Labels are all over the place, thus making data interpretation hard.
  • Some points have no labels (or ambiguous labels) leading to further confusion.

After examining the chart long & hard, I got thinking.

Its no fun criticizing someones work. Creating a better chart from this data, now thats awesome.

So I went looking for the raw data behind this graphical mess. Turns out, Economist sells this data for a meager price of US $5,625.

Alas, I was saving my left kidney for something more prominent than a bunch of raw data in a workbook. May be if they had sparklines in the file…

So armed with the certainty that my kidney will stay with me, I now turned my attention to a similar data set.

I downloaded my website visitor city data for top 100 cities in September 2014 & September 2013 from Google Analytics.

And I could get it for exactly $0.00. Much better.

This data is similar to Economist data.

Data of top 100 visitor cities - SEPTEMBER 2014 & 2013 - Chandoo.org

Chart visualizing top 100 cities

Here is a chart I prepared from this data.

Top 100 cities excel chart - demo

This chart (well, a glorified table) not only allows for understanding all the data, but also lets you focus specific groups of cities (top % changes, new cities in the top 100, cities that dropped out etc.) with ease.

Download top 100 cities visualization – Excel workbook

Click here to download this workbook. Examine the formulas & formatting settings to understand how this is made.

How is this visualization made?

Here is a video explaining how the workbook is constructed. [see it on our YouTube channel]

 

The key techniques used in this workbook are,

Since the process of creating this visualization is similar to some of the earlier discussed examples, I recommend you go thru below if you have difficulty understanding this workbook:

How would you visualize similar data?

Here is a fun thought experiment. How would you visualize such data? Please share your thoughts (or example workbooks) in the comments. I & rest of our readers are eager to learn from you.

Facebook
Twitter
LinkedIn

Share this tip with your colleagues

Excel and Power BI tips - Chandoo.org Newsletter

Get FREE Excel + Power BI Tips

Simple, fun and useful emails, once per week.

Learn & be awesome.

Welcome to Chandoo.org

Thank you so much for visiting. My aim is to make you awesome in Excel & Power BI. I do this by sharing videos, tips, examples and downloads on this website. There are more than 1,000 pages with all things Excel, Power BI, Dashboards & VBA here. Go ahead and spend few minutes to be AWESOME.

Read my storyFREE Excel tips book

Overall I learned a lot and I thought you did a great job of explaining how to do things. This will definitely elevate my reporting in the future.
Rebekah S
Reporting Analyst
Excel formula list - 100+ examples and howto guide for you

From simple to complex, there is a formula for every occasion. Check out the list now.

Calendars, invoices, trackers and much more. All free, fun and fantastic.

Advanced Pivot Table tricks

Power Query, Data model, DAX, Filters, Slicers, Conditional formats and beautiful charts. It's all here.

Still on fence about Power BI? In this getting started guide, learn what is Power BI, how to get it and how to create your first report from scratch.

14 Responses to “How many ‘Friday the 13th’s are in this year? [Formula fun + challenge]”

  1. in C3=2016
    in C4=3
    in C5=1 (the first next year with three Friday the 13ths)

    =SMALL(IF(MMULT(--(MOD(DATE(C3+ROW(1:1000),COLUMN(A:L),13),7)=6),ROW(1:12)^0)=C4,C3+ROW(1:1000)),C5)

    formula check in the next 1000 years

  2. Brian says:

    This will generate a table of counts of Friday the 13th's by year. If I didn't screw it up the next year with three is 2026.

    I created a simple parameter table with a start date and end date that I wanted to evaluate. That calculates the number of days and generates a list of those days. Then filter and group. The generation of the list in power query (i.e. without populating a date table in excel) is pretty cool, otherwise this isn't really doing anything than creating a big date and filtering/counting.

    let
    Source = List.Dates(StartDateAsDate, Days2, #duration(1,0,0,0)),
    ConvertDateListToTable = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    AddDayOfMonthColumn = Table.AddColumn(ConvertDateListToTable, "DayOfMonth", each Date.Day([Column1])),
    AddYearColumn = Table.AddColumn(AddDayOfMonthColumn, "Year", each Date.Year([Column1])),
    AddDayOfWeekColumn = Table.AddColumn(AddYearColumn, "Day of Week", each Date.DayOfWeek([Column1])),
    FilterFriday13 = Table.SelectRows(AddDayOfWeekColumn, each ([DayOfMonth] = 13) and ([Day of Week] = 5)),
    Friday13thsByYear = Table.Group(FilterFriday13, {"Year"}, {{"Number of Friday the 13ths!", each Table.RowCount(_), type number}})
    in
    Friday13thsByYear

    • Brian says:

      With the parameters replaced by values should you want to play along at home. This runs for 20 years starting on 1/1/2016.

      let
      Source = List.Dates(#date(2016,1,1), 7300, #duration(1,0,0,0)),
      ConvertDateListToTable = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
      AddDayOfMonthColumn = Table.AddColumn(ConvertDateListToTable, "DayOfMonth", each Date.Day([Column1])),
      AddYearColumn = Table.AddColumn(AddDayOfMonthColumn, "Year", each Date.Year([Column1])),
      AddDayOfWeekColumn = Table.AddColumn(AddYearColumn, "Day of Week", each Date.DayOfWeek([Column1])),
      FilterFriday13 = Table.SelectRows(AddDayOfWeekColumn, each ([DayOfMonth] = 13) and ([Day of Week] = 5)),
      Friday13thsByYear = Table.Group(FilterFriday13, {"Year"}, {{"Number of Friday the 13ths!", each Table.RowCount(_), type number}})
      in
      Friday13thsByYear

  3. Alex Groberman says:

    =MATCH(3,MMULT(N(WEEKDAY(DATE(C3+ROW(1:100)-1,COLUMN(A:L),13))=6),1^ROW(1:12)),)+C3-1

    • David N says:

      It should be pointed out that Alex's solution, unlike some others, has the additional advantage of being non-array. My solution was nearly identical but with -- and SIGN instead of N and 1^.

      =C3-1+MATCH(3,MMULT(--(WEEKDAY(DATE(C3-1+ROW(1:25),COLUMN(A:L),13))=6),SIGN(ROW(1:12))),0)

  4. SunnyKow says:

    Sub Friday13()

    Dim StartDate As Date
    Dim EndDate As Date
    Dim x As Long
    Dim r As Long

    Range("C7:C12").ClearContents
    StartDate = CDate("01/01/" & Range("C3"))
    EndDate = CDate("31/12/" & Range("C3"))
    r = 7
    For x = StartDate To EndDate
    If Day(x) = 13 And Weekday(x, vbMonday) = 5 Then
    Cells(r, 3) = Month(x)
    r = r + 1
    End If
    Next
    End Sub

    • SunnyKow says:

      Calculate next year with 3 Friday 13th. Good for 100 years different from year entered in cell C3

      Sub ThreeFriday13()

      Dim StartDate As Date
      Dim EndDate As Date
      Dim x As Long
      Dim WhatYear As Integer
      Dim Counter As Integer

      Range("E7").ClearContents
      StartDate = CDate("01/01/" & Range("C3") + 1)
      EndDate = CDate("31/12/" & Range("C3") + 100)
      Counter = 0

      For x = StartDate To EndDate
      If WhatYear Year(x) Then
      WhatYear = Year(x)
      'Different year so reset counter
      Counter = 0
      End If
      If Day(x) = 13 And Weekday(x, vbMonday) = 5 Then
      Counter = Counter + 1
      If Counter = 3 Then
      WhatYear = Year(x)
      Exit For
      End If
      End If
      Next
      Range("E7") = WhatYear

      End Sub

      • SunnyKow says:

        *RE-POST as not equal did not show earliuer
        Calculate next year with 3 Friday 13th. Good for 100 years different from year entered in cell C3

        Sub ThreeFriday13()

        Dim StartDate As Date
        Dim EndDate As Date
        Dim x As Long
        Dim WhatYear As Integer
        Dim Counter As Integer

        Range("E7").ClearContents
        StartDate = CDate("01/01/" & Range("C3") + 1)
        EndDate = CDate("31/12/" & Range("C3") + 100)
        Counter = 0

        For x = StartDate To EndDate
        If WhatYear NE Year(x) Then
        WhatYear = Year(x)
        'Different year so reset counter
        Counter = 0
        End If
        If Day(x) = 13 And Weekday(x, vbMonday) = 5 Then
        Counter = Counter + 1
        If Counter = 3 Then
        WhatYear = Year(x)
        Exit For
        End If
        End If
        Next
        Range("E7") = WhatYear

        End Sub

  5. Devesh says:

    I've a doubt with using array formula here.
    In sample workbook, I tried to replicate the formula again.
    =IFERROR(SMALL(IF(WEEKDAY(DATE($C$3,ROW($A$1:$A$12),13))=6,ROW($A$1:$A$12)),$B7),"")
    For this I selected C7 to C12, and typed the same formula and pressed ctrl+alt+Enter. But in all cells it is taking $B7 (and not $B7, $B8, $B9.... etc)
    and since it is array formula I can't edit individual cell.
    Please guide.
    Thanks

  6. Pablo says:

    Hi Chandoo,
    Cool stuff. You need to clarify that the answer of 5 represents the 1st month in the year that has a Friday the 13th, and not the number of Fridays the 13th in the year. Subtle, but important difference.
    Thanks,
    Pablo

  7. Micah Dail says:

    I like the MMULT() function far more, but here's how I would have tackled it. It uses an EDATE() base and MODE() over 100 years. I'm assuming that 100 years is enough time to catch the next year with 3 friday 13th's. Array entered, of course.

    {=MODE(IFERROR(YEAR(IF((WEEKDAY(EDATE(DATE(C3, 1, 13), ROW(INDIRECT("1:1200"))))=6), EDATE(DATE(C3, 1, 13), ROW(INDIRECT("1:1200"))), "")), ""))}

  8. Jason Morin says:

    Finding all the Friday the 13ths in a Year:

    =SUMPRODUCT((DAY(ROW(INDIRECT(DATE(C3,1,1)&":"&DATE(C3,12,31))))=13)*(TEXT(ROW(INDIRECT(DATE(C3,1,1)&":"&DATE(C3,12,31))),"ddd")="Fri"))

  9. jmdias says:

    {=sum(if(day.of.week(DATe($YEAR;{1;2;3;4;5;6;7;8;9;10;11;12};13);1)=6;1;0))}
    just list the years

Leave a Reply