如何使用ggplot向圖表添加其他線標簽/組標簽？

Question

我已經基於組創建了一個圖表，然后更改了子組上的點的顏色。

我將如何標記這些行？

我已經創建了一些示例數據和代碼。 我有更多的數據點和更多的行。

這些行基於“天”，子組基於“燃料”。 如您在圖例中看到的。 我只能說哪個是燃料，而不是哪條線是第一天或第二天。

Price <- seq(1, 20, by=1)
MW <- seq(1, 200, by=10)
fuel <- rep(c("Coal", "Gas", "Hydro", "Other"), each=5)
Day <- rep(1, each=20)
df1 <- data.frame(Price, MW,fuel, Day)

Price<-seq(0, 19, by=1)
MW <- seq(1, 100, by=5)
Day <- rep(2, each=20)
df2 <- data.frame(Price, MW, fuel, Day)

df <- rbind(df1, df2)
df <- df[with(df, order(Day, Price, fuel)), ]

library(ggplot2)
ggplot(df, aes(x=MW, y=Price, group=Day))+
    geom_line(aes(colour=fuel))+
    geom_point(aes(colour=fuel))

給

Answer 1

一種真正快捷的方法是對這些點使用不同的形狀：

gg <- ggplot(df, aes(x=MW, y=Price, group=Day))
gg <- gg + geom_line(aes(colour=fuel))+
gg <- gg + geom_point(aes(colour=fuel, shape=Day))
gg

否則，您可以求助於添加帶有標簽的geom_text()層。