ggplot2 geom_line() example with disconnected lines for NA values

ggplot-disconnected.R

# ggplot2 example
# Show how geom_line() does not connect the line through NA values

library(ggplot2)

# Make some fake data
mydata <- data.frame(x = 2000:2010, y = rnorm(11, 5, 2))

# First plot, all lines are connected correctly
ggplot(mydata, aes(x, y)) + geom_line()

# Now let's make some of the values NA
mydata[sample(1:nrow(mydata), 2, replace = FALSE),"y"] <- NA

# Now plot the result with the new NAs introduced
ggplot(mydata, aes(x, y)) + geom_line()

# We should see a plot with disconnected lines