Итак, я взял на себя смелость привести некоторые примеры данных.
DJMAG_MOdified <- data.frame(Year=rep(2004:2018,3),
Rank=runif(45,0,1),
DJ=rep(c("A","B","C"),each=15),
Other=runif(45,0,1))
Я специально добавил столбец Other
, поэтому мы по-прежнему подгруппируем его, как и вы.Вместо вашего метода, который был бы:
Top <-data.frame(DJMAG$Year, DJMAG$Rank , DJMAG$DJ)
names(Top) <- c("Year","Rank","DJ")
Было бы предпочтительно иметь его в одной строке, где вам не нужно изменять имена столбцов следующим образом:
Top <- DJMAG_MOdified[,c("Year","Rank","DJ")]
Что касается графика, Я думаю, может быть, это то, что вы ищете, где каждый диджей представлен разноцветной линией?
ggplot(Top, aes(x=Year,y=as.numeric(Rank))) +
geom_line(aes(col = DJ)) +
xlab("2004 to 2018") +
ylab("Rank")
Я не понял, откуда взялась часть color = "Hardwell"
вашего кода ...