How to draw a nice arrow in ggplot2

by

Here are some reproducible examples (try running them)

A Simple arrow (i.e. line segment):

library(dplyr)
library(ggplot2)

# Create a scatter plot
i <- ggplot(mtcars, aes(wt, mpg)) + geom_point()

# Add arrow
i + geom_segment(aes(x = 5, y = 30, xend = 3.5, yend = 25),
                  arrow = arrow(length = unit(0.5, "cm")))

enter image description here

A Simple curved arrow

b <- ggplot(mtcars, aes(wt, mpg)) +
  geom_point()

df <- data.frame(x1 = 2.62, x2 = 3.57, y1 = 21.0, y2 = 15.0)

b + geom_curve(
  aes(x = x1, y = y1, xend = x2, yend = y2),
  data = df,
  arrow = arrow(length = unit(0.03, "npc"))
)

enter image description here

Available Arrow Types

You don’t have to understand this code, but simply note the lineend, and linejoin options available to you

df2 <- expand.grid(
  lineend = c('round', 'butt', 'square'),
  linejoin = c('round', 'mitre', 'bevel'),
  stringsAsFactors = FALSE
)
df2 <- data.frame(df2, y = 1:9)

ggplot(df2, aes(x = 1, y = y, xend = 2, yend = y, label = paste(lineend, linejoin))) +
  geom_segment(
    lineend = df2$lineend, linejoin = df2$linejoin,
    size = 3, arrow = arrow(length = unit(0.3, "inches"))
  ) +
  geom_text(hjust="outside", nudge_x = -0.2) +
  xlim(0.5, 2)

enter image description here

A Straight Arrow to Toggle for Yourself

Here is a very simple arrow to adjust each parameter and see what it does

ggplot(iris) +
  geom_segment(
    x = 1, y = 1,
    xend = 4, yend = 7,
    lineend = "round", # See available arrow types in example above
    linejoin = "round",
    size = 2, 
    arrow = arrow(length = unit(0.3, "inches")),
    colour = "#EC7014" # Also accepts "red", "blue' etc
  ) + 
  scale_x_continuous(limits = c(0, 10)) +
  scale_y_continuous(limits = c(0, 10))

enter image description here

A Curved Arrow to Toggle for Yourself

# Nicer curve
b <- ggplot(mtcars, aes(wt, mpg)) +
  geom_point()

b + geom_curve(
  aes(x = 3, y = 22, xend = 3.5, yend = 15),
  arrow = arrow(
    length = unit(0.03, "npc"), 
                type="closed" # Describes arrow head (open or closed)
    ),
  colour = "#EC7014",
  size = 1.2,
  angle = 90 # Anything other than 90 or 0 can look unusual
)

enter image description here

More Related Contents:

  1. Order Bars in ggplot2 bar graph
  2. How to assign colors to categorical variables in ggplot2 that have stable mapping?
  3. Make the background of a graph different colours in different regions
  4. Plot multiple boxplot in one graph
  5. Split violin plot with ggplot2
  6. How to change the order of facet labels in ggplot (custom facet wrap labels)
  7. How can I extract plot axes’ ranges for a ggplot2 object?
  8. Don’t drop zero count: dodged barplot
  9. Force R to stop plotting abbreviated axis labels (scientific notation) – e.g. 1e+00
  10. How to center stacked percent barchart labels
  11. ggplot2: Divide Legend into Two Columns, Each with Its Own Title
  12. ggplot2 multiple sub groups of a bar chart
  13. Use different center than the prime meridian in plotting a world map
  14. Display custom image as geom_point [duplicate]
  15. multiple graphs in one canvas using ggplot2
  16. Save plot with a given aspect ratio
  17. Getting a stacked area plot in R
  18. geom_text how to position the text on bar as I want?
  19. How to shade a region under a curve using ggplot2
  20. Smaller gap between two legends in one plot (e.g. color and size scale)
  21. How to combine ggplot and dplyr into a function?
  22. Insert Layer underneath existing layers in ggplot2 object
  23. ggplot2 custom legend shapes
  24. ggplot2: group x axis discrete values into subgroups [duplicate]
  25. Change the number of breaks using facet_grid in ggplot2
  26. Control point border thickness in ggplot
  27. ggplot scale color gradient to range outside of data range
  28. How to nicely annotate a ggplot2 (manual)
  29. How to not show all labels on ggplot axis?
  30. In ggplot2, coord_flip and free scales don’t work together

Leave a Comment