# create dataframe
sample_data < - data.frame(value1=c(31, 12, 15, 28, 45, 21,
22, 34, 56, 10),
value2=c(1, 2, 4, 8, 16, 3, 9, 7, 5, 11),
category1=c('A', 'B', 'A', 'B', 'A',
'B', 'A', 'B', 'A', 'B'),
category2=c(0, 0, 1, 1, 2, 2, 3, 3, 4, 4))
# load tidyverse
library(tidyverse)
# create plot
ggplot(sample_data, aes(value1, value2)) +
geom_line(aes(group=category2), color="grey",
size=2, alpha=0.5) +
geom_point(aes(color=category1, size=7))