R ggplot2：为不同的组绘制不同的线段

Question

我有一个如下所示的数据集。我试图为不同的Band绘制水平线及其颜色（绿色，黄色，......，黑色），y轴为Price。我正在尝试使用facet_grid(.~ Band)。

下面的代码为每个乐队提供了相同的代码。看起来这个方面在这里没有用。

g <- ggplot(df, aes(y=Price)) +
     facet_grid(.~ Band) +
     geom_hline(yintercept=df$Price[1], colour="green") + 
     geom_hline(yintercept=df$Price[2], colour="yellow") +
     geom_hline(yintercept=df$Price[3], colour="pink") +
     geom_hline(yintercept=df$Price[4], colour="red") +
     geom_hline(yintercept=df$Price[5], colour="black")


print(g)

谢谢！ 布伦达

Line    Price   Band
Green   1584    A) 1--9
Yellow  1512    A) 1--9
Pink    1386    A) 1--9
Red 1152    A) 1--9
Black   1044    A) 1--9
Green   1566    B) 10--24
Yellow  1476    B) 10--24
Pink    1386    B) 10--24
Red 1152    B) 10--24
Black   1044    B) 10--24
Green   1512    C) 25--49
Yellow  1440    C) 25--49
Pink    1386    C) 25--49
Red 1152    C) 25--49
Black   1044    C) 25--49
Green   1494    D) 50--99
Yellow  1422    D) 50--99
Pink    1386    D) 50--99
Red 1080    D) 50--99
Black   972 D) 50--99