ggplot结合线型和填充图例

Question

你是如何组合线型和填充图例的方法??

这是我的数据集：

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)

原始情节：

我想结合传奇＆＃34;因素（inout）＆＃34;和传奇＆＃34; NA＆＃34;。

感谢您的帮助。

Answer 1

使用手动缩放并确保它们具有相同的名称和标签（类似的想法here）：

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)