R 与2 cumul ggplot相同的原点

当我在同一个图形中绘制两个数据帧时，我无法获得相同的原点 下面是我的数据示例：

spec_sum <- data.frame(x = c("2015-01-08","2015-01-13","2015-01-14","2015-01-15","2015-01-15","2015-01-19","2015-01-19","2015-01-21","2015-01-21","2015-01-27"),y = c(1, 1, 1, -1, -1, 1, 1, 1, 1, 1))

odtgen_sum <- data.frame(x = c("2015-01-12","2015-01-14","2015-01-15","2015-01-26","2015-01-27","2015-01-29","2015-01-30","2015-01-30","2015-02-04","2015-02-04"),y=c(1,-1,1,1,1,1,-1,-1,-1,1))

---

spec\u sum我想**这是因为在您的示例中，
cumsum
并没有按组聚合。试着事先计算一下：

# create toy data
set.seed(1123)
n <- 100
df <- data.frame(f=gl(2, n, lab=letters[1:2]), 
                 x=rep(1:n, 2), 
                 y=rbinom(2*n, 1, .5))
# add cumulative sum
df$y_cum <- ave(df$y, df$f, FUN=cumsum)
# plot
ggplot(df, aes(x, y_cum, color=f)) + geom_line()

#创建玩具数据
种子集（1123）
n我猜**这是因为在您的示例中，
cumsum
没有按组聚合。试着事先计算一下：

# create toy data
set.seed(1123)
n <- 100
df <- data.frame(f=gl(2, n, lab=letters[1:2]), 
                 x=rep(1:n, 2), 
                 y=rbinom(2*n, 1, .5))
# add cumulative sum
df$y_cum <- ave(df$y, df$f, FUN=cumsum)
# plot
ggplot(df, aes(x, y_cum, color=f)) + geom_line()

#创建玩具数据
种子集（1123）
n结果应该是什么样的？我的问题是我的两条线之间有一个偏移，我不知道如何消除这个偏移。通常，这两条线应该在计数轴（cumul）上的同一水平上近似开始但是我得到了一个偏移量，结果应该是什么样的？我的问题是我的两条线之间有一个偏移量，我不知道如何删除这个偏移量。通常，这两条线应该在计数轴（cumul）的同一水平上近似开始，但我得到了一个偏移量