Data set used is Summer Olympic converted to json
View On bl.ocks.org
Chart Title: Number of Men To Women Sized by Participants
Channels:
The following R code was used to generate the first image
library(ggplot2)
library(scales)
setwd(getwd())
d <- read.csv("data.csv")
ggplot(d,aes(x=Men,y=Women))+
geom_point(aes(size=Participants))+
scale_x_continuous(breaks = pretty_breaks(n=15)) +
scale_y_continuous(breaks=pretty_breaks(n=15)) +
labs(color = "Year") + ggtitle("Number of Men To Women Area by Participants")
Chart Title: Number of Countries Hosted By Year Color By Host
Channels:
The discriminability for each of the channels is maintained as each bar is spaced evenily(Spacial Region). Color discriminability is also maintained as each color is unique. Height of each bar is unique thus providing the discriminability for magnitude.
The following R code was used to generate the second image.
library(ggplot2)
library(scales)
setwd(getwd())
d <- read.csv("data.csv")
ggplot(d,aes(x=factor(Year),y=Countries,fill=Country))+
geom_bar(stat="identity") +
labs(x = "Year") + ggtitle("Number of Countries Hosted By Year Color By Host")
Modified http://d3js.org/d3.v3.min.js to a secure url
https://d3js.org/d3.v3.min.js