r - 하나의 그래프에 레이블이있는 여러 열을 그려야합니다.

Question

3 개의 열 이름 ("x", "y", " 지").

내가 어떻게 라벨

p <- ggplot() + 
    geom_line(aes(time, x), df, colour = "red") + 
    geom_line(aes(time, y), df, colour = "blue") + 
    geom_line(aes(time, z), df,colour = I("darkgreen")) + 
    xlab("Time") + ylab("value") 

Answer 1

이 당신이 원하는 무엇인가를 추가하는 플롯하려면 다음 코드를 사용하지만, 몰라?

library(reshape2) 
df <- melt(df, id.vars = "time") 

> df 
    time variable value 
1  1  x  1 
2  2  x  2 
3  3  x  3 
4  4  x  4 
5  1  y  2 
6  2  y  4 
7  3  y  6 
8  4  y  8 
9  1  z  1 
10 2  z  3 
11 3  z  5 
12 4  z  7 

다음

ggplot(data = df, aes(x = time, y = value, color = variable)) + 
    geom_line() + 
    xlab("Time") + 
    ylab("value") + 
    labs(color = "YOUR LEGEND TITLE") 

전설을 : @akrun 잘하지만

ggplot(data = df) + 
    geom_line(aes(time, x, color = "X")) + 
    geom_line(aes(time, y, color = "Y")) + 
    geom_line(aes(time, z, color = "Z")) + 
    xlab("Time") + 
    ylab("value") + 
    labs(color = "YOUR LEGEND TITLE") 

는 긴 형식으로 데이터를 변환하는 것은 여기에 갈 수있는 방법이 될 것입니다 -title은 선택 사항입니다. btw :

Answer 2

scale_colour_manual을 사용하여 범례를 표시 할 수 있습니다. 같은 수정 된 코드는 모양 : 라이브러리 ', 즉 긴 형식 (tidyverse)로 변환하는 것이 좋습니다

p <- ggplot(df, aes(x,y,z)) + 
    geom_line(aes(time, x, colour = "x")) + 
geom_line(aes(time, y, colour = "y")) + 
geom_line(aes(time, z,colour = "z")) + 
scale_colour_manual("", 
         breaks = c("x", "y", "z"), 
         values = c("red", "blue", "green")) + 
xlab("Time") + ylab("value")