Commit 0b6862cb authored by eboulanger's avatar eboulanger
Browse files

added data source

parent 692aaf52
......@@ -65,7 +65,7 @@ votes_1_plot <- ggplot(top_votes_1, aes(x = bird_breed, y = total, fill = bird_b
axis.text.x = element_text(angle = 90, hjust = 1),
legend.position = 'none')+ # STéphanie a change l'axe X
scale_y_continuous(expand = c(0,0))+
ggtitle('Best ranked bird in New Zealand')+
ggtitle("Best ranked bird in New Zealand \n Data source: Rtidytuesday")+
xlab('Bird Breed')+
ylab('Number of Votes')
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment