Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/84.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R ggplot2手动图例未显示_R_Ggplot2 - Fatal编程技术网

R ggplot2手动图例未显示

R ggplot2手动图例未显示,r,ggplot2,R,Ggplot2,我已经在互联网站上搜索了很久,想知道为什么我不能在ggplot2中添加图例 g.2plot1<-ggplot(input_csv,aes(x=R_OD_MONTH,y=DAMWAMT))+ geom_line(colour = "black")+ geom_line(aes(x=R_OD_MONTH,y = SCALED_PERCENT_MW), colour = "blue") + scale_colour_manual(name="Legend", values = c("black"

我已经在互联网站上搜索了很久,想知道为什么我不能在ggplot2中添加图例

g.2plot1<-ggplot(input_csv,aes(x=R_OD_MONTH,y=DAMWAMT))+
geom_line(colour = "black")+
geom_line(aes(x=R_OD_MONTH,y = SCALED_PERCENT_MW), colour = "blue") +
scale_colour_manual(name="Legend", values = c("black", "blue")) +
scale_linetype_manual(name="Legend", values = c("dashed", "dotted")) 

g.2plot1

传说是为了美观而画的。由于
颜色
在您的案例中不是一种美学,因此没有图例。诀窍是将数据从宽格式(每种类型的数据都有自己的列)转换为长格式(有一列指示数据类型,有一列给出相应的值)。具体做法如下:

library(reshape2)
plot.data <- melt(input_csv,
    id="R_OD_MONTH",measure=c("DAMWAMT","SCALED_PERCENT_MW"))

最后两行显示如何添加打印标题、更改轴标签和图例标题(
labs()
),以及更改图例中的标签(
scale\u color\u discrete
)。

图例是为了美观而绘制的。由于
颜色
在您的案例中不是一种美学,因此没有图例。在没有数据的情况下回答你的问题有点复杂。您是否可以发布一些数据,例如通过发布
dput(head(input\u csv))
的输出?您是否可以给出前10行input\u csv?我们不能回答没有看到您的数据一般…原始文章编辑与数据好,我想我会得到与程序,并做它的正确方式。谢谢现在,我正在四处搜索一种方法来更改图例中的标签,而不更改颜色,因为默认选择比手动选择要好得多:)。我添加了更改标签的代码。ggplot2一开始可能看起来有点复杂(对我来说是…),但在我看来,它是在R中绘图的最佳选择。它绝对值得花一些精力来正确地学习它。是一个很好的关于ggplot2信息和示例的资源。谢谢,我想我试过了,但显然没有。现在可以了。
library(reshape2)
plot.data <- melt(input_csv,
    id="R_OD_MONTH",measure=c("DAMWAMT","SCALED_PERCENT_MW"))
ggplot(plot.data,aes(x=R_OD_MONTH,y=value,colour=variable)) + geom_line() +
   labs(title="My plot",x="x-axis",y="y-axis",colour="colours") +
   scale_colour_discrete(labels=c("this","that"))