Module 11: Apply it to your data 10
Sydnie Rogers
Import your data
data <- read.csv("../00_data/myData.csv")Chapter 15
Create a factor
x1 <- c("1950","1951","1952", "1953")
year_levels <- c(
"1950", "1951", "1952", "1953")
y1 <- factor(x1, levels = year_levels)Modify factor order
Make two bar charts here - one before ordering another after
# unordered data
data2 <- data %>%
group_by(Entity) %>%
summarise(
Avg_Expectancy = mean(LifeExpectancy, na.rm = TRUE))
data2 ## # A tibble: 261 × 2
## Entity Avg_Expectancy
## <chr> <dbl>
## 1 Afghanistan 45.4
## 2 Africa 49.4
## 3 Albania 68.3
## 4 Algeria 57.5
## 5 American Samoa 68.6
## 6 Americas 66.4
## 7 Andorra 77.0
## 8 Angola 45.1
## 9 Anguilla 69.4
## 10 Antigua and Barbuda 71.2
## # ℹ 251 more rows# Plot
data2 %>%
ggplot(aes(x = Avg_Expectancy, y = Entity)) +
geom_point() 
# ordered data
data2 %>%
ggplot(aes(x = Avg_Expectancy, y = fct_reorder(Entity, Avg_Expectancy))) +
geom_point() 
# Plot
data2 %>%
ggplot(aes(x = Avg_Expectancy, y = Entity)) +
geom_point()
Modify factor levels
Show examples of three functions:
- fct_recode
data %>%
mutate (Entity_rev = fct_recode(Entity, "AFG" ="Afghanistan")) %>%
select(Entity, Entity_rev) %>%
filter(Entity == "Afghanistan")## Entity Entity_rev
## 1 Afghanistan AFG
## 2 Afghanistan AFG
## 3 Afghanistan AFG
## 4 Afghanistan AFG
## 5 Afghanistan AFG
## 6 Afghanistan AFG
## 7 Afghanistan AFG
## 8 Afghanistan AFG
## 9 Afghanistan AFG
## 10 Afghanistan AFG
## 11 Afghanistan AFG
## 12 Afghanistan AFG
## 13 Afghanistan AFG
## 14 Afghanistan AFG
## 15 Afghanistan AFG
## 16 Afghanistan AFG
## 17 Afghanistan AFG
## 18 Afghanistan AFG
## 19 Afghanistan AFG
## 20 Afghanistan AFG
## 21 Afghanistan AFG
## 22 Afghanistan AFG
## 23 Afghanistan AFG
## 24 Afghanistan AFG
## 25 Afghanistan AFG
## 26 Afghanistan AFG
## 27 Afghanistan AFG
## 28 Afghanistan AFG
## 29 Afghanistan AFG
## 30 Afghanistan AFG
## 31 Afghanistan AFG
## 32 Afghanistan AFG
## 33 Afghanistan AFG
## 34 Afghanistan AFG
## 35 Afghanistan AFG
## 36 Afghanistan AFG
## 37 Afghanistan AFG
## 38 Afghanistan AFG
## 39 Afghanistan AFG
## 40 Afghanistan AFG
## 41 Afghanistan AFG
## 42 Afghanistan AFG
## 43 Afghanistan AFG
## 44 Afghanistan AFG
## 45 Afghanistan AFG
## 46 Afghanistan AFG
## 47 Afghanistan AFG
## 48 Afghanistan AFG
## 49 Afghanistan AFG
## 50 Afghanistan AFG
## 51 Afghanistan AFG
## 52 Afghanistan AFG
## 53 Afghanistan AFG
## 54 Afghanistan AFG
## 55 Afghanistan AFG
## 56 Afghanistan AFG
## 57 Afghanistan AFG
## 58 Afghanistan AFG
## 59 Afghanistan AFG
## 60 Afghanistan AFG
## 61 Afghanistan AFG
## 62 Afghanistan AFG
## 63 Afghanistan AFG
## 64 Afghanistan AFG
## 65 Afghanistan AFG
## 66 Afghanistan AFG
## 67 Afghanistan AFG
## 68 Afghanistan AFG
## 69 Afghanistan AFG
## 70 Afghanistan AFG
## 71 Afghanistan AFG
## 72 Afghanistan AFG- fct_collapse
data %>%
mutate(Entity_co1 = fct_collapse(Entity, "North America" = c("United States", "Canada"))) %>%
select(Entity, Entity_co1) %>%
filter(Entity_co1 == "North America") ## Entity Entity_co1
## 1 Canada North America
## 2 Canada North America
## 3 Canada North America
## 4 Canada North America
## 5 Canada North America
## 6 Canada North America
## 7 Canada North America
## 8 Canada North America
## 9 Canada North America
## 10 Canada North America
## 11 Canada North America
## 12 Canada North America
## 13 Canada North America
## 14 Canada North America
## 15 Canada North America
## 16 Canada North America
## 17 Canada North America
## 18 Canada North America
## 19 Canada North America
## 20 Canada North America
## 21 Canada North America
## 22 Canada North America
## 23 Canada North America
## 24 Canada North America
## 25 Canada North America
## 26 Canada North America
## 27 Canada North America
## 28 Canada North America
## 29 Canada North America
## 30 Canada North America
## 31 Canada North America
## 32 Canada North America
## 33 Canada North America
## 34 Canada North America
## 35 Canada North America
## 36 Canada North America
## 37 Canada North America
## 38 Canada North America
## 39 Canada North America
## 40 Canada North America
## 41 Canada North America
## 42 Canada North America
## 43 Canada North America
## 44 Canada North America
## 45 Canada North America
## 46 Canada North America
## 47 Canada North America
## 48 Canada North America
## 49 Canada North America
## 50 Canada North America
## 51 Canada North America
## 52 Canada North America
## 53 Canada North America
## 54 Canada North America
## 55 Canada North America
## 56 Canada North America
## 57 Canada North America
## 58 Canada North America
## 59 Canada North America
## 60 Canada North America
## 61 Canada North America
## 62 Canada North America
## 63 Canada North America
## 64 Canada North America
## 65 Canada North America
## 66 Canada North America
## 67 Canada North America
## 68 Canada North America
## 69 Canada North America
## 70 Canada North America
## 71 Canada North America
## 72 Canada North America
## 73 Canada North America
## 74 Canada North America
## 75 Canada North America
## 76 Canada North America
## 77 Canada North America
## 78 Canada North America
## 79 Canada North America
## 80 Canada North America
## 81 Canada North America
## 82 Canada North America
## 83 Canada North America
## 84 Canada North America
## 85 Canada North America
## 86 Canada North America
## 87 Canada North America
## 88 Canada North America
## 89 Canada North America
## 90 Canada North America
## 91 Canada North America
## 92 Canada North America
## 93 Canada North America
## 94 Canada North America
## 95 Canada North America
## 96 Canada North America
## 97 Canada North America
## 98 Canada North America
## 99 Canada North America
## 100 Canada North America
## 101 Canada North America
## 102 Canada North America
## 103 Canada North America
## 104 Canada North America
## 105 Canada North America
## 106 Canada North America
## 107 Canada North America
## 108 Canada North America
## 109 Canada North America
## 110 Canada North America
## 111 United States North America
## 112 United States North America
## 113 United States North America
## 114 United States North America
## 115 United States North America
## 116 United States North America
## 117 United States North America
## 118 United States North America
## 119 United States North America
## 120 United States North America
## 121 United States North America
## 122 United States North America
## 123 United States North America
## 124 United States North America
## 125 United States North America
## 126 United States North America
## 127 United States North America
## 128 United States North America
## 129 United States North America
## 130 United States North America
## 131 United States North America
## 132 United States North America
## 133 United States North America
## 134 United States North America
## 135 United States North America
## 136 United States North America
## 137 United States North America
## 138 United States North America
## 139 United States North America
## 140 United States North America
## 141 United States North America
## 142 United States North America
## 143 United States North America
## 144 United States North America
## 145 United States North America
## 146 United States North America
## 147 United States North America
## 148 United States North America
## 149 United States North America
## 150 United States North America
## 151 United States North America
## 152 United States North America
## 153 United States North America
## 154 United States North America
## 155 United States North America
## 156 United States North America
## 157 United States North America
## 158 United States North America
## 159 United States North America
## 160 United States North America
## 161 United States North America
## 162 United States North America
## 163 United States North America
## 164 United States North America
## 165 United States North America
## 166 United States North America
## 167 United States North America
## 168 United States North America
## 169 United States North America
## 170 United States North America
## 171 United States North America
## 172 United States North America
## 173 United States North America
## 174 United States North America
## 175 United States North America
## 176 United States North America
## 177 United States North America
## 178 United States North America
## 179 United States North America
## 180 United States North America
## 181 United States North America
## 182 United States North America
## 183 United States North America
## 184 United States North America
## 185 United States North America
## 186 United States North America
## 187 United States North America
## 188 United States North America
## 189 United States North America
## 190 United States North America
## 191 United States North America
## 192 United States North America
## 193 United States North America
## 194 United States North America
## 195 United States North America
## 196 United States North America
## 197 United States North America
## 198 United States North America
## 199 United States North America
## 200 United States North America
## 201 United States North America
## 202 United States North America
## 203 United States North America
## 204 United States North America
## 205 United States North America
## 206 United States North America
## 207 United States North America
## 208 United States North America
## 209 United States North America
## 210 United States North America
## 211 United States North America
## 212 United States North America
## 213 United States North America
## 214 United States North America
## 215 United States North America
## 216 United States North America
## 217 United States North America
## 218 United States North America
## 219 United States North America
## 220 United States North America
## 221 United States North America
## 222 United States North America
## 223 United States North America
## 224 United States North America
## 225 United States North America
## 226 United States North America
## 227 United States North America
## 228 United States North America
## 229 United States North America
## 230 United States North America
## 231 United States North America
## 232 United States North America
## 233 United States North America- fct_lump
data %>% count(Year)## Year n
## 1 1543 1
## 2 1548 1
## 3 1553 1
## 4 1558 1
## 5 1563 1
## 6 1568 1
## 7 1573 1
## 8 1578 1
## 9 1583 1
## 10 1588 1
## 11 1593 1
## 12 1598 1
## 13 1603 1
## 14 1608 1
## 15 1613 1
## 16 1618 1
## 17 1623 1
## 18 1628 1
## 19 1633 1
## 20 1638 1
## 21 1643 1
## 22 1648 1
## 23 1653 1
## 24 1658 1
## 25 1663 1
## 26 1668 1
## 27 1673 1
## 28 1678 1
## 29 1683 1
## 30 1688 1
## 31 1693 1
## 32 1698 1
## 33 1703 1
## 34 1708 1
## 35 1713 1
## 36 1718 1
## 37 1723 1
## 38 1728 1
## 39 1733 1
## 40 1738 1
## 41 1743 1
## 42 1748 1
## 43 1751 1
## 44 1752 1
## 45 1753 2
## 46 1754 1
## 47 1755 2
## 48 1756 1
## 49 1757 1
## 50 1758 2
## 51 1759 1
## 52 1760 1
## 53 1761 1
## 54 1762 1
## 55 1763 2
## 56 1764 1
## 57 1765 2
## 58 1766 1
## 59 1767 1
## 60 1768 2
## 61 1769 1
## 62 1770 6
## 63 1771 1
## 64 1772 1
## 65 1773 2
## 66 1774 1
## 67 1775 3
## 68 1776 1
## 69 1777 1
## 70 1778 2
## 71 1779 1
## 72 1780 1
## 73 1781 1
## 74 1782 1
## 75 1783 2
## 76 1784 1
## 77 1785 2
## 78 1786 1
## 79 1787 1
## 80 1788 2
## 81 1789 1
## 82 1790 1
## 83 1791 1
## 84 1792 1
## 85 1793 2
## 86 1794 1
## 87 1795 2
## 88 1796 1
## 89 1797 1
## 90 1798 2
## 91 1799 1
## 92 1800 3
## 93 1801 1
## 94 1802 1
## 95 1803 2
## 96 1804 1
## 97 1805 2
## 98 1806 1
## 99 1807 1
## 100 1808 2
## 101 1809 1
## 102 1810 1
## 103 1811 1
## 104 1812 1
## 105 1813 2
## 106 1814 1
## 107 1815 2
## 108 1816 2
## 109 1817 2
## 110 1818 3
## 111 1819 2
## 112 1820 4
## 113 1821 2
## 114 1822 2
## 115 1823 3
## 116 1824 2
## 117 1825 3
## 118 1826 2
## 119 1827 2
## 120 1828 3
## 121 1829 2
## 122 1830 3
## 123 1831 3
## 124 1832 2
## 125 1833 3
## 126 1834 2
## 127 1835 4
## 128 1836 3
## 129 1837 3
## 130 1838 5
## 131 1839 4
## 132 1840 4
## 133 1841 7
## 134 1842 7
## 135 1843 7
## 136 1844 7
## 137 1845 8
## 138 1846 8
## 139 1847 8
## 140 1848 8
## 141 1849 8
## 142 1850 12
## 143 1851 10
## 144 1852 9
## 145 1853 9
## 146 1854 9
## 147 1855 11
## 148 1856 10
## 149 1857 10
## 150 1858 10
## 151 1859 10
## 152 1860 10
## 153 1861 11
## 154 1862 10
## 155 1863 10
## 156 1864 10
## 157 1865 12
## 158 1866 10
## 159 1867 10
## 160 1868 11
## 161 1869 10
## 162 1870 16
## 163 1871 11
## 164 1872 11
## 165 1873 12
## 166 1874 11
## 167 1875 17
## 168 1876 13
## 169 1877 13
## 170 1878 13
## 171 1879 13
## 172 1880 16
## 173 1881 17
## 174 1882 16
## 175 1883 14
## 176 1884 14
## 177 1885 19
## 178 1886 15
## 179 1887 15
## 180 1888 14
## 181 1889 14
## 182 1890 17
## 183 1891 17
## 184 1892 16
## 185 1893 15
## 186 1894 15
## 187 1895 20
## 188 1896 18
## 189 1897 18
## 190 1898 15
## 191 1899 16
## 192 1900 43
## 193 1901 22
## 194 1902 20
## 195 1903 18
## 196 1904 17
## 197 1905 25
## 198 1906 18
## 199 1907 19
## 200 1908 21
## 201 1909 18
## 202 1910 33
## 203 1911 24
## 204 1912 18
## 205 1913 25
## 206 1914 16
## 207 1915 22
## 208 1916 16
## 209 1917 17
## 210 1918 19
## 211 1919 17
## 212 1920 36
## 213 1921 29
## 214 1922 26
## 215 1923 27
## 216 1924 24
## 217 1925 30
## 218 1926 28
## 219 1927 30
## 220 1928 26
## 221 1929 24
## 222 1930 45
## 223 1931 30
## 224 1932 28
## 225 1933 26
## 226 1934 25
## 227 1935 32
## 228 1936 25
## 229 1937 35
## 230 1938 27
## 231 1939 25
## 232 1940 46
## 233 1941 30
## 234 1942 30
## 235 1943 27
## 236 1944 26
## 237 1945 32
## 238 1946 30
## 239 1947 33
## 240 1948 31
## 241 1949 32
## 242 1950 257
## 243 1951 257
## 244 1952 257
## 245 1953 257
## 246 1954 257
## 247 1955 257
## 248 1956 257
## 249 1957 257
## 250 1958 257
## 251 1959 257
## 252 1960 257
## 253 1961 257
## 254 1962 257
## 255 1963 257
## 256 1964 257
## 257 1965 257
## 258 1966 257
## 259 1967 257
## 260 1968 257
## 261 1969 257
## 262 1970 257
## 263 1971 257
## 264 1972 257
## 265 1973 257
## 266 1974 257
## 267 1975 257
## 268 1976 257
## 269 1977 257
## 270 1978 257
## 271 1979 257
## 272 1980 257
## 273 1981 257
## 274 1982 257
## 275 1983 257
## 276 1984 257
## 277 1985 257
## 278 1986 257
## 279 1987 257
## 280 1988 257
## 281 1989 257
## 282 1990 257
## 283 1991 257
## 284 1992 257
## 285 1993 257
## 286 1994 257
## 287 1995 257
## 288 1996 257
## 289 1997 257
## 290 1998 257
## 291 1999 257
## 292 2000 257
## 293 2001 257
## 294 2002 257
## 295 2003 257
## 296 2004 257
## 297 2005 257
## 298 2006 257
## 299 2007 257
## 300 2008 257
## 301 2009 257
## 302 2010 257
## 303 2011 257
## 304 2012 257
## 305 2013 257
## 306 2014 257
## 307 2015 257
## 308 2016 257
## 309 2017 257
## 310 2018 257
## 311 2019 257
## 312 2020 257
## 313 2021 257data %>% mutate(Year_lump = fct_lump(Entity)) %>% distinct(Year_lump)## Year_lump
## 1 Afghanistan
## 2 Africa
## 3 Albania
## 4 Algeria
## 5 American Samoa
## 6 Americas
## 7 Andorra
## 8 Angola
## 9 Anguilla
## 10 Antigua and Barbuda
## 11 Argentina
## 12 Armenia
## 13 Aruba
## 14 Asia
## 15 Australia
## 16 Austria
## 17 Azerbaijan
## 18 Bahamas
## 19 Bahrain
## 20 Bangladesh
## 21 Barbados
## 22 Belarus
## 23 Belgium
## 24 Belize
## 25 Benin
## 26 Bermuda
## 27 Bhutan
## 28 Bolivia
## 29 Bonaire Sint Eustatius and Saba
## 30 Bosnia and Herzegovina
## 31 Botswana
## 32 Brazil
## 33 British Virgin Islands
## 34 Brunei
## 35 Bulgaria
## 36 Burkina Faso
## 37 Burundi
## 38 Cambodia
## 39 Cameroon
## 40 Canada
## 41 Cape Verde
## 42 Cayman Islands
## 43 Central African Republic
## 44 Chad
## 45 Chile
## 46 China
## 47 Colombia
## 48 Comoros
## 49 Congo
## 50 Cook Islands
## 51 Costa Rica
## 52 Cote d'Ivoire
## 53 Croatia
## 54 Cuba
## 55 Curacao
## 56 Cyprus
## 57 Czechia
## 58 Democratic Republic of Congo
## 59 Denmark
## 60 Djibouti
## 61 Dominica
## 62 Dominican Republic
## 63 East Timor
## 64 Ecuador
## 65 Egypt
## 66 El Salvador
## 67 England and Wales
## 68 Equatorial Guinea
## 69 Eritrea
## 70 Estonia
## 71 Eswatini
## 72 Ethiopia
## 73 Europe
## 74 Falkland Islands
## 75 Faroe Islands
## 76 Fiji
## 77 Finland
## 78 France
## 79 French Guiana
## 80 French Polynesia
## 81 Gabon
## 82 Gambia
## 83 Georgia
## 84 Germany
## 85 Ghana
## 86 Gibraltar
## 87 Greece
## 88 Greenland
## 89 Grenada
## 90 Guadeloupe
## 91 Guam
## 92 Guatemala
## 93 Guernsey
## 94 Guinea
## 95 Guinea-Bissau
## 96 Guyana
## 97 Haiti
## 98 High-income countries
## 99 Honduras
## 100 Hong Kong
## 101 Hungary
## 102 Iceland
## 103 India
## 104 Indonesia
## 105 Iran
## 106 Iraq
## 107 Ireland
## 108 Isle of Man
## 109 Israel
## 110 Italy
## 111 Jamaica
## 112 Japan
## 113 Jersey
## 114 Jordan
## 115 Kazakhstan
## 116 Kenya
## 117 Kiribati
## 118 Kosovo
## 119 Kuwait
## 120 Kyrgyzstan
## 121 Land-locked Developing Countries (LLDC)
## 122 Laos
## 123 Latin America and the Caribbean
## 124 Latvia
## 125 Least developed countries
## 126 Lebanon
## 127 Lesotho
## 128 Less developed regions
## 129 Less developed regions, excluding China
## 130 Less developed regions, excluding least developed countries
## 131 Liberia
## 132 Libya
## 133 Liechtenstein
## 134 Lithuania
## 135 Low-income countries
## 136 Lower-middle-income countries
## 137 Luxembourg
## 138 Macao
## 139 Madagascar
## 140 Malawi
## 141 Malaysia
## 142 Maldives
## 143 Mali
## 144 Malta
## 145 Marshall Islands
## 146 Martinique
## 147 Mauritania
## 148 Mauritius
## 149 Mayotte
## 150 Mexico
## 151 Micronesia (country)
## 152 Middle-income countries
## 153 Moldova
## 154 Monaco
## 155 Mongolia
## 156 Montenegro
## 157 Montserrat
## 158 More developed regions
## 159 Morocco
## 160 Mozambique
## 161 Myanmar
## 162 Namibia
## 163 Nauru
## 164 Nepal
## 165 Netherlands
## 166 New Caledonia
## 167 New Zealand
## 168 Nicaragua
## 169 Niger
## 170 Nigeria
## 171 Niue
## 172 No income group available
## 173 North Korea
## 174 North Macedonia
## 175 Northern America
## 176 Other
## 177 Northern Mariana Islands
## 178 Norway
## 179 Oceania
## 180 Oman
## 181 Pakistan
## 182 Palau
## 183 Palestine
## 184 Panama
## 185 Papua New Guinea
## 186 Paraguay
## 187 Peru
## 188 Philippines
## 189 Poland
## 190 Portugal
## 191 Puerto Rico
## 192 Qatar
## 193 Reunion
## 194 Romania
## 195 Russia
## 196 Rwanda
## 197 Saint Barthelemy
## 198 Saint Helena
## 199 Saint Kitts and Nevis
## 200 Saint Lucia
## 201 Saint Martin (French part)
## 202 Saint Pierre and Miquelon
## 203 Saint Vincent and the Grenadines
## 204 Samoa
## 205 San Marino
## 206 Sao Tome and Principe
## 207 Saudi Arabia
## 208 Scotland
## 209 Senegal
## 210 Serbia
## 211 Seychelles
## 212 Sierra Leone
## 213 Singapore
## 214 Sint Maarten (Dutch part)
## 215 Slovakia
## 216 Slovenia
## 217 Small Island Developing States (SIDS)
## 218 Solomon Islands
## 219 Somalia
## 220 South Africa
## 221 South Korea
## 222 South Sudan
## 223 Spain
## 224 Sri Lanka
## 225 Sudan
## 226 Suriname
## 227 Sweden
## 228 Switzerland
## 229 Syria
## 230 Taiwan
## 231 Tajikistan
## 232 Tanzania
## 233 Thailand
## 234 Togo
## 235 Tokelau
## 236 Tonga
## 237 Trinidad and Tobago
## 238 Tunisia
## 239 Turkey
## 240 Turkmenistan
## 241 Turks and Caicos Islands
## 242 Tuvalu
## 243 Uganda
## 244 Ukraine
## 245 United Arab Emirates
## 246 United Kingdom
## 247 United States
## 248 United States Virgin Islands
## 249 Upper-middle-income countries
## 250 Uruguay
## 251 Uzbekistan
## 252 Vanuatu
## 253 Venezuela
## 254 Vietnam
## 255 Wallis and Futuna
## 256 Western Sahara
## 257 World
## 258 Yemen
## 259 Zambia
## 260 ZimbabweChapter 16
No need to do anything here.