Редактирование надписей легенды в ggplot - PullRequest
Новая
       23

Редактирование надписей легенды в ggplot

3 голосов
/ 26 октября 2011

У меня есть датафрейм, который выглядит так: 

data
    median  min max no_of_threads
    2.33    2.10    6.85    1
    2.43    2.14    3.41    2
    2.39    2.13    7.90    3
    2.74    2.10    8.30    4
    2.53    2.21    6.69    5

Я сделал эту функцию R, которая отображает данные $ min и данные $ max как диапазон, и данные $ медиана как строка: 

scalability_graph <- function(data){ 
  h <- ggplot(data)
  h <- h + 
      geom_ribbon(aes(x = no_of_threads, ymin = min, ymax = max)) +
      geom_line(aes(x = no_of_threads, y=median, color="#CC873D")) +
      scale_x_continuous("Number of threads", lim=c(0,20)) +
      scale_y_continuous("Response time", lim=c(0,13)) +
      opts(legend.position=c(0.20,0.90))
}

Сценарий выдает этот сюжет:

range graph with median

Как изменить метки в легенде и поставить "диапазон" вместо верхней жирной строки и "медиану" вместо нижней метки?

1 Ответ

7 голосов
/ 26 октября 2011

Вы можете сделать это, добавив это: 

 + scale_colour_manual("range", labels = "median", values = "#CC873D", breaks = "#CC873D")

enter image description here

но ваш сюжет и легенда должны быть такими?

h <- ggplot(data, aes(no_of_threads, median)) +
  geom_ribbon(aes(ymin = min, ymax = max, fill = factor(1))) +
  geom_line(aes(color=factor(1))) +
  scale_x_continuous("Number of threads", lim=c(0,20)) +
  scale_y_continuous("Response time", lim=c(0,13)) +
  scale_fill_manual(breaks = 1, values = "grey20", labels = "range") + 
  scale_colour_manual(breaks = 1, values = "#CC873D", labels = "median") +
  opts(legend.position=c(0.20,0.85), legend.title = theme_blank(), legend.background = theme_blank())

enter image description here

...