correct area in bubble plot; fixes #7

.Rbuildignore

@@ -2,5 +2,6 @@
 ^\.Rproj\.user$
 ^data-raw$
 ^README\.Rmd$
+^README\.html$
 ^README_files/*
 ^cran-comments\.md$

R/country_colors.R

@@ -42,20 +42,23 @@
 #'   scale_colour_manual(values = country_colors) +
 #'   guides(color = guide_legend(reverse = TRUE))
 #' 
+#' # spaghetti plot for lots of countries
 #' ggplot(subset(gapminder, continent != "Oceania"),
 #'        aes(x = year, y = lifeExp, group = country, color = country)) +
 #'   geom_line(lwd = 1, show_guide = FALSE) + facet_wrap(~ continent) +
 #'   scale_color_manual(values = country_colors) +
 #'   theme_bw() + theme(strip.text = element_text(size = rel(1.1)))
 #'   
-#' ggplot(subset(gapminder, year == 2007 & continent != "Oceania"),
-#'        aes(x = gdpPercap, y = lifeExp)) +
-#'        scale_x_log10(limits = c(150, 115000)) + ylim(c(16, 96)) +
-#'        geom_point(aes(size = sqrt(pop/pi)), pch = 21, color = 'grey20',
-#'        show_guide = FALSE) + scale_size_continuous(range=c(1,40)) +
-#'        facet_wrap(~ continent) + coord_fixed(ratio = 1/43) +
-#'        aes(fill = country) + scale_fill_manual(values = country_colors) +
-#'        theme_bw() + theme(strip.text = element_text(size = rel(1.1)))
+#' # bubble plot for lots of countries
+#' gap_bit <- subset(gapminder, year == 2007 & continent != "Oceania")
+#' gap_bit <- gap_bit[with(gap_bit, order(continent, -1 * pop)), ]
+#' ggplot(gap_bit, aes(x = gdpPercap, y = lifeExp, size = pop)) +
+#'   scale_x_log10(limits = c(150, 115000)) + ylim(c(16, 96)) +
+#'   geom_point(pch = 21, color = 'grey20', show_guide = FALSE) +
+#'   scale_size_area(max_size = 40) +
+#'   facet_wrap(~ continent) + coord_fixed(ratio = 1/43) +
+#'   aes(fill = country) + scale_fill_manual(values = country_colors) +
+#'   theme_bw() + theme(strip.text = element_text(size = rel(1.1)))
 #' }
 #'
 "country_colors"

README.Rmd

@@ -10,7 +10,7 @@ gapminder
 =========
 
 ```{r setup, include = FALSE, cache = FALSE}
-knitr::opts_chunk$set(collapse = TRUE)
+knitr::opts_chunk$set(collapse = TRUE, dpi = 300)
 ```
 
 Excerpt from the [Gapminder](http://www.gapminder.org/data/) data. This R data package provides the data as a data.frame and in plain text delimited form. Package includes premade color schemes for the countries and continents.
@@ -110,18 +110,18 @@ ggplot(subset(gapminder, continent != "Oceania"),
   geom_line(lwd = 1, show_guide = FALSE) + facet_wrap(~ continent) +
   scale_color_manual(values = country_colors) +
   theme_bw() + theme(strip.text = element_text(size = rel(1.1)))
-  
-ggplot(subset(gapminder, year == 2007 & continent != "Oceania"),
-       aes(x = gdpPercap, y = lifeExp)) +
-       scale_x_log10(limits = c(150, 115000)) + ylim(c(16, 96)) +
-       geom_point(aes(size = sqrt(pop/pi)), pch = 21, color = 'grey20',
-       show_guide = FALSE) + scale_size_continuous(range=c(1,40)) +
-       facet_wrap(~ continent) + coord_fixed(ratio = 1/43) +
-       aes(fill = country) + scale_fill_manual(values = country_colors) +
-       theme_bw() + theme(strip.text = element_text(size = rel(1.1)))
-```
 
+gap_bit <- subset(gapminder, year == 2007 & continent != "Oceania")
+gap_bit <- gap_bit[with(gap_bit, order(continent, -1 * pop)), ]
 
+ggplot(gap_bit, aes(x = gdpPercap, y = lifeExp, size = pop)) +
+  scale_x_log10(limits = c(150, 115000)) + ylim(c(16, 96)) +
+  geom_point(pch = 21, color = 'grey20', show_guide = FALSE) +
+  scale_size_area(max_size = 40) +
+  facet_wrap(~ continent) + coord_fixed(ratio = 1/43) +
+  aes(fill = country) + scale_fill_manual(values = country_colors) +
+  theme_bw() + theme(strip.text = element_text(size = rel(1.1)))
+```
 
 ### Description of the dataset
 

README.md

@@ -128,15 +128,17 @@ ggplot(subset(gapminder, continent != "Oceania"),
 ![](README_files/figure-markdown_github/demo-country-colors-ggplot2-2.png)
 
 ``` r
-
-ggplot(subset(gapminder, year == 2007 & continent != "Oceania"),
-       aes(x = gdpPercap, y = lifeExp)) +
-       scale_x_log10(limits = c(150, 115000)) + ylim(c(16, 96)) +
-       geom_point(aes(size = sqrt(pop/pi)), pch = 21, color = 'grey20',
-       show_guide = FALSE) + scale_size_continuous(range=c(1,40)) +
-       facet_wrap(~ continent) + coord_fixed(ratio = 1/43) +
-       aes(fill = country) + scale_fill_manual(values = country_colors) +
-       theme_bw() + theme(strip.text = element_text(size = rel(1.1)))
+
+gap_bit <- subset(gapminder, year == 2007 & continent != "Oceania")
+gap_bit <- gap_bit[with(gap_bit, order(continent, -1 * pop)), ]
+
+ggplot(gap_bit, aes(x = gdpPercap, y = lifeExp, size = pop)) +
+  scale_x_log10(limits = c(150, 115000)) + ylim(c(16, 96)) +
+  geom_point(pch = 21, color = 'grey20', show_guide = FALSE) +
+  scale_size_area(max_size = 40) +
+  facet_wrap(~ continent) + coord_fixed(ratio = 1/43) +
+  aes(fill = country) + scale_fill_manual(values = country_colors) +
+  theme_bw() + theme(strip.text = element_text(size = rel(1.1)))
 ```
 
 ![](README_files/figure-markdown_github/demo-country-colors-ggplot2-3.png)

man/country_colors.Rd

@@ -49,20 +49,23 @@ ggplot(h_dat, aes(x = year, y = lifeExp)) +
   scale_colour_manual(values = country_colors) +
   guides(color = guide_legend(reverse = TRUE))
 
+# spaghetti plot for lots of countries
 ggplot(subset(gapminder, continent != "Oceania"),
        aes(x = year, y = lifeExp, group = country, color = country)) +
   geom_line(lwd = 1, show_guide = FALSE) + facet_wrap(~ continent) +
   scale_color_manual(values = country_colors) +
   theme_bw() + theme(strip.text = element_text(size = rel(1.1)))
 
-ggplot(subset(gapminder, year == 2007 & continent != "Oceania"),
-       aes(x = gdpPercap, y = lifeExp)) +
-       scale_x_log10(limits = c(150, 115000)) + ylim(c(16, 96)) +
-       geom_point(aes(size = sqrt(pop/pi)), pch = 21, color = 'grey20',
-       show_guide = FALSE) + scale_size_continuous(range=c(1,40)) +
-       facet_wrap(~ continent) + coord_fixed(ratio = 1/43) +
-       aes(fill = country) + scale_fill_manual(values = country_colors) +
-       theme_bw() + theme(strip.text = element_text(size = rel(1.1)))
+# bubble plot for lots of countries
+gap_bit <- subset(gapminder, year == 2007 & continent != "Oceania")
+gap_bit <- gap_bit[with(gap_bit, order(continent, -1 * pop)), ]
+ggplot(gap_bit, aes(x = gdpPercap, y = lifeExp, size = pop)) +
+  scale_x_log10(limits = c(150, 115000)) + ylim(c(16, 96)) +
+  geom_point(pch = 21, color = 'grey20', show_guide = FALSE) +
+  scale_size_area(max_size = 40) +
+  facet_wrap(~ continent) + coord_fixed(ratio = 1/43) +
+  aes(fill = country) + scale_fill_manual(values = country_colors) +
+  theme_bw() + theme(strip.text = element_text(size = rel(1.1)))
 }
 }
 \seealso{