Lab3-Hao Ni

The Number of Billionaires by Industry

  ggplot(df, aes(x=reorder(factor(Industry),Industry, function(x) length(x))))+
  geom_bar(fill="#f68060" )+
  coord_flip()+
  labs(
    x="Industry",
    title ="The Number of Billionaires by Industry",
  )

The Number of Billionaires by Top 10 Region

ggplot(df_top10, aes(area = numbillionaire, fill = Country , label = paste0(Country, "\n", numbillionaire))) +
  geom_treemap()+
  geom_treemap_text(colour="white", place="centre")+
  theme(legend.position = "none")+
  scale_fill_brewer(palette  = "RdYlGn")+
  labs(
    title ="The Number of Billionaires by Top 10 Region",
  )

The Relationship between the Number of Billionaires and GDP per capita

ggplot(df_Top10, aes(x=GDP, y=numbillionaire)) + 
  geom_point(aes(color = Region), size=5)+
  annotate("text", x = 52000, y = 724, label = "United States") +
  annotate("text", x = 17000, y = 626, label = "China") +
  annotate("text", x = 2000, y = 180, label = "India") +
  scale_color_brewer(palette  = "Paired")+
  labs(
    title ="The Relationship between the Number of Billionaires and GDP per capita",
  )

The Relationship between Age and Networth

ggplot(df_clean_age, aes(x=Age, y=NetWorth)) + 
  geom_point(color = "#f68060", size=2)+
  annotate("text", x = 68, y = 177, label = "Jeff Bezos (Amazon)", size=3) +
  annotate("text", x = 59, y = 151, label = "Elon Musk (Tesla)", size=3) +
  annotate("text", x = 88, y = 150, label = "Bernard Arnault & family (LVMH)", size=3) +
  annotate("text", x = 76, y = 124, label = "Bill Gates (Microsoft)", size=3) +
  annotate("text", x = 38, y = 103, label = "Mark Zuckerburg (Facebook)", size=3) +
  labs(
    title ="The Relationship between Age and Networth",
  )