Start / End Plotting with R

00-start-end.R

library(ggplot2)
library(reshape2)

# data setup
df <- data.frame(grp = 1:25, start = rnorm(25, 100, 10), end = rnorm(25, 10, 5))
 
# ** plotting using base plot functions
par(mfrow = c(1, 1))
rng <- range(df$start, df$end)
 
with(df, plot(rep(1, nrow(df)), df$start, xlim = c(0.5, 2.5), ylim = rng, xaxt = "n", xlab = "", ylab = "Random Counts"))
with(df, points(rep(2, nrow(df)), df$end))

segments(rep(1, nrow(df)), df$start, rep(2, nrow(df)), df$end)
axis(1, c(1, 2), c("start", "end"))

# ** plotting using ggplot
# reshape the data first ...
mdf <- melt(df, id.vars = "grp")
names(mdf) <- c("grp", "category", "value")
mdf$grp <- factor(mdf$grp)
mdf$category <- factor(mdf$category)

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

01-plot.png

02-ggplot.png