Minä, tämän teoksen tekijänoikeuksien haltija, julkaisen täten tämän teoksen seuraavalla lisenssillä:

Tämä tiedosto on lisensoitu Creative Commons Nimeä-JaaSamoin 4.0 Kansainvälinen -lisenssillä.

Voit:

• jakaa – kopioida, levittää ja esittää teosta
• remiksata – valmistaa muutettuja teoksia

Seuraavilla ehdoilla:

• nimeäminen – Sinun on mainittava lähde asianmukaisesti, tarjottava linkki lisenssiin sekä merkittävä, mikäli olet tehnyt muutoksia. Voit tehdä yllä olevan millä tahansa kohtuullisella tavalla, mutta et siten, että annat ymmärtää lisenssinantajan suosittelevan sinua tai teoksen käyttöäsi.
• jaa samoin – Jos muutat tai perustat tähän työhön, voit jakaa tuloksena syntyvää työtä vain tällä tai tämän kaltaisella lisenssillä.

https://creativecommons.org/licenses/by-sa/4.0CC BY-SA 4.0 Creative Commons Attribution-Share Alike 4.0 truetrue

<source lang=r>

### R source code ###

# years
censusData=c("1800", "1810", "1820", "1830", "1840", "1850", "1860", "1870", "1880", "1890", "1900", "1910", "1920", "1930", "1940", "1950", "1960", "1970", "1980", "1990", "2000", "2010", "2020")
 censusData=as.Date(censusData, format="%Y")

# three counties Wayne+Oakland+Macomb 
threeCountyArea=c( NA,  2227+0+580, 3574+330+898, 6781+4911+2413, 24173+23646+9716, 42756+31270+15530, 75547+38261+22843, 119068+40867+27616, 168444+41537+31627, 257144+41245+31813, 348793+44792+33244, 531591+49576+32606, 1177645+90050+38103, 1888946+211251+77146, 2015623+254068+107638,  2435235+396001+184961, 2666297+690259+405804, 2666751+907871+625309, 2337891+1011793+694600, 2111687+1083592+717400, 2061162+1194156+788149, 1820584+1202362+840978, 1793561+1274395+881217)
detroit        =c( NA, NA, 1422, 2222, 9102, 21019, 45619, 79577, 116340, 205876, 285704, 465766, 993678, 1568662, 1623452, 1849568, 1670144, 1511482, 1203339, 1027974, 951270, 713777, 639111)
blacksInDetroit=c( NA, NA,   67,  126,  193,   587,  1403,  2235,   2821,   3431,   4111,   5741,  40838,  120066,  149119,  300506,  482223,  660428,  758939,  777916, 775772, 590226, 496534)

farben=c("slategrey", "#126ca8", "black")
  
png(filename="Vaestonkehitys_Detroitissa_1800-2020.png", width=1920, height=1080, pointsize=12, bg="whitesmoke")

plot(censusData, threeCountyArea, type="b", col=farben[1], lwd=2, ylim=c(0,4500000), yaxt="n", xlab="", ylab="")
lines(censusData, detroit, type="b", col=farben[2], lwd=2)
lines(censusData, blacksInDetroit, type="b", col=farben[3], lwd=2)

title(main="Väestönkehitys Detroitissa 1800–2020", cex.main=1.5, xlab="Vuosi", ylab="Asukkaita", col.lab="black")

yticks=axTicks(side=2)
axis(side=2, at=yticks, labels=c("0", "1.000.000", "2.000.000", "3.000.000", "4.000.000"), col="black")
grid(NA, NULL, lwd=1, col="grey")

legend(x="topleft", inset=0.05, legend=c("Wayne, Oakland ja Macomb\n(Detroit Tri-County Area)", "Detroit yhteensä", "Mustaihoiset Detroitissa"), lwd=4, col=farben, bg="whitesmoke")

# 1913 start of assembly line
lines(x=c(-20321, -20321), y=c(0, 1800000), col="red2", lwd=2)
text(x=-20321, y=1800000, pos=2, label="Fordin kokoonpanolinjan tuotannon alku\n1913", col="red2", cex=1.3)
# 1926 period of annexations ends
lines(x=c(-15706, -15706), y=c(0, 2800000), col="red2", lwd=2)
text(x=-15706, y=2800000, pos=2, label="Alueiden liittäminen Detroitiin loppuu\n1926", col="red2", cex=1.3)
# 1929 Great Depression
lines(x=c(-14660, -14660), y=c(0, 3500000), col="red2", lwd=2)
text(x=-14660, y=3500000, pos=2, label="Suuren laman alku\n1929", col="red2", cex=1.3)
# 1967 riot 
lines(x=c(-913, -913), y=c(0, 2200000), col="red2", lwd=2)
text(x=-913, y=2200000, pos=2, label="Kapina\n1967", col="red2", cex=1.3)
# 1974 oil crisis
lines(x=c(1611, 1611), y=c(0, 4500000), col="red2", lwd=2)
text(x=1611, y=3200000, pos=4, label="Öljykriisi\n1974", col="red2", cex=1.3)

dev.off()

</source lang=r>

Tämä tiedosto on johdettu tiedostosta: Population of Detroit Michigan.png