R ggplot图例中的虚线
我想设置图例的线型 我的数据如下:R ggplot图例中的虚线,r,ggplot2,legend,R,Ggplot2,Legend,我想设置图例的线型 我的数据如下: VisitMonth VisitYear CaixaForum MNAC FirstDay 1: 01 2007 NA 7125 2007-01-01 2: 02 2007 NA 5345 2007-02-01 3: 03 2007 NA 4996 2007-03-01 4: 04 20
VisitMonth VisitYear CaixaForum MNAC FirstDay
1: 01 2007 NA 7125 2007-01-01
2: 02 2007 NA 5345 2007-02-01
3: 03 2007 NA 4996 2007-03-01
4: 04 2007 NA 5476 2007-04-01
5: 05 2007 NA 6160 2007-05-01
---
98: 02 2015 17903 2360 2015-02-01
99: 03 2015 30400 2930 2015-03-01
100: 04 2015 25422 3088 2015-04-01
101: 05 2015 10787 2130 2015-05-01
102: 06 2015 3679 2047 2015-06-01
我想绘制CaixaForum和MNAC专栏的时间序列。我有以下代码:
ggplot(data = MUSEUMS, aes(x = FirstDay, y = MNAC)) +
geom_line(size=0.75, aes(x = FirstDay, y = MNAC, colour = "MNAC")) +
geom_line(size=0.75, aes(y = CaixaForum, colour = "CaixaForum"), linetype = "dashed") +
labs(title = "", x = "", y = "Monthly Visitors") + theme_bw() +
theme(legend.title = element_text(size=16, face="bold"), legend.direction = "horizontal",
legend.position=c(0.5, 1.05), text = element_text(size=20)) +
scale_colour_manual(name="Legend",values=c(MNAC="black", CaixaForum="black"))
如您所见,无法区分图例中的两种线型:
我怎样才能修好
我在stackoverflow中对其他答案进行了编码,但它们没有起作用。我创建了一些随机数据来演示解决方案
library(reshape2)
df <- data.frame(a=rnorm(10), b=rnorm(10), x=1:10, other_data=rnorm(10))
mdf <- melt(df, id.vars='x', measure.vars=c('a','b'))
ggplot(mdf, aes(x, value, linetype=variable)) + geom_line()
library(重塑2)
df您可以切换到在两点图层中使用linetype
而不是color
,因为您实际上没有对图形中的任何内容使用color
它看起来是这样的:
ggplot(data = MUSEUMS, aes(x = FirstDay, y = MNAC)) +
geom_line(size=0.75, aes(x = FirstDay, y = MNAC, linetype = "MNAC")) +
geom_line(size=0.75, aes(y = CaixaForum, linetype = "CaixaForum")) +
labs(title = "", x = "", y = "Monthly Visitors") + theme_bw() +
theme(legend.title = element_text(size=16, face="bold"), legend.direction = "horizontal",
legend.position=c(0.5, 1.05), text = element_text(size=20)) +
scale_linetype_manual(name="Legend",values=c(MNAC="solid", CaixaForum="dashed"))
如果出于某种原因确实想使用现在使用的方法,可以通过在图形中添加以下行,通过guide\u legend
中的override.aes
获得所需的行:
guides(color = guide_legend(override.aes = list(linetype = c("solid", "dashed"))))
我也有同样的问题。我认为这与图例线太小而无法显示虚线有关。添加:
theme(legend.key.size=unit(3,"lines"))
为我修复了它。您可以使用restrape2
包中的melt
将数据转换为长格式。您将得到两列variable
和value
。然后,您将美学更改为y=value
和linetype=variable
@drmariod…如果他们也想在图例中使用,您可能也指linetype=variable
,它们看起来是这样的。您缺少的更大的图片是,当您将美学映射到aes()
中数据中的变量时,图例中会出现一些东西。是的,我关注的是颜色,而不是线型。。。现在更改它并提供了一个示例。