R Легенда не отображается в сюжете

Question

У меня есть следующий код R для простого графика:

ExperimentDataNames = c('Count', 'HumanData', 'ActualPrices')
ExperimentData <- read_csv("/Users/justin_chudley/desktop/ExperimentData.csv", col_names = ExperimentDataNames)

x <- Count <- ExperimentData$Count
y <- HumanData <- ExperimentData$HumanData
y1 <- ActualPrices <- ExperimentData$ActualPrices

plot(x,y, type = "l", xlab="Trial Number",ylab="$USD",main="Dow Jones Price vs Human Experiment")
lines(x,y1, type = "l", col=2)
legend=c('Human Data', 'Actual Prices') 

По какой-то причине легенда вообще не отображается на этом сюжете:

Почему моя легенда не показывается?

Answer 1

С помощью вашей кодировки вы присвоили вектор символов объекту с именем legend.

Чтобы добавить легенду, необходимо использовать функцию legend().

legend(x = 10, y = 4e5, 
       col = c("black", "red"), lty = 1, lwd = 1,
       legend = c('Human Data', 'Actual Prices'))

Вы можете использовать эвристический подход, изменяя значения в x и y, пока не найдете подходящую позицию. В качестве альтернативы, вы также можете установить x на одно из нескольких предопределенных значений:

legend(x = "top",
       col = c("black", "red"), lty = 1, lwd = 1,
       legend = c('Human Data', 'Actual Prices'))

Другие варианты: x: «внизу», «внизу», «внизу слева», «слева», «вверху», «вверху», «вправо» или «в центре».