小编mar*_*aro的帖子

ggplot(unique(films2[,c("film","word.len.avg")]) ,aes(film,word.len.avg,fill=film,))+
  geom_bar_pattern(stat="identity", 
                   pattern = 
                     
                     c(
                       "circle", 
                       "stripe",  
                       "none",  
                       "wave", 
                       "crosshatch" 
                     ),
                   pattern_angle = c(rep(45, ), 
                                     rep(60, ), 
                                     rep(45, ),
                                     rep(45, ),
                                     rep(45,)),
                   fill            = 'white',
                   colour          = 'black', 
                   pattern_density = .35, 
                   pattern_fill    = 'darkblue',
                   pattern_colour  = 'darkblue'
                   
  ) +
  scale_x_discrete(breaks = c("dial.m.for.murder", "pscyho", "rear.window", "rope", "vertigo"), 
                   labels = c("Dial M for Murder", "Psycho", "Rear Window", "Rope", "Vertigo"))+
  theme_bw() +
  aes(pattern = film)+
theme(legend.position = "right") + 
  coord_fixed(ratio = 1.5)+
  scale_pattern_spacing_discrete(range = c(0.01, 0.05)) 

您好，我有上面带有图案填充的条形图的代码。请参阅下面的相关图片。这是我从堆栈溢出的各种来源拼凑而成的代码，我很高兴它最终起作用了，因为我现在终于有了五个条形图，每个条形图都有不同的填充模式。然而，很明显，这些模式不一定与特定的胶片相关（胶片有五个值）。我想知道如何将图案填充映射到特定的影片，因为目前图例不会显示，我假设这是因为这个（即事情没有正确映射？）。任何建议将不胜感激。马罗

只是补充一下，我在网上发现了这个https://evamaerey.github.io/flipbooks/ggpattern/ggpattern#28，它可以实现我想要的功能，但看起来不如上面的那么好。现在就这样了，但是如果有人对如何将两者结合起来，或者如何调整上面的代码以便我可以获得要显示的密钥有任何建议，那也将不胜感激！谢谢你！！！