Color-coded Start / End Plotting with R

00-start-end-higher-lower.R

library(ggplot2)
library(reshape2)

df <- data.frame(grp = 1:25, start = rnorm(25, 10, 5), end = rnorm(25, 5, 3))
df$end_higher <- df$start < df$end

mdf <- melt(df, id.vars = c("grp", "end_higher"))
names(mdf) <- c("grp", "end_higher", "category", "value")

mdf$grp <- factor(mdf$grp)
mdf$category <- factor(mdf$category)
mdf$end_higher <- factor(mdf$end_higher)

ggplot(mdf, aes(x = category, y = value, group = grp, color = end_higher)) + geom_point() + geom_line()

01-higher-lower-ggplot.png