Как сделать geom_line с 3 разными параметрами - PullRequest
0 голосов
/ 04 июня 2019

Итак, у меня есть набор данных, который сортирует диджеев по рангу, году, в который они получили это звание, и имени диджея, который получил ранее упомянутую информацию о горизонтальном доступе в Excel.

Когда я строю данные, с которыми я сейчас работаю, в конечном итоге отображается линейный график с вертикальной линией от 1 до 5 для каждого года, и я не уверен, что делать дальше.

library(ggplot2)
library(plyr)

DJMAG <- DJMAG_MOdified

Top <-data.frame(DJMAG$Year, DJMAG$Rank , DJMAG$DJ)

names(Top) <- c("Year","Rank","DJ")

ggplot(Top, aes(Top$Year)) + 
  geom_line(aes(y = as.numeric(Top$Rank), color = "Hardwell")) + xlab("2004 to 2018") + ylab("Rank")

Нет сообщений об ошибках, но я пытаюсь показать с этими данными, как (X = год) ди-джеев с их собственным линейным сюжетом увеличивался или уменьшался в рейтинге с 2004 по 2017 год и в рейтинге топ-5, 1 -5 по оси Y с перевернутой осью Y.

1 Ответ

0 голосов
/ 04 июня 2019

Итак, я взял на себя смелость привести некоторые примеры данных.

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" вашего кода ...

...