各国の経済・社会指標に基づく階層的クラスタリング

targetyear
[1] "2017 est."
colnames(countrydata)
 [1] "GDP - real growth rate(%)"                                                 "Gross national saving(% of GDP)"                                           "Industrial production growth rate(%)"                                      "Unemployment rate(%)"                                                      "Taxes and other revenues(% (of GDP))"                                      "Budget surplus (+) or deficit (-)(% (of GDP))"                            
 [7] "Public debt(% of GDP)"                                                     "Inflation rate (consumer prices)(%)"                                       "Electricity - from nuclear fuels(% of total installed capacity)"           "Electricity - from hydroelectric plants(% of total installed capacity)"    "Electricity - from other renewable sources(% of total installed capacity)"
length(colnames(countrydata))
[1] 11
row.names(countrydata)
 [1] "Algeria"            "Argentina"          "Australia"          "Azerbaijan"         "Bangladesh"         "Belgium"            "Bolivia"            "Brazil"             "Burma"              "Cambodia"           "Canada"             "Chile"              "China"              "Colombia"           "Cuba"               "Czechia"            "Dominican Republic" "Ecuador"            "Egypt"              "France"             "Germany"            "Greece"             "Guatemala"         
[24] "Guinea"             "India"              "Indonesia"          "Iran"               "Italy"              "Japan"              "Jordan"             "Kazakhstan"         "Korea, South"       "Madagascar"         "Malaysia"           "Mali"               "Mexico"             "Morocco"            "Mozambique"         "Nepal"              "Netherlands"        "Niger"              "Nigeria"            "Pakistan"           "Peru"               "Philippines"        "Poland"            
[47] "Portugal"           "Romania"            "Russia"             "Saudi Arabia"       "South Africa"       "Spain"              "Sri Lanka"          "Sudan"              "Sweden"             "Taiwan"             "Thailand"           "Tunisia"            "Turkey"             "Ukraine"            "United Kingdom"     "United States"      "Uzbekistan"         "Venezuela"          "Vietnam"           
length(row.names(countrydata))
[1] 65
distance <- dist(countrydata)
methodlist <- c("ward.D", "ward.D2", "single", "complete", "average", "mcquitty", "median", "centroid")