1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| rm(list = ls())
library(ggplot2)
library(ggsci)
df = data.frame(cat = rep(c(1,2), each = 10),
value = c(1:10,6:15),
c = 1:10,
d = 6:15,
e= letters[1:10])
ggplot(df, aes(cat, value)) +
geom_vline(xintercept = 1:2,linetype = 'dashed') +
geom_point(aes(color = e),size = 2) +
geom_segment(aes(x = 1, xend = 2,
y = c, yend = d, color = e),
size = 1) +
geom_hline(yintercept = 16, color = 'white') +
scale_y_continuous(breaks = seq(-1,15,2)) +
scale_x_discrete(limit = c(1,2)) +
scale_color_aaas() +
labs(x = '',y = '') +
theme_bw() +
theme(legend.position = 'none')
|
