geom_segment | ggplot examples| vectors

Quick Start

library(ggplot2)
library(ggtheme)

ggplot(seals, aes(long, lat)) + theme_map()
    geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat),
    arrow = arrow(length = unit(0.1,"cm")))

length

P1 <- ggplot(seals, aes(long, lat)) + theme_map()+ ggtitle('0.1')+
    geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat),
    arrow = arrow(length = unit(0.1,"cm")))+
    theme(plot.title = element_text(hjust = 0.5))

P2 <- ggplot(seals, aes(long, lat)) + theme_map()+ ggtitle('0.3')+
    geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat),
    arrow = arrow(length = unit(0.3,"cm")))+
    theme(plot.title = element_text(hjust = 0.5))

P1|P2

Bar

counts <- as.data.frame(table(x = rpois(100,5)))
counts$x <- as.numeric(as.character(counts$x))

ggplot(counts, aes(x, Freq)) + theme_light()
  geom_segment(aes(xend = x, yend = 0), size = 10, lineend = "butt")

geom_spoke

df <- expand.grid(x = 1:10, y=1:10)
df$angle <- runif(100, 0, 2*pi)
df$speed <- runif(100, 0, sqrt(0.1 * df$x))

ggplot(df, aes(x, y)) + geom_point() + theme_light()+
  geom_spoke(aes(angle = angle), radius = 0.5)


More