Создайте линейный график с несколькими линиями в R

Я хочу построить данные переписи, чтобы сравнить данные для каждой расы за несколько лет.

В моем фрейме данных 1950-2010 годы (каждые 10 лет) в виде строк и гонки в виде столбцов. Данные в поперечном сечении представляют собой процент этой гонки в данном году.

Я хочу, чтобы мой линейный график отображал годы по оси x и гонки по оси y. Таким образом, с моими 5 переменными «расы» на одном графике будет 5 линий разных цветов.

Я пытался смотреть видео и обыскивать все здесь, но ничего из того, что я нашел, похоже, не работает так, как я хочу.

Редактировать: я выполнил рефакторинг кода и построил свой собственный фрейм данных вместо того, чтобы возвращать матрицу.

Тем не менее, я хочу, чтобы с правой стороны было написано «Гонка», а затем были мои 5 строк. Я работаю над тем, чтобы одна строка отображалась вообще, прежде чем делать остальные 4.

новый фрейм данных возвращенный сюжет

Изменить: я до сих пор понял в своем коде - Allston <- ggplot(data = dataAllston, aes(Year, White.pct, group = 1)) + geom_point(aes(color = "orange")) + geom_line(aes(color = "orange"))

Я хочу масштабировать ось Y и от 0 до 1 с шагом 0,2, чтобы Y был «Гонкой» вместо отдельных меток. И больше, чем просто перемаркировка — я хочу, чтобы график отображал фактическое увеличение/уменьшение, а не прямую линию по диагонали вниз, как сейчас.

Я думаю, что мне потребуется больше времени, чтобы научиться создавать воспроизводимый код, чем вносить изменения.

новый возвращенный сюжет

Редактировать:

dput(dataAllston)

возвращается

structure(list(Year = c(1950, 1960, 1970, 1980, 1990, 2000, 2010
), White.pct = structure(7:1, .Label = c("57.0", "59.0", "63.0", 
"78.0", "90.8", "98.0", "98.3"), class = "factor"), BlackOrAA.pct = 
structure(c(2L, 
1L, 3L, 4L, 5L, 4L, 4L), .Label = c("1.20", "1.30", "2.60", "5.00", 
"9.00"), class = "factor"), Hispanic.pct = structure(c(1L, 1L, 
3L, 4L, 2L, 2L, 2L), .Label = c("0.00", "13.0", "3.10", "6.00"
), class = "factor"), AsianOrPI.pct = structure(c(1L, 1L, 5L, 
6L, 2L, 3L, 4L), .Label = c("0.00", "14.0", "18.0", "20.0", "3.20", 
"9.00"), class = "factor"), Other.pct = structure(c(2L, 1L, 3L, 
4L, 5L, 4L, 4L), .Label = c("1.20", "1.30", "2.60", "5.00", "9.00"
), class = "factor")), class = "data.frame", row.names = c(NA, 

-7L))

результат из dput(data)