# instancia de librerías a utilizar
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, unionlibrary(dslabs)
library(dplyr)# Consulta de información general de temp_carbon
str(temp_carbon)## 'data.frame': 268 obs. of 5 variables:
## $ year : num 1880 1881 1882 1883 1884 ...
## $ temp_anomaly : num -0.11 -0.08 -0.1 -0.18 -0.26 -0.25 -0.24 -0.28 -0.13 -0.09 ...
## $ land_anomaly : num -0.48 -0.4 -0.48 -0.66 -0.69 -0.56 -0.51 -0.47 -0.41 -0.31 ...
## $ ocean_anomaly : num -0.01 0.01 0 -0.04 -0.14 -0.17 -0.17 -0.23 -0.05 -0.02 ...
## $ carbon_emissions: num 236 243 256 272 275 277 281 295 327 327 ...# Filtro de registros con NA
NA_temp_carbon <- temp_carbon %>% filter(is.na(temp_anomaly == TRUE | land_anomaly == TRUE | ocean_anomaly == TRUE | carbon_emissions == TRUE))
NA_temp_carbon## year temp_anomaly land_anomaly ocean_anomaly carbon_emissions
## 1 2015 0.92 1.39 0.75 NA
## 2 2016 0.98 1.50 0.79 NA
## 3 2017 0.90 1.38 0.72 NA
## 4 2018 0.82 1.18 0.68 NA
## 5 1751 NA NA NA 3
## 6 1752 NA NA NA 3
## 7 1753 NA NA NA 3
## 8 1754 NA NA NA 3
## 9 1755 NA NA NA 3
## 10 1756 NA NA NA 3
## 11 1757 NA NA NA 3
## 12 1758 NA NA NA 3
## 13 1759 NA NA NA 3
## 14 1760 NA NA NA 3
## 15 1761 NA NA NA 3
## 16 1762 NA NA NA 3
## 17 1763 NA NA NA 3
## 18 1764 NA NA NA 3
## 19 1765 NA NA NA 3
## 20 1766 NA NA NA 3
## 21 1767 NA NA NA 3
## 22 1768 NA NA NA 3
## 23 1769 NA NA NA 3
## 24 1770 NA NA NA 3
## 25 1771 NA NA NA 4
## 26 1772 NA NA NA 4
## 27 1773 NA NA NA 4
## 28 1774 NA NA NA 4
## 29 1775 NA NA NA 4
## 30 1776 NA NA NA 4
## 31 1777 NA NA NA 4
## 32 1778 NA NA NA 4
## 33 1779 NA NA NA 4
## 34 1780 NA NA NA 4
## 35 1781 NA NA NA 5
## 36 1782 NA NA NA 5
## 37 1783 NA NA NA 5
## 38 1784 NA NA NA 5
## 39 1785 NA NA NA 5
## 40 1786 NA NA NA 5
## 41 1787 NA NA NA 5
## 42 1788 NA NA NA 5
## 43 1789 NA NA NA 5
## 44 1790 NA NA NA 5
## 45 1791 NA NA NA 6
## 46 1792 NA NA NA 6
## 47 1793 NA NA NA 6
## 48 1794 NA NA NA 6
## 49 1795 NA NA NA 6
## 50 1796 NA NA NA 6
## 51 1797 NA NA NA 7
## 52 1798 NA NA NA 7
## 53 1799 NA NA NA 7
## 54 1800 NA NA NA 8
## 55 1801 NA NA NA 8
## 56 1802 NA NA NA 10
## 57 1803 NA NA NA 9
## 58 1804 NA NA NA 9
## 59 1805 NA NA NA 9
## 60 1806 NA NA NA 10
## 61 1807 NA NA NA 10
## 62 1808 NA NA NA 10
## 63 1809 NA NA NA 10
## 64 1810 NA NA NA 10
## 65 1811 NA NA NA 11
## 66 1812 NA NA NA 11
## 67 1813 NA NA NA 11
## 68 1814 NA NA NA 11
## 69 1815 NA NA NA 12
## 70 1816 NA NA NA 13
## 71 1817 NA NA NA 14
## 72 1818 NA NA NA 14
## 73 1819 NA NA NA 14
## 74 1820 NA NA NA 14
## 75 1821 NA NA NA 14
## 76 1822 NA NA NA 15
## 77 1823 NA NA NA 16
## 78 1824 NA NA NA 16
## 79 1825 NA NA NA 17
## 80 1826 NA NA NA 17
## 81 1827 NA NA NA 18
## 82 1828 NA NA NA 18
## 83 1829 NA NA NA 18
## 84 1830 NA NA NA 24
## 85 1831 NA NA NA 23
## 86 1832 NA NA NA 23
## 87 1833 NA NA NA 24
## 88 1834 NA NA NA 24
## 89 1835 NA NA NA 25
## 90 1836 NA NA NA 29
## 91 1837 NA NA NA 29
## 92 1838 NA NA NA 30
## 93 1839 NA NA NA 31
## 94 1840 NA NA NA 33
## 95 1841 NA NA NA 34
## 96 1842 NA NA NA 36
## 97 1843 NA NA NA 37
## 98 1844 NA NA NA 39
## 99 1845 NA NA NA 43
## 100 1846 NA NA NA 43
## 101 1847 NA NA NA 46
## 102 1848 NA NA NA 47
## 103 1849 NA NA NA 50
## 104 1850 NA NA NA 54
## 105 1851 NA NA NA 54
## 106 1852 NA NA NA 57
## 107 1853 NA NA NA 59
## 108 1854 NA NA NA 69
## 109 1855 NA NA NA 71
## 110 1856 NA NA NA 76
## 111 1857 NA NA NA 77
## 112 1858 NA NA NA 78
## 113 1859 NA NA NA 83
## 114 1860 NA NA NA 91
## 115 1861 NA NA NA 95
## 116 1862 NA NA NA 97
## 117 1863 NA NA NA 104
## 118 1864 NA NA NA 112
## 119 1865 NA NA NA 119
## 120 1866 NA NA NA 122
## 121 1867 NA NA NA 130
## 122 1868 NA NA NA 135
## 123 1869 NA NA NA 142
## 124 1870 NA NA NA 147
## 125 1871 NA NA NA 156
## 126 1872 NA NA NA 173
## 127 1873 NA NA NA 184
## 128 1874 NA NA NA 174
## 129 1875 NA NA NA 188
## 130 1876 NA NA NA 191
## 131 1877 NA NA NA 194
## 132 1878 NA NA NA 196
## 133 1879 NA NA NA 210# Nuevo DataFrame con la información limpia sin NA
new_temp_carbon <- temp_carbon %>%
filter(!is.na(temp_anomaly) &
!is.na(land_anomaly) &
!is.na(ocean_anomaly) &
!is.na(carbon_emissions))
new_temp_carbon## year temp_anomaly land_anomaly ocean_anomaly carbon_emissions
## 1 1880 -0.11 -0.48 -0.01 236
## 2 1881 -0.08 -0.40 0.01 243
## 3 1882 -0.10 -0.48 0.00 256
## 4 1883 -0.18 -0.66 -0.04 272
## 5 1884 -0.26 -0.69 -0.14 275
## 6 1885 -0.25 -0.56 -0.17 277
## 7 1886 -0.24 -0.51 -0.17 281
## 8 1887 -0.28 -0.47 -0.23 295
## 9 1888 -0.13 -0.41 -0.05 327
## 10 1889 -0.09 -0.31 -0.02 327
## 11 1890 -0.34 -0.51 -0.29 356
## 12 1891 -0.25 -0.52 -0.15 372
## 13 1892 -0.30 -0.49 -0.23 374
## 14 1893 -0.32 -0.54 -0.24 370
## 15 1894 -0.30 -0.38 -0.27 383
## 16 1895 -0.23 -0.39 -0.17 406
## 17 1896 -0.09 -0.33 0.00 419
## 18 1897 -0.09 -0.26 -0.03 440
## 19 1898 -0.26 -0.37 -0.22 465
## 20 1899 -0.15 -0.21 -0.13 507
## 21 1900 -0.07 -0.15 -0.05 534
## 22 1901 -0.15 -0.12 -0.16 552
## 23 1902 -0.25 -0.26 -0.24 566
## 24 1903 -0.37 -0.37 -0.37 617
## 25 1904 -0.45 -0.44 -0.46 624
## 26 1905 -0.27 -0.33 -0.25 663
## 27 1906 -0.21 -0.17 -0.22 707
## 28 1907 -0.38 -0.62 -0.29 784
## 29 1908 -0.43 -0.44 -0.43 750
## 30 1909 -0.44 -0.43 -0.45 785
## 31 1910 -0.40 -0.36 -0.42 819
## 32 1911 -0.44 -0.48 -0.43 836
## 33 1912 -0.34 -0.48 -0.28 879
## 34 1913 -0.32 -0.31 -0.32 943
## 35 1914 -0.14 -0.06 -0.17 850
## 36 1915 -0.09 -0.08 -0.10 838
## 37 1916 -0.32 -0.46 -0.26 901
## 38 1917 -0.40 -0.63 -0.29 955
## 39 1918 -0.30 -0.50 -0.21 936
## 40 1919 -0.25 -0.33 -0.21 806
## 41 1920 -0.23 -0.36 -0.18 932
## 42 1921 -0.16 -0.15 -0.17 803
## 43 1922 -0.25 -0.27 -0.24 845
## 44 1923 -0.25 -0.29 -0.24 970
## 45 1924 -0.24 -0.25 -0.24 963
## 46 1925 -0.18 -0.15 -0.19 975
## 47 1926 -0.07 -0.02 -0.10 983
## 48 1927 -0.17 -0.22 -0.16 1062
## 49 1928 -0.18 -0.15 -0.20 1065
## 50 1929 -0.33 -0.49 -0.27 1145
## 51 1930 -0.11 -0.13 -0.11 1053
## 52 1931 -0.06 -0.02 -0.08 940
## 53 1932 -0.13 -0.03 -0.17 847
## 54 1933 -0.26 -0.36 -0.22 893
## 55 1934 -0.11 -0.06 -0.13 973
## 56 1935 -0.16 -0.17 -0.15 1027
## 57 1936 -0.12 -0.12 -0.12 1130
## 58 1937 -0.01 -0.02 -0.01 1209
## 59 1938 -0.02 0.17 -0.10 1142
## 60 1939 0.01 0.10 -0.03 1192
## 61 1940 0.16 0.07 0.20 1299
## 62 1941 0.27 0.10 0.35 1334
## 63 1942 0.11 0.06 0.13 1342
## 64 1943 0.11 0.07 0.12 1391
## 65 1944 0.28 0.19 0.32 1383
## 66 1945 0.18 -0.07 0.30 1160
## 67 1946 -0.01 -0.01 -0.01 1238
## 68 1947 -0.04 0.04 -0.07 1392
## 69 1948 -0.05 0.05 -0.10 1469
## 70 1949 -0.07 -0.07 -0.08 1419
## 71 1950 -0.15 -0.32 -0.09 1630
## 72 1951 0.00 -0.06 0.02 1767
## 73 1952 0.05 -0.05 0.08 1795
## 74 1953 0.13 0.20 0.10 1841
## 75 1954 -0.10 -0.12 -0.09 1865
## 76 1955 -0.13 -0.11 -0.13 2042
## 77 1956 -0.18 -0.40 -0.10 2177
## 78 1957 0.07 -0.04 0.11 2270
## 79 1958 0.13 0.15 0.12 2330
## 80 1959 0.08 0.09 0.08 2454
## 81 1960 0.05 0.00 0.07 2569
## 82 1961 0.10 0.12 0.09 2580
## 83 1962 0.11 0.16 0.09 2686
## 84 1963 0.12 0.21 0.08 2833
## 85 1964 -0.14 -0.22 -0.11 2995
## 86 1965 -0.07 -0.12 -0.05 3130
## 87 1966 -0.01 -0.05 0.01 3288
## 88 1967 0.00 0.01 -0.01 3393
## 89 1968 -0.03 -0.11 0.01 3566
## 90 1969 0.11 -0.08 0.17 3780
## 91 1970 0.06 0.05 0.06 4053
## 92 1971 -0.07 -0.02 -0.09 4208
## 93 1972 0.04 -0.17 0.11 4376
## 94 1973 0.19 0.34 0.14 4614
## 95 1974 -0.06 -0.18 -0.02 4623
## 96 1975 0.01 0.14 -0.04 4596
## 97 1976 -0.07 -0.23 -0.01 4864
## 98 1977 0.21 0.25 0.19 5016
## 99 1978 0.12 0.10 0.12 5074
## 100 1979 0.23 0.17 0.24 5357
## 101 1980 0.28 0.31 0.26 5301
## 102 1981 0.32 0.52 0.25 5138
## 103 1982 0.19 0.11 0.22 5094
## 104 1983 0.36 0.50 0.30 5075
## 105 1984 0.17 0.06 0.20 5258
## 106 1985 0.16 0.10 0.18 5417
## 107 1986 0.23 0.30 0.21 5583
## 108 1987 0.38 0.45 0.36 5725
## 109 1988 0.39 0.58 0.32 5936
## 110 1989 0.29 0.36 0.27 6066
## 111 1990 0.45 0.66 0.37 6074
## 112 1991 0.39 0.53 0.34 6142
## 113 1992 0.24 0.24 0.23 6078
## 114 1993 0.28 0.35 0.25 6070
## 115 1994 0.34 0.48 0.29 6174
## 116 1995 0.47 0.78 0.35 6305
## 117 1996 0.32 0.35 0.31 6448
## 118 1997 0.51 0.64 0.46 6556
## 119 1998 0.65 0.98 0.52 6576
## 120 1999 0.44 0.78 0.31 6561
## 121 2000 0.42 0.62 0.34 6733
## 122 2001 0.57 0.84 0.46 6893
## 123 2002 0.62 0.95 0.49 6994
## 124 2003 0.63 0.94 0.52 7376
## 125 2004 0.58 0.81 0.49 7743
## 126 2005 0.66 1.08 0.50 8042
## 127 2006 0.63 0.97 0.50 8336
## 128 2007 0.61 1.12 0.43 8503
## 129 2008 0.54 0.89 0.41 8776
## 130 2009 0.64 0.90 0.54 8697
## 131 2010 0.72 1.14 0.56 9128
## 132 2011 0.57 0.91 0.44 9503
## 133 2012 0.63 0.95 0.51 9673
## 134 2013 0.67 1.03 0.53 9773
## 135 2014 0.73 1.01 0.63 9855Análisis: Se identificaron 133 registros en los cuales presenta en cualquier campo un NA, lo que evita un análisis consistente de la información.
Ahora se continúa el análisis con el data frame new_temp_carbon.
new_temp_carbon %>% arrange(desc(carbon_emissions)) %>% head(10)## year temp_anomaly land_anomaly ocean_anomaly carbon_emissions
## 1 2014 0.73 1.01 0.63 9855
## 2 2013 0.67 1.03 0.53 9773
## 3 2012 0.63 0.95 0.51 9673
## 4 2011 0.57 0.91 0.44 9503
## 5 2010 0.72 1.14 0.56 9128
## 6 2008 0.54 0.89 0.41 8776
## 7 2009 0.64 0.90 0.54 8697
## 8 2007 0.61 1.12 0.43 8503
## 9 2006 0.63 0.97 0.50 8336
## 10 2005 0.66 1.08 0.50 8042Análisis: en un listado de los 10 años en los que más se evidenció emisiones de carbono se encuentra en este siglo (XXI), siendo el año con más emisiones el 2.014 registrando un valor de promedio de 9855. Es decir hace 10 años.
new_temp_carbon %>% arrange(temp_anomaly) %>% head(10)## year temp_anomaly land_anomaly ocean_anomaly carbon_emissions
## 1 1904 -0.45 -0.44 -0.46 624
## 2 1909 -0.44 -0.43 -0.45 785
## 3 1911 -0.44 -0.48 -0.43 836
## 4 1908 -0.43 -0.44 -0.43 750
## 5 1910 -0.40 -0.36 -0.42 819
## 6 1917 -0.40 -0.63 -0.29 955
## 7 1907 -0.38 -0.62 -0.29 784
## 8 1903 -0.37 -0.37 -0.37 617
## 9 1890 -0.34 -0.51 -0.29 356
## 10 1912 -0.34 -0.48 -0.28 879Análisis: Iniciando el siglo XX se evidenció una baja en el promedio de la temperatura como anomalía, especialmente en el año 1.904 con un registro de -0.45°C.
new_temp_carbon %>% filter(temp_anomaly > 0) %>% arrange(year)## year temp_anomaly land_anomaly ocean_anomaly carbon_emissions
## 1 1939 0.01 0.10 -0.03 1192
## 2 1940 0.16 0.07 0.20 1299
## 3 1941 0.27 0.10 0.35 1334
## 4 1942 0.11 0.06 0.13 1342
## 5 1943 0.11 0.07 0.12 1391
## 6 1944 0.28 0.19 0.32 1383
## 7 1945 0.18 -0.07 0.30 1160
## 8 1952 0.05 -0.05 0.08 1795
## 9 1953 0.13 0.20 0.10 1841
## 10 1957 0.07 -0.04 0.11 2270
## 11 1958 0.13 0.15 0.12 2330
## 12 1959 0.08 0.09 0.08 2454
## 13 1960 0.05 0.00 0.07 2569
## 14 1961 0.10 0.12 0.09 2580
## 15 1962 0.11 0.16 0.09 2686
## 16 1963 0.12 0.21 0.08 2833
## 17 1969 0.11 -0.08 0.17 3780
## 18 1970 0.06 0.05 0.06 4053
## 19 1972 0.04 -0.17 0.11 4376
## 20 1973 0.19 0.34 0.14 4614
## 21 1975 0.01 0.14 -0.04 4596
## 22 1977 0.21 0.25 0.19 5016
## 23 1978 0.12 0.10 0.12 5074
## 24 1979 0.23 0.17 0.24 5357
## 25 1980 0.28 0.31 0.26 5301
## 26 1981 0.32 0.52 0.25 5138
## 27 1982 0.19 0.11 0.22 5094
## 28 1983 0.36 0.50 0.30 5075
## 29 1984 0.17 0.06 0.20 5258
## 30 1985 0.16 0.10 0.18 5417
## 31 1986 0.23 0.30 0.21 5583
## 32 1987 0.38 0.45 0.36 5725
## 33 1988 0.39 0.58 0.32 5936
## 34 1989 0.29 0.36 0.27 6066
## 35 1990 0.45 0.66 0.37 6074
## 36 1991 0.39 0.53 0.34 6142
## 37 1992 0.24 0.24 0.23 6078
## 38 1993 0.28 0.35 0.25 6070
## 39 1994 0.34 0.48 0.29 6174
## 40 1995 0.47 0.78 0.35 6305
## 41 1996 0.32 0.35 0.31 6448
## 42 1997 0.51 0.64 0.46 6556
## 43 1998 0.65 0.98 0.52 6576
## 44 1999 0.44 0.78 0.31 6561
## 45 2000 0.42 0.62 0.34 6733
## 46 2001 0.57 0.84 0.46 6893
## 47 2002 0.62 0.95 0.49 6994
## 48 2003 0.63 0.94 0.52 7376
## 49 2004 0.58 0.81 0.49 7743
## 50 2005 0.66 1.08 0.50 8042
## 51 2006 0.63 0.97 0.50 8336
## 52 2007 0.61 1.12 0.43 8503
## 53 2008 0.54 0.89 0.41 8776
## 54 2009 0.64 0.90 0.54 8697
## 55 2010 0.72 1.14 0.56 9128
## 56 2011 0.57 0.91 0.44 9503
## 57 2012 0.63 0.95 0.51 9673
## 58 2013 0.67 1.03 0.53 9773
## 59 2014 0.73 1.01 0.63 9855Análisis: se observa que de 135 registros solo 59 años registrados tienen temperaturas de anomalía promedio mayor a cero (0). Además que a partir del año 1.939 se evidencia esta alza en la anomalía de temperatura promedio anual.
new_temp_carbon %>% filter(land_anomaly < 0 & ocean_anomaly < 0) %>% arrange(year)## year temp_anomaly land_anomaly ocean_anomaly carbon_emissions
## 1 1880 -0.11 -0.48 -0.01 236
## 2 1883 -0.18 -0.66 -0.04 272
## 3 1884 -0.26 -0.69 -0.14 275
## 4 1885 -0.25 -0.56 -0.17 277
## 5 1886 -0.24 -0.51 -0.17 281
## 6 1887 -0.28 -0.47 -0.23 295
## 7 1888 -0.13 -0.41 -0.05 327
## 8 1889 -0.09 -0.31 -0.02 327
## 9 1890 -0.34 -0.51 -0.29 356
## 10 1891 -0.25 -0.52 -0.15 372
## 11 1892 -0.30 -0.49 -0.23 374
## 12 1893 -0.32 -0.54 -0.24 370
## 13 1894 -0.30 -0.38 -0.27 383
## 14 1895 -0.23 -0.39 -0.17 406
## 15 1897 -0.09 -0.26 -0.03 440
## 16 1898 -0.26 -0.37 -0.22 465
## 17 1899 -0.15 -0.21 -0.13 507
## 18 1900 -0.07 -0.15 -0.05 534
## 19 1901 -0.15 -0.12 -0.16 552
## 20 1902 -0.25 -0.26 -0.24 566
## 21 1903 -0.37 -0.37 -0.37 617
## 22 1904 -0.45 -0.44 -0.46 624
## 23 1905 -0.27 -0.33 -0.25 663
## 24 1906 -0.21 -0.17 -0.22 707
## 25 1907 -0.38 -0.62 -0.29 784
## 26 1908 -0.43 -0.44 -0.43 750
## 27 1909 -0.44 -0.43 -0.45 785
## 28 1910 -0.40 -0.36 -0.42 819
## 29 1911 -0.44 -0.48 -0.43 836
## 30 1912 -0.34 -0.48 -0.28 879
## 31 1913 -0.32 -0.31 -0.32 943
## 32 1914 -0.14 -0.06 -0.17 850
## 33 1915 -0.09 -0.08 -0.10 838
## 34 1916 -0.32 -0.46 -0.26 901
## 35 1917 -0.40 -0.63 -0.29 955
## 36 1918 -0.30 -0.50 -0.21 936
## 37 1919 -0.25 -0.33 -0.21 806
## 38 1920 -0.23 -0.36 -0.18 932
## 39 1921 -0.16 -0.15 -0.17 803
## 40 1922 -0.25 -0.27 -0.24 845
## 41 1923 -0.25 -0.29 -0.24 970
## 42 1924 -0.24 -0.25 -0.24 963
## 43 1925 -0.18 -0.15 -0.19 975
## 44 1926 -0.07 -0.02 -0.10 983
## 45 1927 -0.17 -0.22 -0.16 1062
## 46 1928 -0.18 -0.15 -0.20 1065
## 47 1929 -0.33 -0.49 -0.27 1145
## 48 1930 -0.11 -0.13 -0.11 1053
## 49 1931 -0.06 -0.02 -0.08 940
## 50 1932 -0.13 -0.03 -0.17 847
## 51 1933 -0.26 -0.36 -0.22 893
## 52 1934 -0.11 -0.06 -0.13 973
## 53 1935 -0.16 -0.17 -0.15 1027
## 54 1936 -0.12 -0.12 -0.12 1130
## 55 1937 -0.01 -0.02 -0.01 1209
## 56 1946 -0.01 -0.01 -0.01 1238
## 57 1949 -0.07 -0.07 -0.08 1419
## 58 1950 -0.15 -0.32 -0.09 1630
## 59 1954 -0.10 -0.12 -0.09 1865
## 60 1955 -0.13 -0.11 -0.13 2042
## 61 1956 -0.18 -0.40 -0.10 2177
## 62 1964 -0.14 -0.22 -0.11 2995
## 63 1965 -0.07 -0.12 -0.05 3130
## 64 1971 -0.07 -0.02 -0.09 4208
## 65 1974 -0.06 -0.18 -0.02 4623
## 66 1976 -0.07 -0.23 -0.01 4864Análisis: se observa que de 135 registros solo 66 años registrados tienen promedios de temperatura en Tierra y Océano menores a cero (0). Enfocándose en años del siglo XIX.