Draw ggplot2 Legend at the Bottom of plot
To draw ggplot2 legend at the bottom of the plot, we simply add the theme() function to geom_point() function.
Syntax : theme(legend.position)
Parameter : In General, theme() function has many parameters to specify the theme of the plot but here we use only legend.position parameter which specify the position of Legend.
Return : Theme of the plot.
We can specify the value of legend.position parameter from left, right, top and bottom. To draw legend at bottom of graph, we use ‘bottom’ as a value of legend.position parameter.
R
# Load Package library (ggplot2) # Create a DataFrame For plot data <- data.frame (Year = c (2011, 2012, 2013, 2014, 2015), Points = c (30, 20, 15, 35, 50), Users = c ( "user1" , "user2" , "user3" , "user4" , "user5" )) # Create a simple scatter plot # with legend at bottom. ggplot (data, aes (Year, Points, color = Users)) + geom_point (size = 7)+ theme (legend.position = "bottom" ) |
Output:
How to move a ggplot2 legend with multiple rows to the bottom of a plot in R
In this article, we are going to see how to draw ggplot2 legend at the bottom and with two Rows in R Programming Language. First, we have to create a simple data plot with legend. Here we will draw a Simple Scatter plot.
Loading Library
First, load the ggplot2 package by using library() function.
library("ggplot2")
Create a DataFrame for example. Here we create a simple DataFrame with three variables named Year, Points, and Users and then assign it to the data object.
R
library ( "ggplot2" ) # Create a DataFrame data <- data.frame (Year = c (2011, 2012, 2013, 2014, 2015), Points = c (30, 20, 15, 35, 50), Users = c ( "user1" , "user2" , "user3" , "user4" , "user5" )) print (data) |
Output:
For Create an R plot, we use ggplot() function and for make it scatter plot we add geom_point() function to ggplot() function. assign this whole plot to gplot data object.
Code:
R
# Load Package library ( "ggplot2" ) # Create a DataFrame data <- data.frame (Year = c (2011, 2012, 2013, 2014, 2015), Points = c (30, 20, 15, 35, 50), Users = c ( "user1" , "user2" , "user3" , "user4" , "user5" )) # Create a Scatter Plot and assign it # to gplot data object gplot <- ggplot (data, aes (Year, Points, color = Users)) + geom_point (size = 7) gplot |
Output: