RStudio GGplot Cheat Sheet | RStudioDataLab

Posted on September 13, 2024 by Zubair Goraya in R bloggers | 0 Comments

[This article was first published on RStudioDataLab, 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.

Table of Contents

Scatter Plot (geom_point)

 ggplot(mtcars, aes(x = mpg, y = wt)) +geom_point(color = "darkblue", size = 3) +ggtitle("MPG vs Weight")

Line Chart (geom_line)

ggplot(mtcars, aes(x = seq_along(mpg), y = mpg)) +
  geom_line(color = "green", linewidth = 1) +
  ggtitle("Line Chart of MPG")

Bar Chart (geom_bar)

ggplot(mtcars, aes(x = factor(cyl))) +
  geom_bar(fill = "orange") +
  ggtitle("Cylinder Count Bar Chart")

Column Chart (geom_col)

ggplot(mtcars, aes(x = factor(cyl), y = mpg)) +
  geom_col(fill = "purple") +
  ggtitle("Average MPG by Cylinders")

Histogram (geom_histogram)

ggplot(mtcars, aes(x = mpg)) +
  geom_histogram(bins = 10, fill = "seagreen", color = "black") +
  ggtitle("MPG Distribution")

Density Plot (geom_density)

ggplot(mtcars, aes(x = mpg)) +
  geom_density(fill = "blue", alpha = 0.5) +
  ggtitle("MPG Density Plot")

Box Plot (geom_boxplot)

ggplot(mtcars, aes(x = factor(cyl), y = mpg)) +
  geom_boxplot(fill = "seagreen") +
  ggtitle("MPG by Cylinders")

Violin Plot (geom_violin)

ggplot(mtcars, aes(x = factor(cyl), y = mpg)) +
  geom_violin(fill = "pink") +
  ggtitle("MPG Violin Plot")

Area Chart (geom_area)

ggplot(mtcars, aes(x = seq_along(mpg), y = mpg)) +
  geom_area(fill = "lightgreen", alpha = 0.5) +
  ggtitle("MPG Area Chart")

Stacked Area Chart (geom_area)

ggplot(mtcars, aes(x = seq_along(mpg), y = mpg, fill = factor(cyl))) +
  geom_area(position = "stack") +
  ggtitle("Stacked MPG by Cylinders")

Stacked Bar Chart (geom_bar + position=”stack”)

ggplot(mtcars, aes(x = factor(cyl), fill = factor(gear))) +
  geom_bar(position = "stack") +
  ggtitle("Stacked Bar: Cylinders by Gear")

Grouped Bar Chart (geom_bar + position=”dodge”)

ggplot(mtcars, aes(x = factor(cyl), fill = factor(gear))) +
  geom_bar(position = "dodge") +
  ggtitle("Grouped Bar: Cylinders by Gear")

Dot Plot (geom_dotplot)

ggplot(mtcars, aes(x = mpg)) +
  geom_dotplot(binwidth = 1, fill = "darkgreen") +
  ggtitle("Dot Plot of MPG")

Jitter Plot (geom_jitter)

ggplot(mtcars, aes(x = factor(cyl), y = mpg)) +
  geom_jitter(width = 0.2, color = "purple") +
  ggtitle("Jitter Plot: MPG by Cylinders")

Bubble Chart (geom_point with size)

ggplot(mtcars, aes(x = wt, y = mpg, size = hp)) +
  geom_point(alpha = 0.7, color = "darkred") +
  scale_size(range = c(2, 10)) +
  ggtitle("Bubble: Weight vs MPG by HP")

Heatmap (geom_tile)

library(dplyr)
mtcars %>%
  group_by(cyl, gear) %>%
  summarise(mean_mpg = mean(mpg)) %>%
  ggplot(aes(x = factor(cyl), y = factor(gear), fill = mean_mpg)) +
  geom_tile() +
  scale_fill_gradient(low = "white", high = "blue") +
  ggtitle("Heatmap: Mean MPG by Cyl & Gear")

Contour Plot (geom_contour)

ggplot(mtcars, aes(x = mpg, y = wt)) +
  geom_density_2d(color = "darkorange") +
  ggtitle("Contour Plot of MPG vs Weight")

2D Density Plot (geom_density2d)

ggplot(mtcars, aes(x = mpg, y = wt)) +
  geom_density_2d_filled(alpha = 0.7) +
  ggtitle("2D Density Plot of MPG vs Weight")

Pie Chart (geom_bar + coord_polar)

ggplot(mtcars, aes(x = "", fill = factor(cyl))) +
  geom_bar(width = 1) +
  coord_polar(theta = "y") +
  theme_void() +
  ggtitle("Pie Chart of Cylinders")

Donut Chart (geom_bar + coord_polar)

ggplot(mtcars, aes(x = 2, fill = factor(cyl))) +
  geom_bar(width = 1) +
  coord_polar(theta = "y") +
  xlim(0.5, 2.5) +
  theme_void() +
  ggtitle("Donut Chart of Cylinders")

Polar Area Chart (coord_polar)

ggplot(mtcars, aes(x = factor(cyl), fill = factor(cyl))) +
  geom_bar(width = 1) +
  coord_polar() +
  theme_void() +
  ggtitle("Polar Area: Cylinders")

Radar Chart (coord_polar + geom_line)

library(dplyr)
mtcars %>%
  group_by(cyl) %>%
  summarise(mpg = mean(mpg)) %>%
  ggplot(aes(x = factor(cyl), y = mpg, group = 1)) +
  geom_line(color = "blue") +
  coord_polar() +
  ggtitle("Radar Chart: Avg MPG by Cyl")

Error Bar Plot (geom_errorbar)

library(dplyr)
mtcars %>%
  group_by(cyl) %>%
  summarise(mean_mpg = mean(mpg), sd_mpg = sd(mpg)) %>%
  ggplot(aes(x = factor(cyl), y = mean_mpg)) +
  geom_col(fill = "skyblue") +
  geom_errorbar(aes(ymin = mean_mpg - sd_mpg, ymax = mean_mpg + sd_mpg), width = 0.2) +
  ggtitle("Error Bars: MPG by Cyl")

Crossbar Plot (geom_crossbar)

library(dplyr)
        mtcars %>%
  group_by(cyl) %>%
  summarise(mean_mpg = mean(mpg), sd_mpg = sd(mpg)) %>%
  ggplot(aes(x = factor(cyl), y = mean_mpg)) +
  geom_crossbar(aes(ymin = mean_mpg - sd_mpg, ymax = mean_mpg + sd_mpg), 
                fill = "orange") +
  ggtitle("Crossbar: MPG by Cyl")

Point Range Plot (geom_pointrange)

library(dplyr)
        mtcars %>%
  group_by(cyl) %>%
  summarise(mean_mpg = mean(mpg), sd_mpg = sd(mpg)) %>%
  ggplot(aes(x = factor(cyl), y = mean_mpg)) +
  geom_pointrange(aes(ymin = mean_mpg - sd_mpg, ymax = mean_mpg + sd_mpg),
                  color = "darkred") +
  ggtitle("Point Range: MPG by Cyl")

Linerange Plot (geom_linerange)

library(dplyr)
        mtcars %>%
  group_by(cyl) %>%
  summarise(ymin = min(mpg), ymax = max(mpg)) %>%
  ggplot(aes(x = factor(cyl))) +
  geom_linerange(aes(ymin = ymin, ymax = ymax), size = 1.5, color = "purple") +
  ggtitle("Linerange: MPG Range by Cyl")

Ribbon Plot (geom_ribbon)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  geom_smooth(method = "lm", se = FALSE) +
  geom_ribbon(aes(ymin = predict(lm(mpg ~ wt)) - 5,
                  ymax = predict(lm(mpg ~ wt)) + 5),
              alpha = 0.2, fill = "blue") +
  ggtitle("Ribbon: Confidence Band")

Smooth Line Plot (geom_smooth)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  geom_smooth(method = "loess", color = "red", se = FALSE) +
  ggtitle("Smooth Line: Weight vs MPG")

Quantile Regression (geom_quantile)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  geom_quantile(quantiles = c(0.25, 0.5, 0.75), color = "darkgreen") +
  ggtitle("Quantile Regression Lines")

Q-Q Plot (geom_qq)

ggplot(mtcars, aes(sample = mpg)) +
  geom_qq(distribution = qnorm) +
  geom_qq_line(color = "red") +
  ggtitle("Q-Q Plot of MPG")

Rug Plot (geom_rug)

ggplot(mtcars, aes(x = mpg, y = wt)) +
  geom_point() +
  geom_rug(sides = "bl", color = "red") +
  ggtitle("MPG vs Weight with Rug Marks")

Text Label Plot (geom_text)

        
ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  geom_text(aes(label = car), check_overlap = TRUE, size = 3, vjust = -1) +
  ggtitle("Car Labels on Weight vs MPG")

Label Plot (geom_label)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  geom_label(aes(label = cyl), fill = "yellow", alpha = 0.5) +
  ggtitle("Cylinder Labels on Weight vs MPG")

Choropleth Map (geom_tile)

# Using cyl as "regions"
ggplot(mtcars, aes(x = factor(cyl), y = 1, fill = mpg)) +
  geom_tile() +
  scale_fill_gradient(low = "white", high = "blue") +
  theme_void() +
  ggtitle("Pseudo-Choropleth (Cyl as Regions)")

Hexagonal Binning (geom_hex)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_hex(bins = 10) +
  scale_fill_gradient(low = "lightblue", high = "darkblue") +
  ggtitle("Hex Binning: Weight vs MPG")

2D Bin Plot (geom_bin2d)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_bin2d(bins = 8) +
  scale_fill_gradient(low = "lightgreen", high = "darkgreen") +
  ggtitle("2D Binning: Weight vs MPG")

Count Overlap (geom_count)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_count(color = "purple") +
  ggtitle("Overlap Counts: Weight vs MPG")

Segment Plot (geom_segment)

ggplot(mtcars) +
  geom_segment(aes(x = wt, y = mpg, xend = mean(wt), yend = mean(mpg)),
               color = "gray") +
  geom_point(aes(x = wt, y = mpg), color = "red") +
  ggtitle("Segments to Mean")

Curve Plot (geom_curve)

ggplot(mtcars) +
  geom_curve(aes(x = min(wt), y = min(mpg), 
                 xend = max(wt), yend = max(mpg)),
             curvature = 0.3, color = "blue") +
  xlim(1, 6) + ylim(10, 35) +
  ggtitle("Curve from Min to Max")

Step Plot (geom_step)

ggplot(mtcars, aes(x = seq_along(mpg), y = sort(mpg))) +
  geom_step(color = "darkgreen") +
  ggtitle("Step Plot of Sorted MPG")

Function Plot (geom_function)

ggplot(mtcars, aes(x = wt)) +
  geom_point(aes(y = mpg)) +
  geom_function(fun = function(x) 37 - 5*x, color = "red") +
  ggtitle("Linear Function Overlay")

ECDF Plot (stat_ecdf)

ggplot(mtcars, aes(x = mpg)) +
  stat_ecdf(geom = "step", color = "purple") +
  ggtitle("ECDF of MPG")

Path Plot (geom_path)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_path(color = "orange") +
  ggtitle("Path Plot: Weight vs MPG")

Polygon Plot (geom_polygon)

library(dplyr)
mtcars %>%
  arrange(wt) %>%
  ggplot(aes(x = wt, y = mpg)) +
  geom_polygon(fill = "lightblue", alpha = 0.5) +
  ggtitle("Polygon: Weight vs MPG")

Reference Line (geom_hline)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  geom_hline(yintercept = mean(mtcars$mpg), color = "red") +
  geom_vline(xintercept = mean(mtcars$wt), color = "blue") +
  ggtitle("Reference Lines at Means")

Rectangular Annotation (geom_rect)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  geom_rect(aes(xmin = 3, xmax = 4, ymin = 15, ymax = 25),
            fill = "yellow", alpha = 0.2) +
  ggtitle("Rectangular Highlight")

Tile Plot (geom_tile)

library(dplyr)
        mtcars %>%
  group_by(cyl, gear) %>%
  summarise(mean_mpg = mean(mpg)) %>%
  ggplot(aes(x = factor(cyl), y = factor(gear), fill = mean_mpg)) +
  geom_tile() +
  ggtitle("Tile Plot: Mean MPG")

Cleveland Dot Plot

ggplot(mtcars, aes(x = mpg, y = reorder(rownames(mtcars), mpg))) +
  geom_point(color = "darkred") +
  labs(y = "Car") +
  ggtitle("Cleveland Dot Plot")

Mosaic Plot (geom_rect)

library(dplyr)
mtcars %>%
  count(cyl, gear) %>%
  group_by(cyl) %>%
  mutate(xmax = cumsum(n)/sum(n), xmin = lag(xmax, default = 0)) %>%
  ggplot() +
  geom_rect(aes(xmin = xmin, xmax = xmax, ymin = as.numeric(cyl)-0.4, 
                ymax = as.numeric(cyl)+0.4, fill = factor(gear))) +
  scale_y_continuous(breaks = unique(mtcars$cyl)) +
  ggtitle("Mosaic: Cyl vs Gear")

Treemap (geom_tile)

library(treemapify)
mtcars %>%
  group_by(cyl, gear) %>%
  summarise(size = n()) %>%
  ggplot(aes(area = size, fill = factor(cyl), subgroup = gear)) +
  geom_treemap() +
  geom_treemap_subgroup_border() +
  ggtitle("Treemap: Cyl and Gear")

Candlestick Plot

mtcars %>%
  group_by(cyl) %>%
  summarise(open = min(mpg), high = max(mpg), low = min(mpg), close = max(mpg)) %>%
  ggplot(aes(x = factor(cyl))) +
  geom_linerange(aes(ymin = low, ymax = high), size = 1) +
  geom_rect(aes(ymin = open, ymax = close, xmin = as.numeric(cyl)-0.2, 
                xmax = as.numeric(cyl)+0.2), fill = "darkgreen") +
  ggtitle("Candlestick: MPG by Cyl")

Marginal Plot

library(ggExtra)
p - ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point()
ggMarginal(p, type = "histogram")

Streamgraph

library(ggstream)
mtcars %>%
  mutate(idx = seq_along(mpg)) %>%
  ggplot(aes(x = idx, y = mpg, fill = factor(cyl))) +
  geom_stream() +
  ggtitle("Streamgraph of MPG")

Dot Matrix Plot

ggplot(mtcars, aes(x = factor(cyl), y = factor(gear))) +
  geom_point(position = position_jitter(width = 0.2, height = 0.2), 
             size = 3, alpha = 0.7) +
  ggtitle("Dot Matrix: Cyl vs Gear")

Waffle Chart

library(waffle)

waffle(cyl_counts/2, rows = 4, colors = c("#E69F00", "#56B4E9", "#009E73")) +
  ggtitle("Waffle Chart of Cylinders")

To leave a comment for the author, please follow the link and comment on their blog: RStudioDataLab.

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.