library
(tidyverse)
sample_data < -
data.frame
(value=
c
(1, 2, 3, 4, 4, 5, 6,
7, 9, 11, 1.5, 2.3, 2.5, 3.4,
4.5, 5.5, 6.5, 7.5, 9.5, 12.5),
category=
c
(
'A'
,
'B'
,
'A'
,
'B'
,
'A'
,
'B'
,
'A'
,
'B'
,
'A'
,
'B'
,
'A'
,
'B'
,
'A'
,
'B'
,
'A'
,
'B'
,
'A'
,
'B'
,
'A'
,
'B'
),
paired=
c
(0, 0, 1, 1, 2, 2, 3, 3, 4, 4,
5, 5, 6, 6, 7, 7, 8, 8, 9, 9))
ggplot
(sample_data,
aes
(category, value, fill=category)) +
geom_boxplot
()+
geom_point
()+
geom_line
(
aes
(group=paired))