setwd("/Users/damirkumukov/Desktop/Datasets")
library(ggplot2)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
nations <- read.csv("nationdataset.csv") |>
mutate(gdp = gdp_percap*population/10^12)
head(nations)
## iso2c iso3c country year gdp_percap population birth_rate neonat_mortal_rate
## 1 AD AND Andorra 1996 NA 64291 10.9 2.8
## 2 AD AND Andorra 1994 NA 62707 10.9 3.2
## 3 AD AND Andorra 2003 NA 74783 10.3 2.0
## 4 AD AND Andorra 1990 NA 54511 11.9 4.3
## 5 AD AND Andorra 2009 NA 85474 9.9 1.7
## 6 AD AND Andorra 2011 NA 82326 NA 1.6
## region income gdp
## 1 Europe & Central Asia High income NA
## 2 Europe & Central Asia High income NA
## 3 Europe & Central Asia High income NA
## 4 Europe & Central Asia High income NA
## 5 Europe & Central Asia High income NA
## 6 Europe & Central Asia High income NA
country<-nations|>
filter(iso3c %in% c("CHN","JPN","DEU","USA"))|>
arrange(year)
country
## iso2c iso3c country year gdp_percap population birth_rate
## 1 CN CHN China 1990 979.979 1135185000 21.060000
## 2 DE DEU Germany 1990 19032.696 79433029 11.400000
## 3 JP JPN Japan 1990 19229.666 123537000 10.000000
## 4 US USA United States 1990 23954.479 249623000 16.700000
## 5 CN CHN China 1991 1091.449 1150780000 19.680000
## 6 DE DEU Germany 1991 20520.739 80013896 10.400000
## 7 JP JPN Japan 1991 20466.647 123921000 9.900000
## 8 US USA United States 1991 24405.165 252981000 16.200000
## 9 CN CHN China 1992 1260.162 1164970000 18.270000
## 10 DE DEU Germany 1992 21230.248 80624598 10.000000
## 11 JP JPN Japan 1992 21052.319 124229000 9.800000
## 12 US USA United States 1992 25492.952 256514000 15.800000
## 13 CN CHN China 1993 1453.159 1178440000 18.090000
## 14 DE DEU Germany 1993 21386.501 81156363 9.800000
## 15 JP JPN Japan 1993 21536.856 124536000 9.600000
## 16 US USA United States 1993 26464.853 259919000 15.400000
## 17 CN CHN China 1994 1659.313 1191835000 17.700000
## 18 DE DEU Germany 1994 22300.868 81438348 9.500000
## 19 JP JPN Japan 1994 22109.681 124961000 10.000000
## 20 US USA United States 1994 27776.636 263126000 15.000000
## 21 CN CHN China 1995 1859.830 1204855000 17.120000
## 22 DE DEU Germany 1995 23093.601 81678051 9.400000
## 23 JP JPN Japan 1995 22921.541 125439000 9.540000
## 24 US USA United States 1995 28782.175 266278000 14.600000
## 25 CN CHN China 1996 2060.030 1217550000 16.980000
## 26 DE DEU Germany 1996 23655.820 81914831 9.700000
## 27 JP JPN Japan 1996 23888.613 125757000 9.600000
## 28 US USA United States 1996 30068.231 269394000 14.400000
## 29 CN CHN China 1997 2265.314 1230075000 16.570000
## 30 DE DEU Germany 1997 24183.862 82034771 9.900000
## 31 JP JPN Japan 1997 24626.417 126057000 9.500000
## 32 US USA United States 1997 31572.690 272657000 14.200000
## 33 CN CHN China 1998 2446.150 1241935000 15.640000
## 34 DE DEU Germany 1998 24871.241 82047195 9.600000
## 35 JP JPN Japan 1998 24328.820 126400000 9.600000
## 36 US USA United States 1998 32949.198 275854000 14.300000
## 37 CN CHN China 1999 2649.745 1252735000 14.640000
## 38 DE DEU Germany 1999 25798.280 82100243 9.400000
## 39 JP JPN Japan 1999 24606.921 126631000 9.300000
## 40 US USA United States 1999 34620.929 279040000 14.200000
## 41 CN CHN China 2000 2915.415 1262645000 14.030000
## 42 DE DEU Germany 2000 26630.511 82211508 9.300000
## 43 JP JPN Japan 2000 25938.198 126843000 9.400000
## 44 US USA United States 2000 36449.855 282162411 14.400000
## 45 CN CHN China 2001 3205.927 1271850000 13.380000
## 46 DE DEU Germany 2001 27725.110 82349925 8.900000
## 47 JP JPN Japan 2001 26559.532 127149000 9.300000
## 48 US USA United States 2001 37273.618 284968955 14.100000
## 49 CN CHN China 2002 3527.352 1280400000 12.860000
## 50 DE DEU Germany 2002 28435.901 82488495 8.700000
## 51 JP JPN Japan 2002 27241.103 127445000 9.300000
## 52 US USA United States 2002 38166.038 287625193 14.000000
## 53 CN CHN China 2003 3933.599 1288400000 12.410000
## 54 DE DEU Germany 2003 29362.425 82534176 8.600000
## 55 JP JPN Japan 2003 27941.176 127718000 9.200000
## 56 US USA United States 2003 39677.198 290107933 14.100000
## 57 CN CHN China 2004 4422.650 1296075000 12.290000
## 58 DE DEU Germany 2004 30694.902 82516260 8.600000
## 59 JP JPN Japan 2004 29377.344 127761000 8.693605
## 60 US USA United States 2004 41921.810 292805298 14.000000
## 61 CN CHN China 2005 5053.379 1303720000 12.400000
## 62 DE DEU Germany 2005 32184.055 82469422 8.300000
## 63 JP JPN Japan 2005 30441.348 127773000 8.413292
## 64 US USA United States 2005 44307.921 295516599 14.000000
## 65 CN CHN China 2006 5836.833 1311020000 12.090000
## 66 DE DEU Germany 2006 34690.333 82376451 8.200000
## 67 JP JPN Japan 2006 31790.655 127854000 8.650000
## 68 US USA United States 2006 46437.067 298379912 14.300000
## 69 CN CHN China 2007 6807.112 1317885000 12.100000
## 70 DE DEU Germany 2007 36777.783 82266372 8.300000
## 71 JP JPN Japan 2007 33313.865 128001000 8.630000
## 72 US USA United States 2007 48061.538 301231207 14.300000
## 73 CN CHN China 2008 7569.680 1324655000 12.140000
## 74 DE DEU Germany 2008 38438.741 82110097 8.300000
## 75 JP JPN Japan 2008 33495.178 128063000 8.700000
## 76 US USA United States 2008 48401.427 304093966 14.000000
## 77 CN CHN China 2009 8290.089 1331260000 12.130000
## 78 DE DEU Germany 2009 37112.881 81902307 8.100000
## 79 JP JPN Japan 2009 31857.372 128047000 8.500000
## 80 US USA United States 2009 47001.555 306771529 13.500000
## 81 CN CHN China 2010 9238.755 1337705000 11.900000
## 82 DE DEU Germany 2010 39639.480 81776930 8.300000
## 83 JP JPN Japan 2010 33760.977 128070000 8.500000
## 84 US USA United States 2010 48374.087 309346863 13.000000
## 85 CN CHN China 2011 10274.494 1344130000 11.930000
## 86 DE DEU Germany 2011 42142.549 81797673 8.100000
## 87 JP JPN Japan 2011 34335.304 127817277 8.300000
## 88 US USA United States 2011 49781.801 311718857 12.700000
## 89 CN CHN China 2012 11219.928 1350695000 12.100000
## 90 DE DEU Germany 2012 43600.113 80425823 8.400000
## 91 JP JPN Japan 2012 35735.617 127561489 8.200000
## 92 US USA United States 2012 51433.047 314102623 12.600000
## 93 CN CHN China 2013 12218.521 1357380000 12.080000
## 94 DE DEU Germany 2013 44184.823 82132753 8.300000
## 95 JP JPN Japan 2013 36618.306 127338621 8.200000
## 96 US USA United States 2013 52660.295 316427395 12.400000
## 97 CN CHN China 2014 13254.643 1364270000 12.400000
## 98 DE DEU Germany 2014 46393.877 80982500 8.600000
## 99 JP JPN Japan 2014 36577.211 127131800 8.000000
## 100 US USA United States 2014 54398.460 318907401 12.500000
## neonat_mortal_rate region income gdp
## 1 29.7 East Asia & Pacific Upper middle income 1.112457
## 2 3.4 Europe & Central Asia High income: OECD 1.511825
## 3 2.5 East Asia & Pacific High income: OECD 2.375575
## 4 5.8 North America High income: OECD 5.979589
## 5 29.7 East Asia & Pacific Upper middle income 1.256017
## 6 3.5 Europe & Central Asia High income: OECD 1.641944
## 7 2.5 East Asia & Pacific High income: OECD 2.536247
## 8 5.6 North America High income: OECD 6.174043
## 9 29.4 East Asia & Pacific Upper middle income 1.468052
## 10 3.5 Europe & Central Asia High income: OECD 1.711680
## 11 2.4 East Asia & Pacific High income: OECD 2.615309
## 12 5.4 North America High income: OECD 6.539299
## 13 28.8 East Asia & Pacific Upper middle income 1.712461
## 14 3.3 Europe & Central Asia High income: OECD 1.735651
## 15 2.3 East Asia & Pacific High income: OECD 2.682114
## 16 5.2 North America High income: OECD 6.878718
## 17 28.0 East Asia & Pacific Upper middle income 1.977627
## 18 3.2 Europe & Central Asia High income: OECD 1.816146
## 19 2.2 East Asia & Pacific High income: OECD 2.762848
## 20 5.1 North America High income: OECD 7.308755
## 21 26.9 East Asia & Pacific Upper middle income 2.240826
## 22 3.1 Europe & Central Asia High income: OECD 1.886240
## 23 2.2 East Asia & Pacific High income: OECD 2.875255
## 24 5.0 North America High income: OECD 7.664060
## 25 25.7 East Asia & Pacific Upper middle income 2.508189
## 26 3.0 Europe & Central Asia High income: OECD 1.937762
## 27 2.1 East Asia & Pacific High income: OECD 3.004160
## 28 4.9 North America High income: OECD 8.100201
## 29 24.4 East Asia & Pacific Upper middle income 2.786506
## 30 2.9 Europe & Central Asia High income: OECD 1.983918
## 31 2.0 East Asia & Pacific High income: OECD 3.104332
## 32 4.8 North America High income: OECD 8.608515
## 33 23.3 East Asia & Pacific Upper middle income 3.037959
## 34 2.9 Europe & Central Asia High income: OECD 2.040616
## 35 1.9 East Asia & Pacific High income: OECD 3.075163
## 36 4.7 North America High income: OECD 9.089168
## 37 22.2 East Asia & Pacific Upper middle income 3.319429
## 38 2.8 Europe & Central Asia High income: OECD 2.118045
## 39 1.8 East Asia & Pacific High income: OECD 3.115999
## 40 4.6 North America High income: OECD 9.660624
## 41 21.2 East Asia & Pacific Upper middle income 3.681134
## 42 2.8 Europe & Central Asia High income: OECD 2.189334
## 43 1.8 East Asia & Pacific High income: OECD 3.290079
## 44 4.6 North America High income: OECD 10.284779
## 45 20.1 East Asia & Pacific Upper middle income 4.077459
## 46 2.7 Europe & Central Asia High income: OECD 2.283161
## 47 1.7 East Asia & Pacific High income: OECD 3.377018
## 48 4.6 North America High income: OECD 10.621824
## 49 18.6 East Asia & Pacific Upper middle income 4.516421
## 50 2.7 Europe & Central Asia High income: OECD 2.345635
## 51 1.7 East Asia & Pacific High income: OECD 3.471742
## 52 4.6 North America High income: OECD 10.977514
## 53 17.1 East Asia & Pacific Upper middle income 5.068050
## 54 2.7 Europe & Central Asia High income: OECD 2.423404
## 55 1.6 East Asia & Pacific High income: OECD 3.568591
## 56 4.6 North America High income: OECD 11.510670
## 57 15.5 East Asia & Pacific Upper middle income 5.732087
## 58 2.6 Europe & Central Asia High income: OECD 2.532829
## 59 1.5 East Asia & Pacific High income: OECD 3.753279
## 60 4.5 North America High income: OECD 12.274928
## 61 14.0 East Asia & Pacific Upper middle income 6.588191
## 62 2.6 Europe & Central Asia High income: OECD 2.654200
## 63 1.4 East Asia & Pacific High income: OECD 3.889582
## 64 4.5 North America High income: OECD 13.093726
## 65 12.6 East Asia & Pacific Upper middle income 7.652205
## 66 2.6 Europe & Central Asia High income: OECD 2.857667
## 67 1.3 East Asia & Pacific High income: OECD 4.064562
## 68 4.4 North America High income: OECD 13.855888
## 69 11.3 East Asia & Pacific Upper middle income 8.970991
## 70 2.5 Europe & Central Asia High income: OECD 3.025575
## 71 1.3 East Asia & Pacific High income: OECD 4.264208
## 72 4.3 North America High income: OECD 14.477635
## 73 10.1 East Asia & Pacific Upper middle income 10.027214
## 74 2.4 Europe & Central Asia High income: OECD 3.156209
## 75 1.2 East Asia & Pacific High income: OECD 4.289493
## 76 4.3 North America High income: OECD 14.718582
## 77 9.1 East Asia & Pacific Upper middle income 11.036264
## 78 2.4 Europe & Central Asia High income: OECD 3.039631
## 79 1.2 East Asia & Pacific High income: OECD 4.079241
## 80 4.2 North America High income: OECD 14.418739
## 81 8.2 East Asia & Pacific Upper middle income 12.358729
## 82 2.3 Europe & Central Asia High income: OECD 3.241595
## 83 1.1 East Asia & Pacific High income: OECD 4.323768
## 84 4.1 North America High income: OECD 14.964372
## 85 7.5 East Asia & Pacific Upper middle income 13.810256
## 86 2.3 Europe & Central Asia High income: OECD 3.447162
## 87 1.0 East Asia & Pacific High income: OECD 4.388645
## 88 4.0 North America High income: OECD 15.517926
## 89 6.9 East Asia & Pacific Upper middle income 15.154700
## 90 2.3 Europe & Central Asia High income: OECD 3.506575
## 91 1.0 East Asia & Pacific High income: OECD 4.558488
## 92 3.9 North America High income: OECD 16.155255
## 93 6.3 East Asia & Pacific Upper middle income 16.585176
## 94 2.2 Europe & Central Asia High income: OECD 3.629021
## 95 1.0 East Asia & Pacific High income: OECD 4.662925
## 96 3.8 North America High income: OECD 16.663160
## 97 5.9 East Asia & Pacific Upper middle income 18.082912
## 98 2.2 Europe & Central Asia High income: OECD 3.757092
## 99 1.0 East Asia & Pacific High income: OECD 4.650127
## 100 3.7 North America High income: OECD 17.348072
p1<-ggplot(country,aes(x=year,y=gdp,color=country))+
geom_point()+
geom_line()+
labs(x="Year",
y="GDP Trillions",
title="GDP Over Time")+
scale_color_brewer(palette = "Set1")
ggplotly(p1)
regions<-nations|>
group_by(year,region)|>
summarise(gdp = sum(gdp, na.rm = TRUE))|>
arrange(year,region)
## `summarise()` has grouped output by 'year'. You can override using the
## `.groups` argument.
p2<-ggplot(regions,aes(x=year,y=gdp,fill=region))+
geom_area(color="white", size=0.3)+
scale_fill_brewer(palette = "Set2")+
labs(x="Year",
y="GDP Trillion",
title="GDP Over Time by Region",
fill = "Region")
## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
ggplotly(p2)