As numeric in R Discrete to Continuous
Discrete-Continuous
Introduction
In this chapter, we'll use the tidyverse package and the following data sets.
# Libraries library(tidyverse) # Data utah_languages <- read_rds("data/us-languages/non-english-spanish_languages_utah.rds") sprint_times <- read_rds("data/olympics-2016/times_mens_100m.rds") Before reading this chapter, take a look at the following sections from the ggplot2 cheat sheet before reading this section.
- Coordinate systems
- Geoms:
geom_bar(),geom_col(),geom_point(), andgeom_count()
You'll often want to visualize the number or amount of something across different categories. For example, you might be interested in the the number of sheep that reside in each US state, the milligrams of caffeine in different coffee drinks, or the number of distinct items exported by various countries.
We'll call this class of visualizations "discrete-continuous" because they involve plotting a continuous variable against a discrete one. In the above examples, the states, coffee drinks, and countries are the discrete variables. The associated numbers of sheep, milligrams of caffeine, and exports are the continuous variables.
You might argue that number of sheep is not a continuous variable, as you can't really have a fractional sheep. However, ggplot2 treats integers and doubles as continuous variables, and treats only factors, characters, and logicals as discrete.
For example, in the tibble v, y is an integer variable (the L's create integers).
v <- tibble( x = c("a", "b"), y = c(1L, 2L) ) v ## # A tibble: 2 x 2 ## x y ## <chr> <int> ## 1 a 1 ## 2 b 2 However, ggplot creates a continuous scale for y.
v %>% ggplot(aes(x, y)) + geom_col() 
As you'll see later, it's useful to understand how ggplot2 treats different types of variables.
In this chapter, you'll first learn about the mechanics of coordinate systems in ggplot2. Sometimes, you'll want to change the default settings of a coordinate system to create a more effective visualization. You'll need these mechanics in the "wisdom" section of the reading, where you'll learn about common visualization strategies for discrete-continuous relationships.
Coordinate systems
Every ggplot2 plot has a coordinate system. ggplot2's default coordinate system is the Cartesian coordinate system.
To add a Cartesian coordinate system to a plot, you call the function coord_cartesian().
mpg %>% ggplot(mapping = aes(displ, hwy)) + geom_point() + coord_cartesian() 
ggplot() actually calls coord_cartesian() for you. Notice that if we take away coord_cartesian() nothing changes.
mpg %>% ggplot(mapping = aes(displ, hwy)) + geom_point() 
Much of the time, you won't need to think about coord_cartesian(). However, as you'll see in the next section, you'll sometimes want to change coord_cartesian()'s default settings.
Zooming
coord_cartesian() contains the arguments xlim and ylim. These arguments control the limits for the x- and y-axes and allow you to zoom in or out of your plot.
For example, say we want to change the above plot to zoom in on just the cars with an engine displacement value of between 3 and 5 liters. xlim and ylim each take a vector with two values: a lower bound and an upper bound. To zoom in on 3-5 liters, we'll set xlim = c(3, 5).
mpg %>% ggplot(mapping = aes(displ, hwy)) + geom_point() + coord_cartesian(xlim = c(3, 5)) 
Note that zooming is not the same as removing values and then plotting. The following plot is the result of first removing all values outside our bounds, and then plotting.
mpg %>% filter(displ >= 3, displ <= 5) %>% ggplot(mapping = aes(x = displ, y = hwy)) + geom_point() 
coord_flip()
coord_flip() flips Cartesian coordinates, so that the variable mapped to x is used for the y-coordinates and the variable mapped to y is used for the x-coordinates.
Compare the following plot with the default coordinate system to one with coord_flip()
mpg %>% ggplot(mapping = aes(x = manufacturer)) + geom_bar() 
mpg %>% ggplot(mapping = aes(x = manufacturer)) + geom_bar() + coord_flip() 
As you'll see later, coord_flip() is useful when visualizing discrete-continuous relationships.
coord_fixed()
coord_fixed() creates a coordinate system with a specified aspect ratio. Most of the time, you'll use coord_fixed() to ensure that one unit on the x-axis is the same length as one unit on the y-axis, which is important if both your axes use the same units.
mpg %>% ggplot(mapping = aes(x = cty, y = hwy)) + geom_point() + coord_fixed(ratio = 1) 
One discrete category
In this section, we'll use data collected by the American Community Survey (ACS) on languages spoken at home across the US. The tibble utah_languages contains data from the 2013 ACS on the top 20 languages, other than English and Spanish, spoken at home in Utah.
## # A tibble: 6 x 2 ## language speakers ## <chr> <int> ## 1 German 9025 ## 2 Navajo 8193 ## 3 Chinese 7625 ## 4 Portuguese 7150 ## 5 French 6645 ## 6 Vietnamese 6355 utah_languages contains one discrete variable (language) and one continuous variable (speakers). In the next section, we'll visualize the number of speakers of each language, a discrete-continuous relationship.
Before we discuss strategies for visualizing this relationship, however, here are two general goals of discrete-continuous relationships. We'll use these goals to evaluate the various plots that we make.
A discrete-continuous visualization should make it easy to:
- Connect categories with their associated numbers (e.g., German to the number of German speakers)
- Compare numbers to each other (e.g., the number of German speakers to the number of Navajo speakers)
Keep in mind that the visualization strategies we discuss aren't the final word on visualizations for discrete-continuous relationships. There are many other ways not discussed here that you might find useful. Instead, treat these strategies as a starting point.
Effective bar plots
To visualize the number of speakers of each language in utah_languages we can use geom_col() to create a bar plot.
utah_languages %>% ggplot(mapping = aes(x = language, y = speakers)) + geom_col() 
We can evaluate this visualization by determining if it meets the two goals outlined earlier.
First, does this visualization make it easy to connect categories to their associated numbers? No. The overlapping x-axis labels make it really difficult to connect categories (languages) to numbers (speakers) because the labels on the x-axis overlap.
Second, does this visualization make it easy to compare numbers to each other? Again, no. Try to compare the bar furthest to the right (Vietnamese) with the bar 4th from the left (French). It takes a bit of back-and-forth eye motion to determine which is longer. Now try to figure out which bar is the shortest. It's not immediately obvious, but it should be.
Luckily, we can easily solve these two problems. First, to correct the labeling issue, we can use coord_flip() to flip the plot 90 degrees, placing the language labels on the y-axis.
utah_languages %>% ggplot(mapping = aes(x = language, y = speakers)) + geom_col() + coord_flip() 
It's now effortless to connect a bar with a label.
Comparing numbers of speakers across languages, however, is still difficult. We can make these comparisons much easier by ordering the languages by number of speakers.
utah_languages %>% head() ## # A tibble: 6 x 2 ## language speakers ## <chr> <int> ## 1 German 9025 ## 2 Navajo 8193 ## 3 Chinese 7625 ## 4 Portuguese 7150 ## 5 French 6645 ## 6 Vietnamese 6355 Notice that the languages in utah_languages appear in order of descending speakers, but, in the plot, they appear in alphabetical order. ggplot2 plots character variables in alphabetical order, disregarding row order. You have to change a character variable to a factor if you want ggplot2 to plot the variable in an order other than alphabetical.
(A factor is a categorical variables with a fixed number of ordered values, called levels. If you want to read more about factors, see the Factors chapter from R4DS ).
To order language by number of speakers, we'll first turn language into a factor with levels ordered by number of speakers. The function fct_reorder() can do this for us.
x <- utah_languages %>% mutate(language = fct_reorder(language, speakers)) x %>% head() ## # A tibble: 6 x 2 ## language speakers ## <fct> <int> ## 1 German 9025 ## 2 Navajo 8193 ## 3 Chinese 7625 ## 4 Portuguese 7150 ## 5 French 6645 ## 6 Vietnamese 6355 language is now a factor. If we try to plot again, the languages will appear in order of number of speakers.
(Note that even though the languages in the tibble still appear in order of descending speakers, ggplot2 plots them in ascending order. fct_reorder() does not rearrange rows, so the tibble order remains unchanged. However, under the hood, fct_reorder() orders the factor levels so that the languages with the fewest speakers come first.)
utah_languages %>% mutate(language = fct_reorder(language, speakers)) %>% ggplot(mapping = aes(x = language, y = speakers)) + geom_col() + coord_flip() 
Now, it's obvious which of the languages has the most speakers and which has the fewest. Try comparing Vietnamese with French again. French now clearly has more speakers. You don't need to move your eyes back and forth several times to determine which value is greater, and you can easily estimate the magnitude of differences between adjacent categories. It's now also obvious that Laotian has the fewest speakers.
Reordering a character variable before plotting is almost always a good idea. You'll rarely want to plot in alphabetical order. Typically, you'll want to reorder according to the amount plotted on the other axis. Sometimes, however, you'll want to match an intrinsic ordering of the variables (e.g., if the categories are "low", "medium", and "high").
geom_bar()
In the previous section, we used geom_col() to plot number of speakers versus language. geom_col() takes two variables: one to map to the x-axis and one to map to the y. Sometimes, however, the amounts you wish to plot will be implicit in the data.
For example, say you want to determine the number of cars with each drivetrain type in the mpg data set. Each row in mpg represents a single car, and we so can use geom_bar() to visualize the number of cars with each drivetrain.
mpg %>% ggplot(mapping = aes(x = drv)) + geom_bar() 
Unlike geom_col(), geom_bar() takes only a x aesthetic. The y-value is the count of items in each x category. geom_bar() is therefore like a special case of the more general geom_col().
If you want to order a variable like drv by count, the function fct_infreq() is useful. Like fct_reorder(), fct_infreq() creates an ordered factor. However, instead of ordering the levels by another variable, fct_infreq() orders them by the number of times each value appears in the data.
mpg %>% mutate(drv = fct_infreq(drv)) %>% ggplot(mapping = aes(x = drv)) + geom_bar() 
The bars now appear in order of count.
Bars vs. dots
We could have used geom_point() to visualize the language use data.
utah_languages %>% mutate(language = fct_reorder(language, speakers)) %>% ggplot(mapping = aes(x = language, y = speakers)) + geom_point() + coord_flip() 
This plot is pretty similar to our bar plot from earlier. They are both pretty clear, and both meet our two goals. However, notice that the x-axis of this geom_point() plot starts around 1250, while the x-axis of our bar plot began at 0.
ggplot2 requires that the numerical axis of a bar plots starts at 0. To demonstrate the rationale behind this requirement, consider the tibble x. In x, "c" is twice "b" and "b" is twice "a". The bar plot below accurately portrays these relationships.
x <- tibble( category = c("a", "b", "c"), number = c(2, 4, 8) ) x %>% ggplot(mapping = aes(x = category, y = number)) + geom_col() 
However, imagine if the y-axis started at 1, marked by the red line.
x %>% ggplot(mapping = aes(x = category, y = number)) + geom_col() + geom_hline(yintercept = 1, color = "red", size = 1) 
"a"'s bar would have length 1, but "b"'s would have length 3. The 1:2 relationships between the variables would be lost.
When you estimate values in bar plots, you judge and compare the lengths of the bars. These lengths must therefore accurately encode the values. They can only do so if the y-axis starts at 0.
geom_point(), however, encodes values with position. The relative positions of the dots will accurately encode the data no matter where the y-axis begins. Therefore, it's okay for geom_point() to start the y-axis at a value other than 0.
The choice between points and bars is largely a choice between comparing values to 0 or comparing values to each other.
For example, the following plot shows the times from the men's 100-meter dash final in the 2016 Olympics. The times are all very close together, and the bars fill up most of the plot.
sprint_times %>% ggplot(mapping = aes(x = name, y = time)) + geom_col() + coord_flip() 
The main conclusion you can take away from this plot is that all the sprinters ran the race in around 10 seconds. If you knew nothing about sprinting, the 2016 Olympics, or Usain Bolt, however, this information is largely useless. Is 10 seconds slow or fast?
In the Visual Display of Quantitative Information, Edward Tufte gives the following directive:
To be truthful and revealing, data graphics must bear on the question at the heart of quantitative thinking: "Compared to what?" (2001, 74)
"Compared to what?" is a useful question to ask yourself when creating visualizations. Our bar plot above seems to say the important comparison is between the race times and 0. However, the interesting comparisons aren't to 0, but to the other contests. geom_point() allows us to highlights these comparisons.
sprint_times %>% ggplot(mapping = aes(x = name, y = time)) + geom_point() + coord_flip() 
We now get a much better sense of the race. There's a couple runners in the back, then a pack in the middle, and then Bolt way out ahead. This narrative is hidden in the bar plot.
Two discrete categories
Color and facets
Previously, we visualized continuous amounts in a single discrete category. In the language plot, language was the single discrete category. In the race plot, runner was the single discrete category. Often, however, your data will contain multiple categories, and you'll want to visualize all these categories at once.
For example, earlier we visualized the number of cars in each drivetrain category. What if we want to add year to our plot? One option is to encode year using a fill color.
mpg %>% ggplot(mapping = aes(x = drv, fill = year)) + geom_bar() 
fill = year didn't do anything. What happened? Recall from earlier that ggplot treats integers as continuous variables. The "fill" aesthetic of bar plots, however, must be a discrete variable. To fix this problem, we'll turn year into a factor.
mpg %>% mutate(year = as.factor(year)) %>% ggplot(mapping = aes(x = drv, fill = year)) + geom_bar() 
This is a "stacked" bar plot. Stacked bar plots are rarely a good idea. It's pretty easy to understand the relationship between count and drivetrain for cars from 2008 (the blue bars). However, some visual arithmetic is required to compare the 1999 bars because they start at different points along the y-axis. Any more values in year would only exacerbate this problem.
Luckily, geom_bar() and geom_col() both take a position argument that controls the position of the different colored bars. Setting position = "dodge" greatly improves the plot.
mpg %>% mutate(year = as.factor(year)) %>% ggplot(mapping = aes(x = drv, fill = year)) + geom_bar(position = "dodge") 
Notice that it's now much easier to compare the pink bars to each other, as they now all begin at 0.
year is a pretty simple variable. It contains only two values. What if we wanted to encode a variable with more values? For example, trans contains 10 different values.
mpg %>% ggplot(mapping = aes(x = drv, fill = trans)) + geom_bar(position = "dodge") 
Recall our goals from the beginning of this chapter. The first goal states that it should be easy to connect categories with numbers. Two variables now define each category. It's pretty easy to connect drv to a number of cars. However, it's difficult to connect trans with those numbers. There are so many different colors that it's hard to remember which color refers to which transmission type.
The second goal states that it should be easy to compare numbers. Comparing bars within a single drv value is easy. However, it's harder to compare bars of the same trans value. Try to compare all the dark green ("auto(I5)") bars. Notice that it takes some visual construction work to pull out all the dark green bars and compare them to each other. Therefore, it's generally not a good idea to create a dodged bar plot if the variable encoded by the fill color has more than 2 values. Faceting can be a better option.
mpg %>% ggplot(mapping = aes(drv)) + geom_bar() + facet_wrap(vars(trans)) 
When faceting, notice that it's much easier to compare values in a single facet than it is to compare values across facets. Therefore, think about the goals of your plot when choosing which variable to facet by and which to plot on the axis. If you want to highlight how drivetrain numbers vary within a single transmission class, the above plot works well. However, if you want to instead highlight how transmission numbers vary within a single drivetrain, facet by drivetrain and put transmission on the axis.
mpg %>% ggplot(aes(trans)) + geom_bar() + facet_grid(rows = vars(drv)) 
This plot has some additional advantages over the previous faceted plot. First, it's generally a good idea to put the variable with more values on the axis, and facet by the variable with fewer values. As we said above, it's easier to compare values in a single facet than it is to compare values across facets.
Second, because there are fewer facets, we can use facet_grid() to align the facets vertically. This vertical alignment makes it easier to compare the distributions of values because of all facets now share a x-axis.
Tufte, E. R. 2001. The Visual Display of Quantitative Information. 2nd ed. Cheshire, Connecticut: Graphics Press.
References
Tufte, E. R. 2001. The Visual Display of Quantitative Information. 2nd ed. Cheshire, Connecticut: Graphics Press.
Source: https://bookdown.org/skaltman/visualization-book/discrete-continuous.html
0 Response to "As numeric in R Discrete to Continuous"
Post a Comment