Ett snyggt aktiekursdiagram (2)

I den här övningen lägger du till en förklaring i diagrammet du nyss skapade. Förklaringen ska innehålla företagsnamnen samt datum och värden för de senaste utdelningarna.

Fyll i den förskrivna koden med följande variabler, som innehåller utdelningsvärden och datum för båda företagen:

citi_div_value
citi_div_date
micro_div_value
micro_div_date

Kom ihåg att standardfärgen för en plottad linje är svart, och att värdena för legend, col och lty i legend() ska sättas till vektorer med samma längd som antalet tidsserier i diagrammet.

Om du inte kan se hela förklaringen kan du försöka visa diagrammet i helskärm efter att du plottat det. Nu gör vi diagrammet ännu snyggare!

Den här övningen är en del av kursen

Visualisering av tidsseriedata i R

Visa kurs

Övningsinstruktioner

Skapa samma diagram som i föregående övning (det är redan gjort åt dig)
Använd de föradderade variablerna ovan för att skapa strängarna micro och citi, som ska användas i förklaringen
"Microsoft div of $0.39 on 15 Nov. 2016"
"Citigroup div of $0.16 on 13 Nov. 2016"
Skapa förklaringen i det nedre högra hörnet av diagrammet med hjälp av strängarna micro och citi som text, lämpliga färger för etiketterna och vanliga linjer

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

# 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(___, ___))

Redigera och kör kod