如何在ggplot2中抖动线

Question

说我有以下数据和图表：

require(reshape2)
require(ggplot2)
data <- data.frame(id=seq(1,9,1), var1=c(10,3,5,7,8,9,4,6,5), var2=c(9,3,5,7,8,9,4,6,5))
data_graph <- melt(data, id="id")
ggplot(data=data_graph, aes(y=value, x=id, group=variable, col=variable)) +
geom_line(size=2) + geom_point() + 
geom_text(aes(label=value), size=5, hjust=-.6, vjust=1.5)

对于这两条线的几乎全部，都有重叠。 有什么办法可以使线抖动，使它们彼此靠近，但不会重叠。 还是要做一些事情来知道有两行？

Answer 1

有一个功能可以做到这一点，即jitter 。 如果您只想在绘图中的线条上添加抖动，请使用以下代码：

ggplot(data=data_graph, aes(y=value, x=id, group=variable, col=variable)) +
  geom_line(size=2, 
            aes(y = jitter(value, 5), x = jitter(id, 2), group=variable, col=variable)) + 
  geom_point() + 
  geom_text(aes(label=value), size=5, hjust=-.6, vjust=1.5)

jitter功能中的第二个值指定要添加的抖动量