ggplot: AES vs AES string или как программно указать имена столбцов?

предположим у нас есть следующий фрейм данных

data <- data.frame(time=1:10, y1=runif(10), y2=runif(10), y3=runif(10))

и мы хотим создать сюжет такой:

p <- ggplot(data, aes(x=time))
p <- p + geom_line(aes(y=y1, colour="y1"))
p <- p + geom_line(aes(y=y2, colour="y2"))
p <- p + geom_line(aes(y=y3, colour="y3"))
plot(p)

но что, если у нас гораздо больше столбцов "y", и мы не знаем их точного названия. Возникает вопрос: как мы можем перебирать все столбцы программно и добавлять их в график? В основном цель:

otherFeatures <- names(data)[-1]
for (f in otherFeatures) {
  # what goes here?
}

Неудачных Попыток

до сих пор я нашел много способов, что делать не работать. Например (все следующие примеры показывают только строку кода в приведенном выше цикле for):

моя первая попытка была просто использовать aes_string вместо aes для того, чтобы указать имя столбца с переменной цикла f:

p <- p + geom_line(aes_string(y=f, colour=f))

но это не дает того же результата, потому что теперь colour не будет фиксированным цветом для каждой строки (aes_string растолкует f в среде фрейма данных). В результате легенда станет цветовой полосой, и делает не содержит разных имен столбцов. Моей следующей догадкой было mix aes и aes_string, пытаясь установить colour фиксированная строка:

p <- p + geom_line(aes_string(y=f), aes(colour=f))

но это Error: ggplot2 doesn't know how to deal with data of class uneval. Моей следующей попыткой было использовать colour "абсолютно" (не в пределах aes) такой:

p <- p + geom_line(aes_string(y=f), colour=f)

но это дает Error: invalid color name 'y1' (и я не хочу выбирать некоторые правильные имена цветов вручную). Следующей попыткой было вернуться в aes только с использованием ручного подход:

p <- p + geom_line(aes(y=data[[f]], colour=f))

это не дает ошибки, но будет отображать только последний столбец. Это имеет смысл, так как aes вероятно, называть substitute, и выражение всегда будет оцениваться с последним значением f в цикле (rm f перед вызовом plot(p) дает ошибку, указывая, что оценка происходит после петли).

перефразируя вопрос: Что за substitute/eval/quote магия нужна для скопировать простой код сверху в петлю?