library(htmltab)
## Warning: package 'htmltab' was built under R version 4.0.2
link='https://en.wikipedia.org/wiki/List_of_freedom_indices'
linktabla='//*[@id="mw-content-text"]/div[1]/table[2]'
libertad=htmltab(doc = link,which = linktabla)
str(libertad)
## 'data.frame': 198 obs. of 5 variables:
## $ Country : chr "Â Afghanistan" "Â Albania" "Â Algeria" "Â Andorra" ...
## $ Freedom in the World 2020 : chr "not free" "partly free" "not free" "free" ...
## $ 2020 Index of Economic Freedom: chr "mostly unfree" "moderately free" "repressed" "n/a" ...
## $ 2020 Press Freedom Index : chr "difficult situation" "noticeable problems" "difficult situation" "satisfactory situation" ...
## $ 2019 Democracy Index : chr "authoritarian regime" "hybrid regime" "hybrid regime" "n/a" ...
libertad[1:5]=lapply(libertad[1:5],trimws,whitespace = "[\\h\\v]")
newNames=c("país","LM","LE","LP","demo")
names(libertad)=newNames
libertad$LP=as.ordered(libertad$LP)
columna=libertad$LP
fila=libertad$LE
(t=table(fila,columna))
## columna
## fila difficult situation good situation n/a noticeable problems
## free 0 3 0 1
## moderately free 16 4 3 23
## mostly free 4 7 1 7
## mostly unfree 19 0 3 28
## n/a 2 0 6 0
## repressed 6 0 1 3
## columna
## fila satisfactory situation very serious situation
## free 1 1
## moderately free 13 3
## mostly free 12 0
## mostly unfree 6 6
## n/a 5 5
## repressed 1 8
(prop_t=prop.table(t,margin = 2))
## columna
## fila difficult situation good situation n/a
## free 0.00000000 0.21428571 0.00000000
## moderately free 0.34042553 0.28571429 0.21428571
## mostly free 0.08510638 0.50000000 0.07142857
## mostly unfree 0.40425532 0.00000000 0.21428571
## n/a 0.04255319 0.00000000 0.42857143
## repressed 0.12765957 0.00000000 0.07142857
## columna
## fila noticeable problems satisfactory situation
## free 0.01612903 0.02631579
## moderately free 0.37096774 0.34210526
## mostly free 0.11290323 0.31578947
## mostly unfree 0.45161290 0.15789474
## n/a 0.00000000 0.13157895
## repressed 0.04838710 0.02631579
## columna
## fila very serious situation
## free 0.04347826
## moderately free 0.13043478
## mostly free 0.00000000
## mostly unfree 0.26086957
## n/a 0.21739130
## repressed 0.34782609
library("gplots")
## Warning: package 'gplots' was built under R version 4.0.3
##
## Attaching package: 'gplots'
## The following object is masked from 'package:stats':
##
## lowess
balloonplot(t(prop_t), main ="tabla",
label = T, show.margins = FALSE)
libertad$demo=as.ordered(libertad$demo)
columna=libertad$demo
fila=libertad$LE
(t=table(fila,columna))
## columna
## fila authoritarian regime flawed democracy full democracy
## free 0 2 4
## moderately free 9 24 5
## mostly free 3 12 13
## mostly unfree 25 14 0
## n/a 5 0 0
## repressed 12 2 0
## columna
## fila hybrid regime n/a
## free 0 0
## moderately free 14 10
## mostly free 2 1
## mostly unfree 17 6
## n/a 0 13
## repressed 4 1
(prop_t=prop.table(t,margin = 2))
## columna
## fila authoritarian regime flawed democracy full democracy
## free 0.00000000 0.03703704 0.18181818
## moderately free 0.16666667 0.44444444 0.22727273
## mostly free 0.05555556 0.22222222 0.59090909
## mostly unfree 0.46296296 0.25925926 0.00000000
## n/a 0.09259259 0.00000000 0.00000000
## repressed 0.22222222 0.03703704 0.00000000
## columna
## fila hybrid regime n/a
## free 0.00000000 0.00000000
## moderately free 0.37837838 0.32258065
## mostly free 0.05405405 0.03225806
## mostly unfree 0.45945946 0.19354839
## n/a 0.00000000 0.41935484
## repressed 0.10810811 0.03225806
library("gplots")
balloonplot(t(prop_t), main ="tabla",
label = T, show.margins = FALSE)
library(htmltab)
link="https://en.wikipedia.org/wiki/Democracy_Index"
path='//*[@id="mw-content-text"]/div/table[2]'
demo=htmltab(doc = link,which = path)
names(demo)
## [1] "Rank >> Rank"
## [2] "Country >> Country"
## [3] "Score >> Score"
## [4] "Electoral processand pluralism >> Electoral processand pluralism"
## [5] "FunctioÂning ofgovernÂment >> FunctioÂning ofgovernÂment"
## [6] "PoliticalparticiÂpation >> PoliticalparticiÂpation"
## [7] "Politicalculture >> Politicalculture"
## [8] "Civilliberties >> Civilliberties"
## [9] "Regimetype >> Regimetype"
## [10] "Region >> Region"
## [11] "Changes fromlast year >> Changes fromlast year"
newNames=c("rank", "country","score","electoral", "functioning",
"participation","culture","civilliber","regimetype","continent")
names(demo)=newNames
str(demo)
## 'data.frame': 167 obs. of 11 variables:
## $ rank : chr "1" "2" "3" "4" ...
## $ country : chr "Â Norway" "Â Iceland" "Â Sweden" "Â New Zealand" ...
## $ score : chr "9.87" "9.58" "9.39" "9.26" ...
## $ electoral : chr "10.00" "10.00" "9.58" "10.00" ...
## $ functioning : chr "9.64" "9.29" "9.64" "9.29" ...
## $ participation: chr "10.00" "8.89" "8.33" "8.89" ...
## $ culture : chr "10.00" "10.00" "10.00" "8.13" ...
## $ civilliber : chr "9.71" "9.71" "9.41" "10.00" ...
## $ regimetype : chr "Full democracy" "Full democracy" "Full democracy" "Full democracy" ...
## $ continent : chr "Western Europe" "Western Europe" "Western Europe" "Asia & Australasia" ...
## $ NA : chr "Score: Rank:" "Score: Rank:" "Score: Rank:" "Score: Rank:" ...
demo[4:11]=lapply(demo[4:11],trimws,whitespace = "[\\h\\v]")
demo$continent=as.factor(demo$continent)
table(demo$regimetype)
##
## Authoritarian Flawed democracy Full democracy Hybrid regime
## 54 54 22 37
ordenOK=c('Authoritarian', "Hybrid regime","Flawed democracy","Full democracy")
demo$regimetype=ordered(demo$regimetype,levels=ordenOK)
demo[,-c(2,9,10)]=lapply(demo[,-c(2,9,10)],as.numeric)
## Warning in lapply(demo[, -c(2, 9, 10)], as.numeric): NAs introducidos por
## coerción
demo[!complete.cases(demo),]
## rank country score electoral functioning
## 2 1 Â Norway 9.87 10.00 9.64
## 3 2 Â Iceland 9.58 10.00 9.29
## 4 3 Â Sweden 9.39 9.58 9.64
## 5 4 Â New Zealand 9.26 10.00 9.29
## 6 5 Â Finland 9.25 10.00 8.93
## 7 6 Â Ireland 9.24 10.00 7.86
## 8 7 Â Denmark 9.22 10.00 9.29
## 9 7 Â Canada 9.22 9.58 9.64
## 10 9 Â Australia 9.09 10.00 8.93
## 11 10 Â Â Switzerland 9.03 9.58 9.29
## 12 11 Â Netherlands 9.01 9.58 9.29
## 13 12 Â Luxembourg 8.81 10.00 8.93
## 14 13 Â Germany 8.68 9.58 8.57
## 15 14 Â United Kingdom 8.52 9.58 7.50
## 16 15 Â Uruguay 8.38 10.00 8.57
## 17 16 Â Austria 8.29 9.58 7.86
## 18 16 Â Spain 8.29 9.58 7.14
## 19 18 Â Mauritius 8.22 9.17 8.21
## 20 19 Â Costa Rica 8.13 9.58 7.50
## 21 20 Â France 8.12 9.58 7.86
## 22 21 Â Chile 8.08 9.58 8.57
## 23 22 Â Portugal 8.03 9.58 7.86
## 24 23 Â South Korea 8.00 9.17 7.86
## 25 24 Â Japan 7.99 8.75 8.21
## 26 25 Â United States 7.96 9.17 7.14
## 27 26 Â Malta 7.95 9.17 7.50
## 28 27 Â Estonia 7.90 9.58 7.86
## 29 28 Â Israel 7.86 9.17 7.86
## 30 29 Â Botswana 7.81 9.17 7.14
## 31 30 Â Cape Verde 7.78 9.17 7.36
## 32 31 Â Taiwan 7.73 9.58 8.21
## 33 32 Â Czech Republic 7.69 9.58 6.79
## 34 33 Â Belgium 7.64 9.58 8.21
## 35 34 Â Cyprus 7.59 9.17 6.43
## 36 35 Â Italy 7.52 9.58 6.07
## 37 36 Â Slovenia 7.50 9.58 6.79
## 38 36 Â Lithuania 7.50 9.58 6.43
## 39 38 Â Latvia 7.49 9.58 6.07
## 40 39 Â Greece 7.43 9.58 4.86
## 41 40 Â South Africa 7.24 7.42 7.50
## 42 41 Â Timor-Leste 7.19 9.58 6.29
## 43 42 Â Slovakia 7.17 9.58 7.14
## 44 43 Â Malaysia 7.16 9.17 7.86
## 45 43 Â Trinidad and Tobago 7.16 9.58 7.14
## 46 45 Â Colombia 7.13 9.17 6.79
## 47 46 Â Panama 7.05 9.58 6.07
## 48 47 Â Bulgaria 7.03 9.17 6.43
## 49 48 Â Argentina 7.02 9.17 5.36
## 50 49 Â Suriname 6.98 9.17 6.43
## 51 50 Â Jamaica 6.96 8.75 7.14
## 52 51 Â India 6.90 8.67 6.79
## 53 52 Â Brazil 6.86 9.58 5.36
## 54 53 Â Tunisia 6.72 9.17 5.71
## 55 54 Â Philippines 6.64 9.17 5.36
## 56 55 Â Ghana 6.63 8.33 5.71
## 57 55 Â Hungary 6.63 8.75 6.07
## 58 57 Â Poland 6.62 9.17 6.07
## 59 58 Â Peru 6.60 9.17 5.00
## 60 59 Â Croatia 6.57 9.17 6.07
## 61 60 Â Dominican Republic 6.54 9.17 5.36
## 62 60 Â Lesotho 6.54 9.17 4.50
## 63 62 Â Mongolia 6.50 9.17 5.71
## 64 63 Â Romania 6.49 9.17 5.71
## 65 64 Â Indonesia 6.48 7.92 7.14
## 66 65 Â Namibia 6.43 6.58 5.36
## 67 66 Â Serbia 6.41 8.25 5.36
## 68 67 Â Ecuador 6.33 8.75 5.36
## 69 68 Â Thailand 6.32 7.42 5.36
## 70 69 Â Sri Lanka 6.27 7.00 6.07
## 71 70 Â Paraguay 6.24 8.75 5.71
## 72 71 Â El Salvador 6.15 9.17 4.64
## 73 71 Â Guyana 6.15 6.92 5.36
## 74 73 Â Mexico 6.09 7.83 6.07
## 75 74 Â Papua New Guinea 6.03 6.92 6.07
## 76 75 Â Hong Kong 6.02 3.58 4.36
## 77 75 Â Singapore 6.02 3.92 7.86
## 78 77 Â North Macedonia 5.97 7.00 5.36
## 79 78 Â Ukraine 5.90 7.42 2.71
## 80 79 Â Albania 5.89 7.00 5.36
## 81 80 Â Bangladesh 5.88 7.83 6.07
## 82 81 Â Fiji 5.85 6.58 5.36
## 83 82 Â Senegal 5.81 6.08 6.07
## 84 83 Â Moldova 5.75 6.58 4.64
## 85 84 Â Montenegro 5.65 5.67 5.36
## 86 85 Â Madagascar 5.64 7.92 3.57
## 87 86 Â Armenia 5.54 7.50 5.36
## 88 87 Â Malawi 5.50 6.08 4.29
## 89 88 Â Liberia 5.45 7.42 3.07
## 90 89 Â Georgia 5.42 7.83 3.21
## 91 89 Â Honduras 5.42 7.83 4.29
## 92 91 Â Bhutan 5.30 8.75 6.79
## 93 92 Â Â Â Nepal 5.28 4.83 5.36
## 94 93 Â Guatemala 5.26 6.92 4.64
## 95 94 Â Kenya 5.18 3.50 5.71
## 96 95 Â Tanzania 5.16 5.75 5.00
## 97 96 Â Morocco 5.10 5.25 4.64
## 98 97 Â Benin 5.09 4.67 5.71
## 99 97 Â Zambia 5.09 4.75 2.93
## 100 99 Â Uganda 5.02 4.33 3.57
## 101 100 Â Mali 4.92 6.42 3.07
## 102 101 Â Kyrgyzstan 4.89 6.08 2.93
## 103 102 Â Bosnia and Herzegovina 4.86 6.17 2.93
## 104 102 Â Sierra Leone 4.86 6.58 2.86
## 105 104 Â Bolivia 4.84 4.75 3.93
## 106 105 Â Haiti 4.57 4.75 2.07
## 107 106 Â Lebanon 4.36 3.92 1.50
## 108 107 Â Gambia 4.33 4.00 4.29
## 109 108 Â Pakistan 4.25 6.08 5.71
## 110 109 Â Nigeria 4.12 5.17 3.93
## 111 110 Â Turkey 4.09 3.08 5.00
## 112 111 Â Ivory Coast 4.05 4.33 2.86
## 113 112 Â Burkina Faso 4.04 3.92 2.71
## 114 113 Â Algeria 4.01 3.08 2.86
## 115 114 Â Jordan 3.93 3.58 4.29
## 116 114 Â Kuwait 3.93 3.58 4.29
## 117 116 Â Mauritania 3.92 3.50 3.57
## 118 117 Â Palestine 3.89 3.33 0.14
## 119 118 Â Iraq 3.74 5.25 0.00
## 120 119 Â Angola 3.72 2.25 2.86
## 121 120 Â Mozambique 3.65 2.58 2.14
## 122 121 Â Gabon 3.61 2.58 2.21
## 123 122 Â Myanmar 3.55 3.08 3.93
## 124 122 Â Nicaragua 3.55 1.25 2.86
## 125 124 Â Cambodia 3.53 0.83 4.64
## 126 125 Â Ethiopia 3.44 0.42 3.57
## 127 126 Â Togo 3.30 3.17 1.79
## 128 127 Â Niger 3.29 2.92 1.14
## 129 128 Â Qatar 3.19 0.00 4.29
## 130 129 Â Rwanda 3.16 1.42 4.29
## 131 129 Â Zimbabwe 3.16 0.00 2.50
## 132 131 Â Comoros 3.15 2.08 2.21
## 133 132 Â Eswatini 3.14 0.92 2.86
## 134 132 Â Guinea 3.14 3.50 0.43
## 135 134 Â Republic of the Congo 3.11 2.17 2.50
## 136 134 Â Russia 3.11 2.17 1.79
## 137 136 Â Vietnam 3.08 0.00 3.21
## 138 137 Â Egypt 3.06 2.67 3.21
## 139 137 Â Oman 3.06 0.08 3.93
## 140 139 Â Kazakhstan 2.94 0.50 2.14
## 141 140 Â Venezuela 2.88 0.00 1.79
## 142 141 Â Afghanistan 2.85 3.42 0.64
## 143 141 Â Cameroon 2.85 1.67 2.50
## 144 143 Â Cuba 2.84 0.00 3.57
## 145 144 Â Djibouti 2.77 0.42 1.29
## 146 145 Â United Arab Emirates 2.76 0.00 3.93
## 147 146 Â Azerbaijan 2.75 0.50 3.21
## 148 147 Â Sudan 2.70 0.00 1.79
## 149 148 Â Guinea-Bissau 2.63 4.92 0.00
## 150 149 Â Bahrain 2.55 0.83 2.71
## 151 150 Â Belarus 2.48 0.92 2.00
## 152 151 Â Iran 2.38 0.00 2.86
## 153 152 Â Eritrea 2.37 0.00 2.14
## 154 153 Â China 2.26 0.00 4.29
## 155 154 Â Burundi 2.15 0.00 0.07
## 156 155 Â Laos 2.14 0.00 2.86
## 157 156 Â Libya 2.02 0.00 0.00
## 158 157 Â Uzbekistan 2.01 0.08 1.86
## 159 158 Â Yemen 1.95 0.00 0.00
## 160 159 Â Saudi Arabia 1.93 0.00 2.86
## 161 159 Â Tajikistan 1.93 0.08 0.79
## 162 161 Â Equatorial Guinea 1.92 0.00 0.43
## 163 162 Â Turkmenistan 1.72 0.00 0.79
## 164 163 Â Chad 1.61 0.00 0.00
## 165 164 Â Syria 1.43 0.00 0.00
## 166 165 Â Central African Republic 1.32 1.25 0.00
## 167 166 Â Democratic Republic of the Congo 1.13 0.00 0.00
## 168 167 Â North Korea 1.08 0.00 2.50
## participation culture civilliber regimetype
## 2 10.00 10.00 9.71 Full democracy
## 3 8.89 10.00 9.71 Full democracy
## 4 8.33 10.00 9.41 Full democracy
## 5 8.89 8.13 10.00 Full democracy
## 6 8.89 8.75 9.71 Full democracy
## 7 8.33 10.00 10.00 Full democracy
## 8 8.33 9.38 9.12 Full democracy
## 9 7.78 9.38 9.71 Full democracy
## 10 7.78 8.75 10.00 Full democracy
## 11 7.78 9.38 9.12 Full democracy
## 12 8.33 8.75 9.12 Full democracy
## 13 6.67 8.75 9.71 Full democracy
## 14 8.33 7.50 9.41 Full democracy
## 15 8.89 7.50 9.12 Full democracy
## 16 6.11 7.50 9.71 Full democracy
## 17 8.33 6.88 8.82 Full democracy
## 18 7.78 8.13 8.82 Full democracy
## 19 5.56 8.75 9.41 Full democracy
## 20 6.67 7.50 9.41 Full democracy
## 21 7.78 6.88 8.53 Full democracy
## 22 5.00 8.13 9.12 Full democracy
## 23 6.11 7.50 9.12 Full democracy
## 24 7.22 7.50 8.24 Flawed democracy
## 25 6.67 7.50 8.82 Flawed democracy
## 26 7.78 7.50 8.24 Flawed democracy
## 27 6.11 8.13 8.82 Flawed democracy
## 28 6.67 6.88 8.53 Flawed democracy
## 29 8.89 7.50 5.88 Flawed democracy
## 30 6.11 7.50 9.12 Flawed democracy
## 31 6.67 6.88 8.82 Flawed democracy
## 32 6.11 5.63 9.12 Flawed democracy
## 33 6.67 6.88 8.53 Flawed democracy
## 34 5.00 6.88 8.53 Flawed democracy
## 35 6.67 6.88 8.82 Flawed democracy
## 36 7.78 6.25 7.94 Flawed democracy
## 37 6.67 6.25 8.24 Flawed democracy
## 38 6.11 6.25 9.12 Flawed democracy
## 39 6.11 6.88 8.82 Flawed democracy
## 40 6.67 7.50 8.53 Flawed democracy
## 41 8.33 5.00 7.94 Flawed democracy
## 42 5.56 6.88 7.65 Flawed democracy
## 43 5.56 5.63 7.94 Flawed democracy
## 44 6.67 6.25 5.88 Flawed democracy
## 45 6.11 5.63 7.35 Flawed democracy
## 46 5.56 5.63 8.53 Flawed democracy
## 47 6.67 5.00 7.94 Flawed democracy
## 48 7.22 4.38 7.94 Flawed democracy
## 49 6.11 6.25 8.24 Flawed democracy
## 50 6.67 5.00 7.65 Flawed democracy
## 51 4.44 6.25 8.24 Flawed democracy
## 52 6.67 5.63 6.76 Flawed democracy
## 53 6.11 5.00 8.24 Flawed democracy
## 54 7.22 5.63 5.88 Flawed democracy
## 55 7.22 4.38 7.06 Flawed democracy
## 56 6.67 6.25 6.18 Flawed democracy
## 57 5.00 6.25 7.06 Flawed democracy
## 58 6.11 4.38 7.35 Flawed democracy
## 59 5.56 5.63 7.65 Flawed democracy
## 60 5.56 5.00 7.06 Flawed democracy
## 61 6.11 5.00 7.06 Flawed democracy
## 62 6.67 5.63 6.76 Flawed democracy
## 63 5.56 5.00 7.06 Flawed democracy
## 64 5.56 4.38 7.65 Flawed democracy
## 65 6.11 5.63 5.59 Flawed democracy
## 66 6.67 5.63 7.94 Flawed democracy
## 67 6.11 5.00 7.35 Flawed democracy
## 68 6.11 4.38 7.06 Flawed democracy
## 69 6.11 6.25 6.47 Flawed democracy
## 70 5.56 6.25 6.47 Flawed democracy
## 71 5.00 4.38 7.35 Flawed democracy
## 72 6.11 3.75 7.06 Flawed democracy
## 73 6.11 5.00 7.35 Flawed democracy
## 74 7.22 3.13 6.18 Flawed democracy
## 75 3.89 5.63 7.65 Flawed democracy
## 76 6.11 7.50 8.53 Flawed democracy
## 77 5.00 6.25 7.06 Flawed democracy
## 78 6.67 3.75 7.06 Hybrid regime
## 79 6.67 6.25 6.47 Hybrid regime
## 80 4.44 5.00 7.65 Hybrid regime
## 81 6.11 4.38 5.00 Hybrid regime
## 82 6.11 5.63 5.59 Hybrid regime
## 83 4.44 6.25 6.18 Hybrid regime
## 84 6.11 4.38 7.06 Hybrid regime
## 85 6.11 4.38 6.76 Hybrid regime
## 86 6.11 5.63 5.00 Hybrid regime
## 87 6.11 3.13 5.59 Hybrid regime
## 88 5.00 6.25 5.88 Hybrid regime
## 89 5.56 5.63 5.59 Hybrid regime
## 90 6.11 4.38 5.59 Hybrid regime
## 91 4.44 4.38 6.18 Hybrid regime
## 92 2.78 4.38 3.82 Hybrid regime
## 93 5.00 5.63 5.59 Hybrid regime
## 94 3.89 4.38 6.47 Hybrid regime
## 95 6.67 5.63 4.41 Hybrid regime
## 96 5.00 5.63 4.41 Hybrid regime
## 97 5.56 5.63 4.41 Hybrid regime
## 98 4.44 5.63 5.00 Hybrid regime
## 99 4.44 6.88 6.47 Hybrid regime
## 100 4.44 6.88 5.88 Hybrid regime
## 101 3.89 5.63 5.59 Hybrid regime
## 102 6.67 3.75 5.00 Hybrid regime
## 103 5.56 3.75 5.88 Hybrid regime
## 104 3.33 6.25 5.29 Hybrid regime
## 105 5.00 3.75 6.76 Hybrid regime
## 106 3.89 6.25 5.88 Hybrid regime
## 107 6.67 5.00 4.71 Hybrid regime
## 108 3.33 5.63 4.41 Hybrid regime
## 109 2.22 2.50 4.71 Hybrid regime
## 110 3.33 3.75 4.41 Hybrid regime
## 111 5.00 5.00 2.35 Hybrid regime
## 112 3.33 5.63 4.12 Hybrid regime
## 113 4.44 5.00 4.12 Hybrid regime
## 114 5.00 5.00 4.12 Hybrid regime
## 115 3.89 4.38 3.53 Authoritarian
## 116 3.89 4.38 3.53 Authoritarian
## 117 5.00 3.13 4.41 Authoritarian
## 118 7.78 4.38 3.82 Authoritarian
## 119 6.67 5.00 1.76 Authoritarian
## 120 5.56 5.00 2.94 Authoritarian
## 121 5.00 5.00 3.53 Authoritarian
## 122 4.44 5.00 3.82 Authoritarian
## 123 2.78 5.63 2.35 Authoritarian
## 124 3.89 5.63 4.12 Authoritarian
## 125 3.33 5.63 3.24 Authoritarian
## 126 5.56 5.00 2.65 Authoritarian
## 127 3.33 5.00 3.24 Authoritarian
## 128 3.33 4.38 4.71 Authoritarian
## 129 2.22 5.63 3.82 Authoritarian
## 130 2.78 4.38 2.94 Authoritarian
## 131 4.44 5.63 3.24 Authoritarian
## 132 3.89 3.75 3.82 Authoritarian
## 133 2.78 5.63 3.53 Authoritarian
## 134 4.44 4.38 2.94 Authoritarian
## 135 3.89 3.75 3.24 Authoritarian
## 136 5.00 2.50 4.12 Authoritarian
## 137 3.89 5.63 2.65 Authoritarian
## 138 3.33 3.75 2.35 Authoritarian
## 139 2.78 4.38 4.12 Authoritarian
## 140 4.44 4.38 3.24 Authoritarian
## 141 5.00 4.38 3.24 Authoritarian
## 142 3.89 2.50 3.82 Authoritarian
## 143 3.33 4.38 2.35 Authoritarian
## 144 3.33 4.38 2.94 Authoritarian
## 145 3.89 5.63 2.65 Authoritarian
## 146 2.22 5.00 2.65 Authoritarian
## 147 2.78 3.75 3.53 Authoritarian
## 148 5.56 5.00 1.18 Authoritarian
## 149 2.78 3.13 2.35 Authoritarian
## 150 2.78 4.38 2.06 Authoritarian
## 151 2.78 4.38 2.35 Authoritarian
## 152 4.44 3.13 1.47 Authoritarian
## 153 1.67 6.88 1.18 Authoritarian
## 154 3.33 2.50 1.18 Authoritarian
## 155 3.33 5.00 2.35 Authoritarian
## 156 1.67 5.00 1.18 Authoritarian
## 157 2.78 4.38 2.94 Authoritarian
## 158 2.22 5.00 0.88 Authoritarian
## 159 3.89 5.00 0.88 Authoritarian
## 160 2.22 3.13 1.47 Authoritarian
## 161 1.67 6.25 0.88 Authoritarian
## 162 3.33 4.38 1.47 Authoritarian
## 163 2.22 5.00 0.59 Authoritarian
## 164 1.67 3.75 2.65 Authoritarian
## 165 2.78 4.38 0.00 Authoritarian
## 166 1.11 1.88 2.35 Authoritarian
## 167 1.67 3.13 0.88 Authoritarian
## 168 1.67 1.25 0.00 Authoritarian
## continent NA
## 2 Western Europe NA
## 3 Western Europe NA
## 4 Western Europe NA
## 5 Asia & Australasia NA
## 6 Western Europe NA
## 7 Western Europe NA
## 8 Western Europe NA
## 9 North America NA
## 10 Asia & Australasia NA
## 11 Western Europe NA
## 12 Western Europe NA
## 13 Western Europe NA
## 14 Western Europe NA
## 15 Western Europe NA
## 16 Latin America NA
## 17 Western Europe NA
## 18 Western Europe NA
## 19 Sub-Saharan Africa NA
## 20 Latin America NA
## 21 Western Europe NA
## 22 Latin America NA
## 23 Western Europe NA
## 24 Asia & Australasia NA
## 25 Asia & Australasia NA
## 26 North America NA
## 27 Western Europe NA
## 28 Eastern Europe NA
## 29 Middle East & North Africa NA
## 30 Sub-Saharan Africa NA
## 31 Sub-Saharan Africa NA
## 32 Asia & Australasia NA
## 33 Eastern Europe NA
## 34 Western Europe NA
## 35 Western Europe NA
## 36 Western Europe NA
## 37 Eastern Europe NA
## 38 Eastern Europe NA
## 39 Eastern Europe NA
## 40 Western Europe NA
## 41 Sub-Saharan Africa NA
## 42 Asia & Australasia NA
## 43 Eastern Europe NA
## 44 Asia & Australasia NA
## 45 Latin America NA
## 46 Latin America NA
## 47 Latin America NA
## 48 Eastern Europe NA
## 49 Latin America NA
## 50 Latin America NA
## 51 Latin America NA
## 52 Asia & Australasia NA
## 53 Latin America NA
## 54 Middle East & North Africa NA
## 55 Asia & Australasia NA
## 56 Sub-Saharan Africa NA
## 57 Eastern Europe NA
## 58 Eastern Europe NA
## 59 Latin America NA
## 60 Eastern Europe NA
## 61 Latin America NA
## 62 Sub-Saharan Africa NA
## 63 Asia & Australasia NA
## 64 Eastern Europe NA
## 65 Asia & Australasia NA
## 66 Sub-Saharan Africa NA
## 67 Eastern Europe NA
## 68 Latin America NA
## 69 Asia & Australasia NA
## 70 Asia & Australasia NA
## 71 Latin America NA
## 72 Latin America NA
## 73 Latin America NA
## 74 Latin America NA
## 75 Asia & Australasia NA
## 76 Asia & Australasia NA
## 77 Asia & Australasia NA
## 78 Eastern Europe NA
## 79 Eastern Europe NA
## 80 Eastern Europe NA
## 81 Asia & Australasia NA
## 82 Asia & Australasia NA
## 83 Sub-Saharan Africa NA
## 84 Eastern Europe NA
## 85 Eastern Europe NA
## 86 Sub-Saharan Africa NA
## 87 Eastern Europe NA
## 88 Sub-Saharan Africa NA
## 89 Sub-Saharan Africa NA
## 90 Eastern Europe NA
## 91 Latin America NA
## 92 Asia & Australasia NA
## 93 Asia & Australasia NA
## 94 Latin America NA
## 95 Sub-Saharan Africa NA
## 96 Sub-Saharan Africa NA
## 97 Middle East & North Africa NA
## 98 Sub-Saharan Africa NA
## 99 Sub-Saharan Africa NA
## 100 Sub-Saharan Africa NA
## 101 Sub-Saharan Africa NA
## 102 Eastern Europe NA
## 103 Eastern Europe NA
## 104 Sub-Saharan Africa NA
## 105 Latin America NA
## 106 Latin America NA
## 107 Middle East & North Africa NA
## 108 Sub-Saharan Africa NA
## 109 Asia & Australasia NA
## 110 Sub-Saharan Africa NA
## 111 Western Europe NA
## 112 Sub-Saharan Africa NA
## 113 Sub-Saharan Africa NA
## 114 Middle East & North Africa NA
## 115 Middle East & North Africa NA
## 116 Middle East & North Africa NA
## 117 Sub-Saharan Africa NA
## 118 Middle East & North Africa NA
## 119 Middle East & North Africa NA
## 120 Sub-Saharan Africa NA
## 121 Sub-Saharan Africa NA
## 122 Sub-Saharan Africa NA
## 123 Asia & Australasia NA
## 124 Latin America NA
## 125 Asia & Australasia NA
## 126 Sub-Saharan Africa NA
## 127 Sub-Saharan Africa NA
## 128 Sub-Saharan Africa NA
## 129 Middle East & North Africa NA
## 130 Sub-Saharan Africa NA
## 131 Sub-Saharan Africa NA
## 132 Sub-Saharan Africa NA
## 133 Sub-Saharan Africa NA
## 134 Sub-Saharan Africa NA
## 135 Sub-Saharan Africa NA
## 136 Eastern Europe NA
## 137 Asia & Australasia NA
## 138 Middle East & North Africa NA
## 139 Middle East & North Africa NA
## 140 Eastern Europe NA
## 141 Latin America NA
## 142 Asia & Australasia NA
## 143 Sub-Saharan Africa NA
## 144 Latin America NA
## 145 Sub-Saharan Africa NA
## 146 Middle East & North Africa NA
## 147 Eastern Europe NA
## 148 Middle East & North Africa NA
## 149 Sub-Saharan Africa NA
## 150 Middle East & North Africa NA
## 151 Eastern Europe NA
## 152 Middle East & North Africa NA
## 153 Sub-Saharan Africa NA
## 154 Asia & Australasia NA
## 155 Sub-Saharan Africa NA
## 156 Asia & Australasia NA
## 157 Middle East & North Africa NA
## 158 Eastern Europe NA
## 159 Middle East & North Africa NA
## 160 Middle East & North Africa NA
## 161 Eastern Europe NA
## 162 Sub-Saharan Africa NA
## 163 Eastern Europe NA
## 164 Sub-Saharan Africa NA
## 165 Middle East & North Africa NA
## 166 Sub-Saharan Africa NA
## 167 Sub-Saharan Africa NA
## 168 Asia & Australasia NA
demo$rank=NULL
summary(demo)
## country score electoral functioning
## Length:167 Min. :1.080 Min. : 0.000 Min. :0.000
## Class :character 1st Qu.:3.370 1st Qu.: 2.625 1st Qu.:2.860
## Mode :character Median :5.650 Median : 6.920 Median :5.000
## Mean :5.440 Mean : 5.798 Mean :4.815
## 3rd Qu.:7.165 3rd Qu.: 9.170 3rd Qu.:6.790
## Max. :9.870 Max. :10.000 Max. :9.640
##
## participation culture civilliber regimetype
## Min. : 1.11 Min. : 1.250 Min. : 0.00 Authoritarian :54
## 1st Qu.: 3.89 1st Qu.: 4.380 1st Qu.: 3.53 Hybrid regime :37
## Median : 5.56 Median : 5.630 Median : 5.88 Flawed democracy:54
## Mean : 5.28 Mean : 5.571 Mean : 5.74 Full democracy :22
## 3rd Qu.: 6.67 3rd Qu.: 6.250 3rd Qu.: 8.09
## Max. :10.00 Max. :10.000 Max. :10.00
##
## continent NA
## Asia & Australasia :28 Min. : NA
## Eastern Europe :28 1st Qu.: NA
## Latin America :24 Median : NA
## Middle East & North Africa:20 Mean :NaN
## North America : 2 3rd Qu.: NA
## Sub-Saharan Africa :44 Max. : NA
## Western Europe :21 NA's :167
library(ggpubr)
## Warning: package 'ggpubr' was built under R version 4.0.3
## Loading required package: ggplot2
## Warning: package 'ggplot2' was built under R version 4.0.2
ggqqplot(data=demo,x="culture") + facet_grid(. ~ continent)
library(ggpubr)
p1=ggscatter(demo,
x = "functioning", y = "culture",
cor.coef = TRUE,
cor.method = "spearman")
columna=demo$culture
fila=demo$participation
(t=table(fila,columna))
## columna
## fila 1.25 1.88 2.5 3.13 3.75 4.38 5 5.63 6.25 6.88 7.5 8.13 8.75 9.38 10
## 1.11 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## 1.67 1 0 0 1 1 0 1 0 1 1 0 0 0 0 0
## 2.22 0 0 1 1 0 0 3 1 0 0 0 0 0 0 0
## 2.78 0 0 0 1 1 7 0 2 0 0 0 0 0 0 0
## 3.33 0 0 1 0 2 4 2 3 1 0 0 0 0 0 0
## 3.89 0 0 1 0 2 3 1 5 1 0 0 0 0 0 0
## 4.44 0 0 0 1 0 3 3 2 2 2 0 0 0 0 0
## 5 0 0 1 1 1 2 3 2 3 1 0 1 0 0 0
## 5.56 0 0 0 0 1 1 5 5 1 1 0 0 1 0 0
## 6.11 0 0 0 1 1 6 4 5 3 1 4 1 0 0 0
## 6.67 0 0 0 0 2 0 4 4 4 4 3 0 1 0 0
## 7.22 0 0 0 1 0 2 0 1 0 0 1 0 0 0 0
## 7.78 0 0 0 0 0 1 0 0 1 1 1 1 1 2 0
## 8.33 0 0 0 0 0 0 1 0 0 1 1 0 1 1 2
## 8.89 0 0 0 0 0 0 0 0 0 0 2 1 1 0 1
## 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
prop_t=prop.table(t,margin = 2)
round(prop_t,2)
## columna
## fila 1.25 1.88 2.5 3.13 3.75 4.38 5 5.63 6.25 6.88 7.5 8.13 8.75 9.38
## 1.11 0.00 1.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## 1.67 1.00 0.00 0.00 0.14 0.09 0.00 0.04 0.00 0.06 0.08 0.00 0.00 0.00 0.00
## 2.22 0.00 0.00 0.25 0.14 0.00 0.00 0.11 0.03 0.00 0.00 0.00 0.00 0.00 0.00
## 2.78 0.00 0.00 0.00 0.14 0.09 0.24 0.00 0.07 0.00 0.00 0.00 0.00 0.00 0.00
## 3.33 0.00 0.00 0.25 0.00 0.18 0.14 0.07 0.10 0.06 0.00 0.00 0.00 0.00 0.00
## 3.89 0.00 0.00 0.25 0.00 0.18 0.10 0.04 0.17 0.06 0.00 0.00 0.00 0.00 0.00
## 4.44 0.00 0.00 0.00 0.14 0.00 0.10 0.11 0.07 0.12 0.17 0.00 0.00 0.00 0.00
## 5 0.00 0.00 0.25 0.14 0.09 0.07 0.11 0.07 0.18 0.08 0.00 0.25 0.00 0.00
## 5.56 0.00 0.00 0.00 0.00 0.09 0.03 0.19 0.17 0.06 0.08 0.00 0.00 0.20 0.00
## 6.11 0.00 0.00 0.00 0.14 0.09 0.21 0.15 0.17 0.18 0.08 0.33 0.25 0.00 0.00
## 6.67 0.00 0.00 0.00 0.00 0.18 0.00 0.15 0.13 0.24 0.33 0.25 0.00 0.20 0.00
## 7.22 0.00 0.00 0.00 0.14 0.00 0.07 0.00 0.03 0.00 0.00 0.08 0.00 0.00 0.00
## 7.78 0.00 0.00 0.00 0.00 0.00 0.03 0.00 0.00 0.06 0.08 0.08 0.25 0.20 0.67
## 8.33 0.00 0.00 0.00 0.00 0.00 0.00 0.04 0.00 0.00 0.08 0.08 0.00 0.20 0.33
## 8.89 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.17 0.25 0.20 0.00
## 10 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## columna
## fila 10
## 1.11 0.00
## 1.67 0.00
## 2.22 0.00
## 2.78 0.00
## 3.33 0.00
## 3.89 0.00
## 4.44 0.00
## 5 0.00
## 5.56 0.00
## 6.11 0.00
## 6.67 0.00
## 7.22 0.00
## 7.78 0.00
## 8.33 0.50
## 8.89 0.25
## 10 0.25