QuestionQuestion

Data Visualisation
Interactive Storytelling
Assignment Instructions
Data visualisation is a great way to support fact-based storytelling. For Assignment 3, your goal will be to pick a current news story (within the previous 12 months) and create an interactive data visualisation to support that story. The choice is yours, but you will need to source the data. That will be the tricky part.
Open or Public Data
Assignment 3 must be based on open or public data. Ensure you include the right attribution.
Visualisation
• Work through Andy Kirk’s Visual Design Process described in Module 1 in order to produce an insightful visualisation of the story and data you selected.
• Your design must include interactive elements.
• You are restricted to a one screen visualisation. This may include multiple plots or a dashboard layout.

Solution PreviewSolution Preview

These solutions may offer step-by-step problem-solving explanations or good writing examples that include modern styles of formatting and construction of bibliographies out of text citations and references. Students may use these solutions for personal skill-building and practice. Unethical use is strictly forbidden.

title: "Rain in Australia"
output:
flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(rjson)
library(lubridate)
library(dplyr)
dat <- read.csv("weatherAUS.csv")
dat$Location <- as.character(dat$Location)
df.selected <- dat %>% select(Location, RainToday, MinTemp, MaxTemp, Rainfall,
                      Evaporation, Sunshine, WindGustSpeed,
                      WindSpeed9am, WindDir3pm, Humidity9am, Humidity3pm,
                      Pressure9am, Pressure3pm, Cloud9am, Cloud3pm, Temp9am,
                      Temp3pm, RISK_MM)

d_year <- dat
d_year <- d_year %>% mutate(Date = as.Date(as.character(Date), format = "%Y-%m-%d"))
d_year <- d_year %>% mutate(Year = year(Date))
d_year$Year <- as.Date(as.character(d_year$Year), format = "%Y")

d_names <- c("Average.MinTemp", "Average.MaxTemp", "Average.Rainfall",
             "Average.Evaporation", "Average.Sunshine",
             "Average.WindGustSpeed", "Average.WindSpeed9am",
             "Average.WindSpeed3pm", "Average.Humidity9am",
             "Average.Humidity3pm", "Average.Pressure9am...

By purchasing this solution you'll be able to access the following files:
Solution.Rmd and Solution.docx.

50% discount

Hours
Minutes
Seconds
$50.00 $25.00
for this solution

or FREE if you
register a new account!

PayPal, G Pay, ApplePay, Amazon Pay, and all major credit cards accepted.

Find A Tutor

View available Statistics-R Programming Tutors

Get College Homework Help.

Are you sure you don't want to upload any files?

Fast tutor response requires as much info as possible.

Decision:
Upload a file
Continue without uploading

SUBMIT YOUR HOMEWORK
We couldn't find that subject.
Please select the best match from the list below.

We'll send you an email right away. If it's not in your inbox, check your spam folder.

  • 1
  • 2
  • 3
Live Chats