Vymazlený burzovní graf (2)

V tomto cvičení přidáš do grafu, který jsi právě vytvořil/a, legendu obsahující názvy společností a data a hodnoty posledních dividend.

Doplň předpřipravený kód pomocí následujících proměnných, které obsahují hodnoty a data dividend obou společností:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Měj na paměti, že výchozí barva vykreslené čáry je černá a že hodnoty parametrů legend, col a lty ve funkci legend() musí být vektory stejné délky, jako je počet časových řad zobrazených v grafu.

Pokud není legenda celá vidět, zkus po vykreslení zvětšit graf na celou obrazovku. Pojďme náš graf ještě trochu vylepšit!

Toto cvičení je součástí kurzu

Visualizing Time Series Data in R

Zobrazit kurz

Pokyny k cvičení

Vytvoř stejný graf jako v předchozím cvičení (tento krok je již hotový)
Pomocí předem načtených proměnných vytvoř řetězce micro a citi, které použiješ v legendě
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
Umísti legendu do pravého dolního rohu grafu – použij řetězce micro a citi jako popisky, odpovídající barvy pro jednotlivé položky a plné čáry

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# Same plot as the previous exercise
plot(data$microsoft, main = "Dividend date and amount")
lines(data$citigroup, col = "orange", lwd = 2)
axis(side = 4, at = pretty(data$citigroup), col = "orange")

# Create the two legend strings
micro <- paste0("Microsoft div. of ", ___," on ", ___)
citi <- paste0("Citigroup div. of ", ___," on ", ___)

# Create the legend in the bottom right corner
legend(x = ___, legend = c(___, ___), col = c(___, ___), lty = c(___, ___))

Upravit a spustit kód