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函数中的第二个值指定要添加的抖动量

如何在ggplot2中抖动线条

1 个答案: