结合正负堆积线图

Question

我正在尝试在ggplot2中制作堆积线图，其中正值堆叠在x轴上方，负值堆叠在x轴下方。我已经成功地分别堆叠了每种线型，但是无法在一个图上同时存在这两种线型。我正在寻找一些关于如何做到这一点的帮助，无论是通过叠加情节还是在单个情节上做一些有创意的事情。

下面的代码使用带有堆叠geom_line图的简单ggplot。 “类型”的一半是关于时间的正值，而“类型”的另一半都是负值。

    p <- ggplot(dataForm, aes(x=Time,y=Value,group=Type),colour=factor(Type))
    p + geom_line(aes(fill = Type),position = "stack")

我尝试过单独指定正值和负值的替代方法，但没有成功：

    p <- ggplot(dataForm, aes(x=Time,y=Value,group=Type),colour=factor(Type))
    p + geom_line(data = data1,aes(fill = Type),position = "stack")
    p + geom_line(data = data1,aes(fill = Type),position = "stack")

非常感谢任何有关如何做到这一点的建议。感谢。

Answer 1

在没有a reproducible example的情况下，我改编了this example from learnr：

library(ggplot2)
library(plyr)

data = read.table(text="Time    Type    Value
1   a   8
2   a   10
3   a   10
4   a   5
5   a   3
1   b   9
2   b   5
3   b   7
4   b   8
5   b   3
1   c   -3
2   c   -1
3   c   -5
4   c   -4
5   c   -7
1   d   -11
2   d   -3
3   d   -9
4   d   -6
5   d   -6", header=TRUE)

p <- ggplot(data, aes(x=Time))
p <- p + geom_line(subset = .(Type %in% c('a', 'b')),
                   aes(y=Value, colour = Type),
                   position = 'stack')
p <- p + geom_line(subset = .(Type %in% c('c', 'd')),
                   aes(y=Value, colour = Type),
                   position = 'stack')
p

产生这个：

并且，为了更好地衡量，带有水平线的面积图：

p <- ggplot(data, aes(x=Time))
p <- p + geom_area(subset = .(Type %in% c('a', 'b')),
                   aes(y=Value, fill=Type),
                   position = 'stack')
p <- p + geom_area(subset = .(Type %in% c('c', 'd')),
                   aes(y=Value, fill = Type),
                   position = 'stack')
p <- p + geom_hline(yintercept=0)
p