Блог

Я хочу получить легенду для этих кодов, используя ggplot2, но мне трудно это сделать

Вот мои коды

 qote<- function(x,a) { 
    z<- (x^3 a)-10
    return(z)}
m1 <- c(0.5, -.5)
n2 <- c("blue","red")[seq_along(m1)]
gg<- ggplot(data = data.frame(x = c(-2, 2)), aes(x)) 
    theme(legend.position = c(-1,-0.9))
for (i in seq_along(m1)){  
    gg <- gg  stat_function(fun = qote, color=n2[i], args=list(a=m1[i]))   
}
gg 

Я хочу получить легенду для этих двух кривых внутри графика (вверху слева).:
синяя кривая = Время 1; Красная кривая = время 2. Я хочу сохранить коды, простой код с использованием ggplot2 был бы очень хорош, если это вообще возможно. Пожалуйста, также учтите, что я могу увеличить кривые до 7.

Вы можете сделать это, установив aes(color) , а затем добавив scale_color_manual :

 ggplot(tibble(x = c(-2, 2)), aes(x))  
  map(1:length(m1), 
      ~stat_function(fun = qote, aes(color = paste0("Time ", .)), args=list(a=m1[.])))  
  scale_color_manual("curve legend", values = n2)
 

* Хорошо использовать цикл for тоже, я просто обнаружил, что с ним легче писать map .

Редактировать комментарии для каждой операции для версии цикла с измененными условными обозначениями:

 qote<- function(x,a) { 
  z<- (x^3 a)-10
  return(z)}
m1 <- c(0.5, -.5)
n2 <- c("blue","red")

gg <- ggplot(data.frame(x = c(-2, 2)), aes(x)) 

for (i in seq_along(m1)) {
  gg <- gg   
    stat_function(fun = qote, aes_(color = paste0("Time ", i)), args=list(a = m1[i]))
} 

gg   scale_color_manual("curve legend", values = n2)