R googleVis Line Motion Charts with Modified Options

Using googleVis via R provides lots of options to create nice google visualizations. I was trying to create some charts while exploring the Annual Nominal Fish Catches Data on Kaggle. I wanted to create a line motion chart and exclude the default bubble chart. So I played with the options to get the desired result. The following is a quick explanation of how to do that.

Fish Catches Dataset

The dataset provides the annual TLW (tonnes live weight) catches of fish and shellfish in the Northeast Atlantic region. The original data, after cleaning, is in a wide format as follows:

##   Species   Area Units Country 2014 2013 2012 2011 2010 2009 2008 2007
## 1     ANF     27   TLW      BE  993 1633 1716 1279 1031  853  964 1363
## 2     ANF   27.4   TLW      BE  217  137  133  116  131  140  185  181
## 3     ANF 27.4.A   TLW      BE    0    0    0    0    0    0    0    0
##   2006
## 1 1193
## 2  141
## 3    0

Since gvisMotionChart() requires a time variable, I melted the dataframe to convert it to a long format as follows:

##   Species   Area Units Code Year Quantity  Country
## 1     ANF     27   TLW   BE 2014      993  Belgium
## 2     ANF   27.4   TLW   BE 2014      217  Belgium
## 3     ANF 27.4.A   TLW   BE 2014        0  Belgium

Then I wanted to plot the annual fish catch per country and also per species, so I calculated the annual sums and got the following:

Annual Fish Catch per Country

## Source: local data frame [216 x 3]
## Groups: Year [9]
## 
##     Year        Country     TLW
##    (dbl)          (chr)   (int)
## 1   2006        Belgium   67564
## 2   2006        Denmark 2680872
## 3   2006        Estonia  296160
## 4   2006  Faroe Islands 2597422
## 5   2006        Finland  451731
## 6   2006         France 1310819
## 7   2006        Germany  884707
## 8   2006      Greenland  150961
## 9   2006        Iceland 5353078
## 10  2006        Ireland  698563
## ..   ...            ...     ...

Annual Fish Catch per Species

## Source: local data frame [8,181 x 3]
## Groups: Year [9]
## 
##     Year Species   TLW
##    (dbl)   (chr) (int)
## 1   2006     AAS     0
## 2   2006     ABK     0
## 3   2006     ABX    20
## 4   2006     ABZ     0
## 5   2006     ACC     8
## 6   2006     ACH     0
## 7   2006     AES     0
## 8   2006     AGD     0
## 9   2006     AGK    15
## 10  2006     AGN     0
## ..   ...     ...   ...

googleVis Line Motion Chart Options

The default gvisMotionChart requires a dataframe with at least four columns: subject name (idvar), time (timevar) and two columns of numeric values. This is mainly for the bubble chart, which does not work properly with three columns. But since the line/bar charts can be used with 3 columns, I could use it with my summarized data. But I wanted, first to set the default view to line chart., and second to ** hide the tabs of the other charts**.

To achieve these two features, I played with the options of gvisMotionChart as follows:

  • To view the the line chart by default, I set “iconType”:“LINE” in State; which is passed to the function.

  • To hide the other charts, I set showChartButtons=F

I also wanted to have unique colors for the lines in the initial view, so I set “colorOption”:"_UNIQUE_COLOR" .

And that’s how I got a line motion chart.

#set state options to pass to gvisMotionChart
State<-'
{"yLambda":1,"showTrails":false,"xAxisOption":"_TIME",
"xZoomedDataMin":1136073600000,
"orderedByY":false,"playDuration":15000,
"nonSelectedAlpha":0.4,"xZoomedIn":false,"xLambda":1,
"colorOption":"_UNIQUE_COLOR",
"iconKeySettings":[],
"xZoomedDataMax":1388534400000,
"dimensions":{"iconDimensions":["dim0"]},
"sizeOption":"_UNISIZE","yZoomedIn":false,
"uniColorForNonSelected":false,"time":"2014",
"yZoomedDataMax":10000000,
"iconType":"LINE",
"duration":{"timeUnit":"Y","multiplier":1},
"yAxisOption":"2","yZoomedDataMin":0,"orderedByX":false}
'

#create the country chart
CountryChart = gvisMotionChart(datm.country, "Country", "Year",
                    options = list(showChartButtons=F, state=State))
#create the species chart
SpeciesChart= gvisMotionChart(datm.species, "Species", "Year",
                    options = list(showChartButtons=F, state=State))
#Plot the 2 charts 
BothCharts<-gvisMerge(CountryChart,SpeciesChart)
#remove caption
BothCharts$html$caption=""
plot(BothCharts)

The data and the full code can be found Here