R 时间序列图（ggplot）上的线型

我想在timeseries绘图上应用不同的线型模型。这是一个使用类似于我的数据/代码的结构的可复制示例。假设我想要实线代表女人，虚线代表男人

source("http://www.openintro.org/stat/data/arbuthnot.R")
library(ggplot2)
library(reshape2)

names(arbuthnot) <- c("Year", "Men", "Women")

arbuthnot.melt <- melt(arbuthnot, id.vars = 'Year', variable.name = 'Sex', 
                       value.name = 'Rate')
ggplot(arbuthnot.melt, aes(x = Year, y = Rate, shape = Sex, color = Sex))+
  geom_line() + scale_color_manual(values = c("Women" = '#ff00ff','Men' = '#3399ff')) + 
  scale_linetype_manual(values = c('Women' = 'solid', 'Men' = 'dotted'))

源代码（“http://www.openintro.org/stat/data/arbuthnot.R")
图书馆（GG2）
图书馆（E2）
名称（arbuthnot）尝试


线型是美学映射的一部分，因此它需要包含在
aes
-元素中。
“线型是美学映射的一部分”，这将解决我的几个问题。非常感谢。
ggplot(arbuthnot.melt, aes(x = Year, y = Rate, shape = Sex, color = Sex, linetype = Sex))+
  geom_line() + scale_color_manual(values = c("Women" = '#ff00ff','Men' = '#3399ff')) + 
  scale_linetype_manual(values = c('Women' = 'solid', 'Men' = 'dotted'))