If you believe in supernatural causality, you will probably love what the numbers of the World Cup have to say about which team is going to win this World Games in Brazil. According to this numerology approach, neither Brazil nor Germany or Netherlands will be the winner, but Uruguay. The table below shows my reason.

center

Winner1 = c(1970,1962,1978,1974, 1950)
Winner2 = c(1994,2002,1986,1990, 2014)
Sum = Winner1 + Winner2

Arrange data

data <- structure(list(Team = c("<img src=\"http://upload.wikimedia.org/wikipedia/commons/thumb/0/05/Flag_of_Brazil.svg/22px-Flag_of_Brazil.svg.png\"> Brazil",
                                  "<img src=\"http://upload.wikimedia.org/wikipedia/commons/thumb/0/05/Flag_of_Brazil.svg/22px-Flag_of_Brazil.svg.png\"> Brazil",
                                  "<img src=\"http://upload.wikimedia.org/wikipedia/commons/thumb/1/1a/Flag_of_Argentina.svg/22px-Flag_of_Argentina.svg.png\"> Argentina",  
                                  "<img src=\"http://upload.wikimedia.org/wikipedia/commons/thumb/b/ba/Flag_of_Germany.svg/22px-Flag_of_Germany.svg.png\"> Germany", 
                                 "<img src=\"http://upload.wikimedia.org/wikipedia/commons/thumb/f/fe/Flag_of_Uruguay.svg/22px-Flag_of_Uruguay.svg.png\"> Uruguay"),

Winner1 = c(1970,1962,1978,1974, 1950), 
Winner2 = c(1994,2002,1986,1990, 2014), 
Sum = c(3964,3964,3964,3964,3964)), .Names = c("Team",  "Winner", "Winner", "Sum"), row.names = c(NA, -4L), class = "data.frame")

Plot the table

library(googleVis)

plot(tab <- gvisTable(data,
           formats=list(Winner="####", Winner="####",
            Sum="#,###"),
           options=list(sortColumn=1, sortAscending=FALSE,
           width=300, height=150), chartid="WorldCupBrazil"))

#reproducible