R ggplot组合线型和填充图例

你知道如何组合线型和填充图例吗

这是我的数据集：

values <- runif(1200, 1, 100)
ind <- as.factor(rep(c(1:6), each=200))
inout <- as.factor(rep(c(1:2), each =600))
df <- data.frame(values,ind,inout)

ggplot(df) + 
geom_density(aes(x=values, y=..density..*100, group=interaction(ind,inout), linetype=factor(inout), colour=ind), size =1, alpha=1,na.rm = TRUE) +
geom_density(aes(x=values, y=..density..*100, group=inout, linetype=factor(inout), fill=factor(inout)), alpha=.4)

---

值使用手动刻度，并确保它们都有相同的名称和标签（类似的想法）：

非常感谢您。
ggplot(df, aes(x=values, y=..density..*100, linetype=factor(inout))) + 
  geom_density(aes(group=interaction(ind, inout), colour=ind), 
               size=1, alpha=1, na.rm=TRUE) +
  geom_density(aes(group=inout, fill=factor(inout)), alpha=.4) + 
    scale_fill_manual(name = "fancy curves", labels = 1:2, values = c("red", "blue")) + 
    scale_linetype_manual(name = "fancy curves", labels = 1:2, values = 1:2)