Цветовая индикация на графике R

#r

#r

Вопрос:

Пытаюсь добавить примечание внизу графика R plot, чтобы показать, какой цвет и тип линии использовались на графике, который представляет for . Пытался использовать функцию mtext (), но это позволяет мне добавлять только текст, а не тип строки. Есть ли способ добавить эти цветовые заметки? введите описание изображения здесь

Комментарии:

1. Привет, Джейсон. Это базовый график R? Это изображение, которое вы создали, или это то, что вы пытаетесь создать? Возможно, небольшой образец ваших данных и кода для построения графика позволит другим помочь вам?

2. ПРИВЕТ, это просто базовый график R.

Ответ №1:

Попробуйте этот подход. Пожалуйста, в следующий раз следуйте советам @AllanCameron. Есть много людей, желающих вам помочь, но нам нужно проанализировать ваши данные, чтобы обнаружить проблему. Здесь я использовал некоторые фиктивные данные, аналогичные тем, которые показаны на графике. Далее подход к вашей проблеме. Если вам нужно описание вашего ряда данных, вы можете добавить легенду. Это можно сделать также с помощью ggplot2 , который используется в реальном коде:

 library(ggplot2)
#Data
df <- data.frame(Year=2000:2009,
                 Positive=runif(10,0,1),
                 Negative=runif(10,-1,0),
                 Average=cumsum(seq(-0.5,1,length.out = 10)))
#Plot
ggplot(df,aes(x=factor(Year),y=Positive)) 
  geom_line(aes(y=Average,group=1,color='Average'),size=1) 
  geom_bar(stat='identity',color='black',aes(fill='Positive'),show.legend = T) 
  geom_bar(aes(y=Negative,fill='Negative'),stat='identity',color='black') 
  scale_fill_manual("",values=c('red','blue','white')) 
  scale_color_manual("",values = 'black') 
  theme_bw() 
  theme(legend.position = 'bottom',legend.key.height = unit(0.001,'mm')) 
  xlab('Year') labs(caption = 'Your Info')
  

Вывод:

введите описание изображения здесь

Вы можете изменить размер ключа, чтобы сделать его тоньше.