Построение нескольких кривых на одном графике R, ggplot

@fier · Регистрация: 05.08.2013

Author24 — интернет-сервис помощи студентам

Добрый день!

Библиотека ggplot в R служит для удобного построения графиков.
Можно построить несколько категорийных кривых на одном графике.
Причём вариантов построения == написания кода для этого, по крайней мере несколько.
Вот только графики получаются различные, хотя, кажется, что всё правильно.

Вариант №1:

Lisp

#data - исходные данные
#исходынй массив преобразуем в длинный формат (пример после кода)
melted_data<-melt(data,id = "name_error_value")
melted_example<-ggplot(melted_data, aes(x = name_error_value, y = value, colour = variable, group =1)) + 
  geom_line() + 
  ylab(label="Number of errors") + 
  xlab(label = "Name of error") + 
  scale_colour_manual(values=rainbow(3))
plot(melted_example)

Результат, построения, применяя вариант №1 (к сожалению, видно не все категории, т.к. стоит ограничение по разрешению изображения):

Построение нескольких кривых на одном графике R, ggplot

Вариант №2:

Lisp

#data - исходные данные
#здесь мы работаем с исходным массивом данных
gg_plot_example<-ggplot(T_summary_true_name_value_index, aes(data$name_error_value)) + 
  geom_line(aes(y = data$`200`, colour = "200", group = 1)) + 
  geom_line(aes(y = data$`400`, colour = "400", group = 1)) +
  geom_line(aes(y = data$`431`, colour = "431", group = 1)) + 
  ylab(label="Number of errors") + 
  xlab(label = "Name of error") + 
  scale_colour_manual(values=rainbow(3))
plot(gg_plot_example)

Результат, построения, применяя вариант №2:

Собственно, график должен быть именно таким, как во 2-м варианте.

Исходные данные (data):
T_summary_true_name_value_index.xlsx

Данные, после применения функции melt:
melted_data.xls

Вероятно, что я упускаю что-то. Подскажите пожалуйста, кто знает.

@fier · 12.03.2018, 17:57 **[ТС]**

Таки разобрался.
Надо устанавливать параметр group, равным массиву с индексами n-й кривой.

Т.е. верно будет так:

Lisp

#data - исходные данные
#исходынй массив преобразуем в длинный формат (пример после кода)
melted_data<-melt(data,id = "name_error_value")
melted_example<-ggplot(melted_data, aes(x = name_error_value, y = value, colour = variable, group =variable)) + 
  geom_line() + 
  ylab(label="Number of errors") + 
  xlab(label = "Name of error") + 
  scale_colour_manual(values=rainbow(3))
plot(melted_example)

	12.03.2018, 17:57

Опции темы