如何将变量值映射到图案填充 - ggplot / ggpattern (

Question

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，它可以实现我想要的功能，但看起来不如上面的那么好。现在就这样了，但是如果有人对如何将两者结合起来，或者如何调整上面的代码以便我可以获得要显示的密钥有任何建议，那也将不胜感激！谢谢你！！！

Answer 1

当您将事物设置在aes它之外时，就像将它们设置在图例之外一样。

如果有一些东西，比如角度或图案，你愿意失去控制，你可以把它变成一个传说。例如：

ggplot(unique(films2[,c("film","word.len.avg")], aes(film, word.len.avg,)) + 
  geom_col_pattern(aes(pattern = film, fill = film, 
                       pattern_angle = film, pattern_spacing = film),
                   fill            = 'white',
                   colour          = 'black',
                   pattern_density = .35,
                   pattern_fill    = 'darkblue',
                   pattern_colour  = 'darkblue') +
  theme_bw() +
  theme(legend.position = "right") + 
  coord_fixed(ratio = 1.5)+
  scale_pattern_spacing_discrete(range = c(0.01, 0.05))

您可能已经注意到我使用了geom_col_pattern().

我看到你aes(pattern = film)这条线没有做任何事情，它需要绑定到geom_orstat_调用。

如果您设置了变量的呈现方式，则可以使用 scale_color_manual和scale_fill_manual调用来执行此操作。

例如：

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(45, 60, rep(45, 3)),
                   # fill            = 'white',
                   colour          = 'black', 
                   pattern_density = .35, 
                   pattern_fill    = 'darkblue',
                   pattern_colour  = 'darkblue'
                   
  ) + scale_fill_manual(values = setNames(c("darkred", "darkblue", "white", 
                                                    "lightyellow", "gray"),
                                                  unlist(df$film))) +
  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") + scale_pattern_fill_viridis_c() +
  coord_fixed(ratio = 1.5)+
  scale_pattern_spacing_discrete(range = c(0.01, 0.05))