Överlappande täthetskurvor

I den här övningen lär du dig att skapa täthetskurvor och lägga dem ovanpå varandra för att jämföra fördelningen av kritikerpoäng för tre videospelsförlag: Activision, Electronic Arts och Nintendo.

Skapa en täthetskurva för Critic_Score genom att lagra resultatet av density()-kommandot och sedan skicka x- och y-koordinaterna till add_lines():

d <- density(vgsales2016$Critic_Score, na.rm = TRUE)
plot_ly() %>%
  add_lines(x = ~d$x, y = ~d$y, fill = 'tozeroy') %>%
  layout(xaxis = list(title = 'Critic score'),
         yaxis = list(title = 'Density'))

Lägg märke till hur enkelt det är att skapa nya diagramtyper med bekant kod! Argumentet fill = 'tozeroy' fyller ytan under kurvan.

Dataramarna activision, ea och nintendo är inlästa, liksom plotly.

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

Interaktiv datavisualisering med plotly i R

Visa kurs

Övningsinstruktioner

Beräkna täthetskurvor för Critic_Score för Activision, EA och Nintendo, och lagra dem i objekten d.a, d.e respektive d.n.
Skapa överlappande täthetskurvor för Critic_Score för activision, ea och nintendo (i den ordningen).

Interaktiv övning med praktiskt arbete

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

# Compute density curves
d.a <- density(___, na.rm = TRUE)
d.e <- density(___, na.rm = TRUE)
d.n <- density(___, na.rm = TRUE)

# Overlay density plots
plot_ly() %>%
  add_lines(x = ___, y = ___, name = "Activision", fill = 'tozeroy') %>%
  add_lines(x = ___, y = ___, name = "Electronic Arts", fill = 'tozeroy') %>%
  add_lines(x = ___, y = ___, name = "Nintendo", fill = 'tozeroy') %>%
  layout(xaxis = list(title = 'Critic Score'),
         yaxis = list(title = 'Density'))

Redigera och kör kod