Вопрос по r-faq, r, legend, ggplot2 – Добавить легенду на линейный сюжет ggplot2

121

У меня есть вопрос о легендах в ggplot2. Мне удалось нарисовать три линии на одном графике и я хочу добавить легенду с тремя используемыми цветами. Это код, используемый

<code>library(ggplot2)    
require(RCurl)

link<-getURL("https://dl.dropbox.com/s/ds5zp9jonznpuwb/dat.txt")
datos<- read.csv(textConnection(link),header=TRUE,sep=";")
datos$fecha <- as.POSIXct(datos[,1], format="%d/%m/%Y")    

temp = ggplot(data=datos,aes(x=fecha, y=TempMax,colour="1")) + 
           geom_line(colour="red") + opts(title="TITULO") +
           ylab("Temperatura (C)") + xlab(" ") + 
           scale_y_continuous(limits = c(-10,40)) + 
           geom_line(aes(x=fecha, y=TempMedia,colour="2"),colour="green") + 
           geom_line(aes(x=fecha, y=TempMin,colour="2"),colour="blue") +
           scale_colour_manual(values=c("red","green","blue"))

temp
</code>

и выход

ggplot three lines

Я хотел бы добавить легенду с тремя используемыми цветами и именем переменной (TempMax, TempMedia и TempMin). я пытался

<code>scale_colour_manual
</code>

но не могу найти точный путь.

К сожалению, исходные данные были удалены со связанного сайта и не могут быть восстановлены. Но они пришли из файлов метео данных с этим форматом

<code>"date","Tmax","Tmin","Tmed","Precip.diaria","Wmax","Wmed"
2000-07-31 00:00:00,-1.7,-1.7,-1.7,-99.9,20.4,20.4
2000-08-01 00:00:00,22.9,19,21.11,-99.9,6.3,2.83
2000-08-03 00:00:00,24.8,12.3,19.23,-99.9,6.8,3.87
2000-08-04 00:00:00,20.3,9.4,14.4,-99.9,8.3,5.29
2000-08-08 00:00:00,25.7,14.4,19.5,-99.9,7.9,3.22
2000-08-09 00:00:00,29.8,16.2,22.14,-99.9,8.5,3.27
2000-08-10 00:00:00,30,17.8,23.5,-99.9,7.7,3.61
2000-08-11 00:00:00,27.5,17,22.68,-99.9,8.8,3.85
2000-08-12 00:00:00,24,13.3,17.32,-99.9,8.4,3.49
</code>
Мне все еще любопытно, можно ли связать легенды с отдельными элементами сюжета (например, с разными geom_line). Etienne Low-Décarie
@ EtienneLow-D & # xE9; carie Можно, но в целом только если они используют разную эстетику. например сопоставление одного набора линий с цветом, а другого с типом линии. Обычно в этом случае вы также передаете отдельные данные каждому геому. joran
Если у вас есть только 3 строки, я бы посоветовал взглянуть на пакет dirrectlabels.(LINK) Tyler Rinker
@TylerRinker Я использовал его раньше для других целей, но теперь ответ от csgillespie работает лучше для меня pacomet

Ваш Ответ

3   ответа
170

поскольку@Etienne На вопрос, как это сделать без потери данных (что в целом является предпочтительным методом, но я признаю, что в некоторых случаях это невозможно), я представляю следующую альтернативу.

Начнем с подмножества исходных данных:

datos <-
structure(list(fecha = structure(c(1317452400, 1317538800, 1317625200, 
1317711600, 1317798000, 1317884400, 1317970800, 1318057200, 1318143600, 
1318230000, 1318316400, 1318402800, 1318489200, 1318575600, 1318662000, 
1318748400, 1318834800, 1318921200, 1319007600, 1319094000), class = c("POSIXct", 
"POSIXt"), tzone = ""), TempMax = c(26.58, 27.78, 27.9, 27.44, 
30.9, 30.44, 27.57, 25.71, 25.98, 26.84, 33.58, 30.7, 31.3, 27.18, 
26.58, 26.18, 25.19, 24.19, 27.65, 23.92), TempMedia = c(22.88, 
22.87, 22.41, 21.63, 22.43, 22.29, 21.89, 20.52, 19.71, 20.73, 
23.51, 23.13, 22.95, 21.95, 21.91, 20.72, 20.45, 19.42, 19.97, 
19.61), TempMin = c(19.34, 19.14, 18.34, 17.49, 16.75, 16.75, 
16.88, 16.82, 14.82, 16.01, 16.88, 17.55, 16.75, 17.22, 19.01, 
16.95, 17.55, 15.21, 14.22, 16.42)), .Names = c("fecha", "TempMax", 
"TempMedia", "TempMin"), row.names = c(NA, 20L), class = "data.frame")

Вы можете получить желаемый эффект с помощью (и это также очищает исходный код построения):

ggplot(data = datos, aes(x = fecha)) +
  geom_line(aes(y = TempMax, colour = "TempMax")) +
  geom_line(aes(y = TempMedia, colour = "TempMedia")) +
  geom_line(aes(y = TempMin, colour = "TempMin")) +
  scale_colour_manual("", 
                      breaks = c("TempMax", "TempMedia", "TempMin"),
                      values = c("red", "green", "blue")) +
  xlab(" ") +
  scale_y_continuous("Temperatura (C)", limits = c(-10,40)) + 
  labs(title="TITULO")

Идея состоит в том, что каждая строка получает цвет путем сопоставленияcolour Эстетичный для постоянной строки. Выбрать строку, которая должна отображаться в легенде, проще всего. Дело в том, что в данном случае оно совпадает с названиемy отображаемая переменная не имеет значения; это может быть любой набор строк. Очень важно, что это внутриaes вызов; Вы создаете сопоставление с этой «переменной».

scale_colour_manual Теперь можно сопоставить эти строки с соответствующими цветами. Результат enter image description here

В некоторых случаях отображение уровней и цветов необходимо сделать явным, указав значения в ручном масштабе (благодаря@DaveRGP для указания на это):

ggplot(data = datos, aes(x = fecha)) +
  geom_line(aes(y = TempMax, colour = "TempMax")) +
  geom_line(aes(y = TempMedia, colour = "TempMedia")) +
  geom_line(aes(y = TempMin, colour = "TempMin")) +
  scale_colour_manual("", 
                      values = c("TempMedia"="green", "TempMax"="red", 
                                 "TempMin"="blue")) +
  xlab(" ") +
  scale_y_continuous("Temperatura (C)", limits = c(-10,40)) + 
  labs(title="TITULO")

(давая ту же цифру, что и раньше). С именованными значениями разрывы могут быть использованы для установки порядка в легенде, и любой порядок может быть использован в значениях.

ggplot(data = datos, aes(x = fecha)) +
  geom_line(aes(y = TempMax, colour = "TempMax")) +
  geom_line(aes(y = TempMedia, colour = "TempMedia")) +
  geom_line(aes(y = TempMin, colour = "TempMin")) +
  scale_colour_manual("", 
                      breaks = c("TempMedia", "TempMax", "TempMin"),
                      values = c("TempMedia"="green", "TempMax"="red", 
                                 "TempMin"="blue")) +
  xlab(" ") +
  scale_y_continuous("Temperatura (C)", limits = c(-10,40)) + 
  labs(title="TITULO")

@BrianDiggs Вы не знаете, как сделать так, чтобы это показывало точку на шкале, а не линию, не так ли?
@DaveRGP Можно ли считать это ошибкой ggplot?
Мне удалось найти решение проблемы, которую я приобрел ранее: упорядочение цветов. используйте формуscale_colour_manual("", values = c("TempMax" = "red", "TempMedia" = "green", "TempMin" = "blue")) где TempMax, TempMedia и TempMin указаны в качестве цветового аргумента, как в ответе выше.
@StellaBiderman Спасибо. Приятно осознавать, что этот ответ все еще полезен (почти) через 5 лет (!).
Мне нравится это решение, но я думаю, что может быть ограничение. Существует ли проблема алфавитной сортировки между отображением «разрывов»? и «значения»; переменные? TempM {a] x, TempM {e} dia и TempM {i} n сортируются аккуратно, хотя, когда я адаптирую это к своим именам переменных, цвета, кажется, совпадают в алфавитном порядке с «разрывами», а не в порядке вход. Можно ли уточнить выше / уточнить, чтобы отразить / исправить это?
3

Мне очень нравится решение, предложенное @Brian Diggs. Тем не менее, в моем случае я создаю линейные графики в цикле, а не указываю их явно, потому что я не знаю, как много будет у меня графиков. Когда я попытался адаптировать код @ Brian, у меня возникли некоторые проблемы с правильной обработкой цветов. Оказалось, мне нужно было изменить эстетические функции. В случае, если у кого-то есть такая же проблема, вот код, который работал для меня.

Я использовал тот же фрейм данных, что и @Brian:

data <- structure(list(month = structure(c(1317452400, 1317538800, 1317625200, 1317711600, 
                                       1317798000, 1317884400, 1317970800, 1318057200, 
                                       1318143600, 1318230000, 1318316400, 1318402800, 
                                       1318489200, 1318575600, 1318662000, 1318748400, 
                                       1318834800, 1318921200, 1319007600, 1319094000), 
                                     class = c("POSIXct", "POSIXt"), tzone = ""),
                   TempMax = c(26.58, 27.78, 27.9, 27.44, 30.9, 30.44, 27.57, 25.71, 
                               25.98, 26.84, 33.58, 30.7, 31.3, 27.18, 26.58, 26.18, 
                               25.19, 24.19, 27.65, 23.92), 
                   TempMed = c(22.88, 22.87, 22.41, 21.63, 22.43, 22.29, 21.89, 20.52,
                                 19.71, 20.73, 23.51, 23.13, 22.95, 21.95, 21.91, 20.72, 
                                 20.45, 19.42, 19.97, 19.61,), 
                   TempMin = c(19.34, 19.14, 18.34, 17.49, 16.75, 16.75, 16.88, 16.82, 
                               14.82, 16.01, 16.88, 17.55, 16.75, 17.22, 19.01, 16.95, 
                               17.55, 15.21, 14.22, 16.42)), 
              .Names = c("month", "TempMax", "TempMed", "TempMin"), 
              row.names = c(NA, 20L), class = "data.frame")  

В моем случае я генерируюmy.cols а такжеmy.names динамически, но я не хочу усложнять задачу, поэтому я привожу их здесь явно. Эти три строки облегчают упорядочение легенды и назначение цветов.

my.cols <- heat.colors(3, alpha=1)
my.names <- c("TempMin", "TempMed", "TempMax")
names(my.cols) <- my.names

А вот и сюжет:

p <-  ggplot(data, aes(x = month))

for (i in 1:3){
  p <- p + geom_line(aes_(y = as.name(names(data[i+1])), colour = 
colnames(data[i+1])))#as.character(my.names[i])))
}
p + scale_colour_manual("", 
                        breaks = as.character(my.names),
                        values = my.cols)
p

enter image description here

При такой сложности действительно становится намного проще просто преобразовать ваши данные в длинную форму,ggplot надеется.
... и этот подход позволяет разные геомы (типы графиков) по переменным
Я не думаю, что это действительно добавляет сложности по сравнению с оригинальным ответом, опубликованным @Brian. Кроме того, некоторые люди могут захотеть сделать это без изменения данных.
74

Я склонен находить, что, если я указываю отдельные цвета в нескольких географических единицах, я делаю это неправильно. Вот как я бы построил ваши данные:

##Subset the necessary columns
dd_sub = datos[,c(20, 2,3,5)]
##Then rearrange your data frame
library(reshape2)
dd = melt(dd_sub, id=c("fecha"))

Все, что осталось, это простая команда ggplot:

ggplot(dd) + geom_line(aes(x=fecha, y=value, colour=variable)) +
  scale_colour_manual(values=c("red","green","blue"))

Example plot

enter image description here

Мне все еще любопытно, как добавить легенды, связанные с отдельным добавлением элементов, таких как geom_line, что, как я и предполагал, было первоначальной целью вопроса.

Похожие вопросы