Infographiken 

Kombinieren Sie Visualisierungen mit derselben oder ähnlichen Vorlagen, um Infographiken mit einheitlichem Design zu erstellen.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[1]:=

X data = {{{-10000}, 0.001}, {{-8000}, 0.005}, {{-6500}, 0.005}, {{-5000}, 0.005}, {{-4000}, 0.007}, {{-3000}, 0.014}, {{-2000}, 0.027}, {{-1000}, 0.05}, {{-500}, 0.101}, {{-400}, 0.162}, {{-200}, 0.15}, {{1}, 0.17}, {{200}, 0.19}, {{400}, 0.19}, {{500}, 0.19}, {{600}, 0.2}, {{700}, 0.207}, {{800}, 0.22}, {{900}, 0.226}, {{1000}, 0.254}, {{1100}, 0.301}, {{1200}, 0.36}, {{1250}, 0.4}, {{1300}, 0.36}, {{1340}, 0.443}, {{1400}, 0.35}, {{1500}, 0.425}, {{1600}, 0.545}, {{1650}, 0.47}, {{1700}, 0.6}, {{1750}, 0.629}, {{1800}, 0.959}, {{1801}, 0.963}, {{1802}, 0.966}, {{1803}, 0.97}, {{1804}, 0.973}, {{1805}, 0.976}, {{1806}, 0.98}, {{1807}, 0.983}, {{1808}, 0.987}, {{1809}, 0.99}, {{1810}, 0.994}, {{1811}, 0.997}, {{1812}, 1.001}, {{1813}, 1.004}, {{1814}, 1.008}, {{1815}, 1.012}, {{1816}, 1.015}, {{1817}, 1.02}, {{1818}, 1.024}, {{1819}, 1.028}, {{1820}, 1.033}, {{1821}, 1.04}, {{1822}, 1.048}, {{1823}, 1.056}, {{1824}, 1.064}, {{1825}, 1.072}, {{1826}, 1.08}, {{1827}, 1.087}, {{1828}, 1.095}, {{1829}, 1.104}, {{1830}, 1.113}, {{1831}, 1.118}, {{1832}, 1.123}, {{1833}, 1.128}, {{1834}, 1.133}, {{1835}, 1.138}, {{1836}, 1.144}, {{1837}, 1.149}, {{1838}, 1.155}, {{1839}, 1.161}, {{1840}, 1.167}, {{1841}, 1.172}, {{1842}, 1.178}, {{1843}, 1.183}, {{1844}, 1.189}, {{1845}, 1.194}, {{1846}, 1.2}, {{1847}, 1.205}, {{1848}, 1.211}, {{1849}, 1.216}, {{1850}, 1.222}, {{1851}, 1.223}, {{1852}, 1.224}, {{1853}, 1.227}, {{1854}, 1.23}, {{1855}, 1.233}, {{1856}, 1.235}, {{1857}, 1.239}, {{1858}, 1.242}, {{1859}, 1.246}, {{1860}, 1.25}, {{1861}, 1.254}, {{1862}, 1.258}, {{1863}, 1.263}, {{1864}, 1.267}, {{1865}, 1.271}, {{1866}, 1.275}, {{1867}, 1.279}, {{1868}, 1.284}, {{1869}, 1.29}, {{1870}, 1.295}, {{1871}, 1.304}, {{1872}, 1.313}, {{1873}, 1.322}, {{1874}, 1.332}, {{1875}, 1.343}, {{1876}, 1.352}, {{1877}, 1.363}, {{1878}, 1.373}, {{1879}, 1.382}, {{1880}, 1.392}, {{1881}, 1.403}, {{1882}, 1.414}, {{1883}, 1.424}, {{1884}, 1.435}, {{1885}, 1.446}, {{1886}, 1.457}, {{1887}, 1.467}, {{1888}, 1.478}, {{1889}, 1.489}, {{1890}, 1.5}, {{1891}, 1.511}, {{1892}, 1.523}, {{1893}, 1.534}, {{1894}, 1.547}, {{1895}, 1.559}, {{1896}, 1.57}, {{1897}, 1.583}, {{1898}, 1.596}, {{1899}, 1.608}, {{1900}, 1.622}, {{1901}, 1.634}, {{1902}, 1.648}, {{1903}, 1.659}, {{1904}, 1.67}, {{1905}, 1.681}, {{1906}, 1.692}, {{1907}, 1.703}, {{1908}, 1.715}, {{1909}, 1.727}, {{1910}, 1.74}, {{1911}, 1.754}, {{1912}, 1.768}, {{1913}, 1.782}, {{1914}, 1.795}, {{1915}, 1.807}, {{1916}, 1.819}, {{1917}, 1.831}, {{1918}, 1.839}, {{1919}, 1.846}, {{1920}, 1.863}, {{1921}, 1.878}, {{1922}, 1.896}, {{1923}, 1.913}, {{1924}, 1.931}, {{1925}, 1.95}, {{1926}, 1.965}, {{1927}, 1.982}, {{1928}, 2.002}, {{1929}, 2.021}, {{1930}, 2.042}, {{1931}, 2.063}, {{1932}, 2.085}, {{1933}, 2.107}, {{1934}, 2.127}, {{1935}, 2.148}, {{1936}, 2.17}, {{1937}, 2.192}, {{1938}, 2.214}, {{1939}, 2.236}, {{1940}, 2.255}, {{1941}, 2.273}, {{1942}, 2.293}, {{1943}, 2.311}, {{1944}, 2.33}, {{1945}, 2.353}, {{1946}, 2.378}, {{1947}, 2.41}, {{1948}, 2.441}, {{1949}, 2.473}, {{1950}, 2.517}, {{1951}, 2.56}, {{1952}, 2.605}, {{1953}, 2.652}, {{1954}, 2.702}, {{1955}, 2.757}, {{1956}, 2.803}, {{1957}, 2.858}, {{1958}, 2.914}, {{1959}, 2.973}, {{1960}, 3.033}, {{1961}, 3.094}, {{1962}, 3.161}, {{1963}, 3.224}, {{1964}, 3.289}, {{1965}, 3.354}, {{1966}, 3.417}, {{1967}, 3.482}, {{1968}, 3.548}, {{1969}, 3.615}, {{1970}, 3.696}, {{1971}, 3.772}, {{1972}, 3.848}, {{1973}, 3.925}, {{1974}, 4.001}, {{1975}, 4.076}, {{1976}, 4.151}, {{1977}, 4.226}, {{1978}, 4.3}, {{1979}, 4.376}, {{1980}, 4.453}, {{1981}, 4.532}, {{1982}, 4.612}, {{1983}, 4.694}, {{1984}, 4.778}, {{1985}, 4.863}, {{1986}, 4.951}, {{1987}, 5.039}, {{1988}, 5.129}, {{1989}, 5.218}, {{1990}, 5.306}, {{1991}, 5.393}, {{1992}, 5.478}, {{1993}, 5.562}, {{1994}, 5.644}, {{1995}, 5.726}, {{1996}, 5.807}, {{1997}, 5.887}, {{1998}, 5.966}, {{1999}, 6.045}, {{2000}, 6.123}, {{2001}, 6.2}, {{2002}, 6.277}, {{2003}, 6.353}, {{2004}, 6.43}, {{2005}, 6.507}, {{2006}, 6.584}, {{2007}, 6.662}, {{2008}, 6.74}, {{2009}, 6.818}, {{2010}, 6.896}, {{2011}, 6.974}, {{2012}, 7.052}, {{2013}, 7.13}}; dashboard[main_, sub_] := Framed[Style[Grid[{ {main, Column[{ Style["10000 BC - 2013 AD", 18], sub[[1]], Spacer[{1, 30}], Style["2013 AD", 18], sub[[2]], sub[[3]] }] }}], FontFamily -> "Arial", White], Background -> GrayLevel[.7], FrameMargins -> 20]; title = Text[ Style["Human\nPopulation\nHistory", 36, White, LineSpacing -> {0, 36}, TextAlignment -> Left], Scaled[{.1, .7}], {-1, 0}];

In[2]:=

X population = DateListPlot[data[[20 ;; 245]], AspectRatio -> 1, PlotTheme -> "Marketing", Epilog -> title, Filling -> Axis, FrameLabel -> {"year", "billions"}, ImageSize -> 330, ImageMargins -> {{0, 20}, {0, 0}}]; alive = PieChart[{110 - 7.13, 7.13}, PlotTheme -> "Business", ChartLegends -> {"deceased", "living"}, PlotRange -> 1, ImageSize -> 80]; age = PieChart[{7.13*.2678, 7.13*.622, 7.13*.1102}, PlotTheme -> "Business", ChartLegends -> {"child", "adult", "elderly"}, PlotRange -> 1, ImageSize -> 80]; gender = PieChart[{7.13*.5043, 7.13*.4957}, PlotTheme -> "Business", ChartLegends -> {"male", "female"}, PlotRange -> 1, ImageSize -> 80]; dashboard[population, {alive, age, gender}]

Out[2]=