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))
library
(tidyverse)
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))