时间系列图上的线型（ggplot）

Question

我想在时间序列图上应用不同的线型模型。这是一个可重复的示例，使用类似于我的数据/代码的结构。让我们说我想要女性的实线和男性的虚线。

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'))

我已经被困在这里很久了，我尝试了其他语法，例如c(0,4)，scale_linetype_manual(values = c('Women' = 1, 'Men' = 4))，scale_shape_manual等等。我真的不明白为什么{{1这里不起作用。任何帮助将不胜感激。

Answer 1

尝试

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'))

线型是审美映射的一部分，因此需要包含在aes - 元素中。