所以我有一个数据集,它按照排名对DJ进行排序,他们获得排名的年份,以及在Excel中水平访问之前提到的信息的DJ的名称。
当我绘制我目前正在处理的数据时,它最终显示了一个折线图,其中包含从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 =年份)DJ在2004到2017年的排名中是如何上升或下降的,以及Y轴上的前5名,1-5名在Y轴上的排名。
发布于 2019-06-04 05:52:03
因此,我冒失地提出了一些示例数据。
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")]至于情节,我在想,也许这就是你要找的,每个DJ都用不同的色线表示?
ggplot(Top, aes(x=Year,y=as.numeric(Rank))) +
geom_line(aes(col = DJ)) +
xlab("2004 to 2018") +
ylab("Rank")我不明白你代码的color = "Hardwell"部分是从哪里来的……
https://stackoverflow.com/questions/56434764
复制相似问题