GoogleVis

Simple Example of a Bubble Chart

Try out using GoogleVis. The plot may need to be openned in Chrome, I have had problems seeing the result in Firefox.

library(googleVis)
# demo(googleVis)

data(Fruits)
Fruits

bubble1 <- gvisBubbleChart(Fruits, idvar="Fruit", xvar="Sales", yvar="Expenses")
plot(bubble1)
## Set color and size
bubble2 <- gvisBubbleChart(Fruits, idvar="Fruit", xvar="Sales", yvar="Expenses",
                          colorvar="Location", sizevar="Profit",
                          options=list(hAxis='{minValue:75, maxValue:125}'))
plot(bubble2)
## Use year to color the bubbles
bubble3 <- gvisBubbleChart(Fruits, idvar="Fruit", xvar="Sales", yvar="Expenses",
                           colorvar="Year", sizevar="Profit",
                           options=list(hAxis='{minValue:75, maxValue:125}'))
plot(bubble3)
## Gradient colour example
bubble4 <- gvisBubbleChart(Fruits, idvar="Fruit", xvar="Sales", yvar="Expenses",
                          sizevar="Profit",
                          options=list(hAxis='{minValue:75,  maxValue:125}',
                                  colorAxis="{colors: ['lightblue', 'blue']}"))
plot(bubble4)

The Motion Chart does not work locally now.

M1 <- gvisMotionChart(Fruits, idvar="Fruit", timevar="Year")
plot(M1)

Use the Gapmider Data to make the Bubble Chart using GoogleVis.

Look at the Gapmider World website to see what the x-axis, y-axis,

(x-axis = gdp, y-axis = lifeExp, color = continent, size = pop)

library(gapminder)
data("gapminder_unfiltered")
gapminder_unfiltered

Line <- gvisBubbleChart(gapminder_unfiltered, xvar="gdpPercap", yvar="lifeExp", idvar="continent")
plot(Line)

The Motion Chart does not work locally now.

M2 <- gvisMotionChart(gapminder_unfiltered, idvar="country", timevar="year")
plot(M2)