# Using Line Segments to Compare Values in R

[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

**Mollie's Research Blog**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Sometimes you want to create a graph that will allow the viewer to see in one glance:

- The original value of a variable
- The new value of the variable
- The change between old and new

One method I like to use to do this is using *geom_segment* and *geom_point* in the **ggplot2** package.

First, let’s load **ggplot2** and our data:

library(ggplot2) data <- as.data.frame(USPersonalExpenditure) # data from package datasets data$Category <- as.character(rownames(USPersonalExpenditure)) # this makes things simpler later

Next, we'll set up our plot and axes:

ggplot(data, aes(y = Category)) + labs(x = "Expenditure", y = "Category") +

For *geom_segment*, we need to provide four variables. (Sometimes two of the four will be the same, like in this case.) *x *and *y* provide the start points, and *xend* and *yend* provide the endpoints.

In this case, we want to show the change between 1940 and 1960 for each category. Therefore our variables are the following:

- x: "1940"
- y: Category
- xend: "1960"
- yend: Category

geom_segment(aes(x = data$"1940", y = Category, xend = data$"1960", yend = Category), size = 1) +

Next, we want to plot points for the 1940 and 1960 values. We could do the same for the 1945, 1950, and 1955 values, if we wanted to.

geom_point(aes(x = data$"1940", color = "1940"), size = 4, shape = 15) + geom_point(aes(x = data$"1960", color = "1960"), size = 4, shape = 15) +

Finally, we'll finish up by touching up the legend for the plot:

scale_color_discrete(name = "Year") + theme(legend.position = "bottom")

geom_segment, then geom_point |

The order of

*geom_segment*and the*geom_points*matters. The first*geom*line in the code will get plotted first. Therefore, if you want the points displayed over the segments, put the segments first in the code. Likewise, if you want the segments displayed over the points, put the points first in the code.For example, we could change the middle section of the code to:

geom_point(aes(x = data$"1940", color = "1940"), size = 4, shape = 15) + geom_point(aes(x = data$"1960", color = "1960"), size = 4, shape = 15) +

geom_segment(aes(x = data$"1940", y = Category, xend = data$"1960", yend = Category), size = 1) +

And the output would look like:

geom_point then geom_segment |

Similarly, if you have points that will be overlapping, make sure you think about which of the point lines you want R to plot first.

The code is available in a gist.

To

**leave a comment**for the author, please follow the link and comment on their blog:**Mollie's Research Blog**.R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.