Resolved: Removing the legend from ggpattern

#remotes::install_github("coolbutuseless/ggpattern")<br />
#library(ggpattern)<br />
#library(ggplot2)</p>
<p>ex<-data.frame(Product=c("Apple","Apple","Apple","Banana","Banana","Banana","Carrot","Carrot","Carrot"),
               Price=c(1,2,3,2,5,3,4,2,3),
               Category=c("Fruit","Fruit","Fruit","Fruit","Fruit","Fruit","Vegetable","Vegetable","Vegetable"),
               Location=c("A1","A1","B1","B1","A1","B1","A1","B1","A1"))
ex
#  Product Price  Category Location
#1   Apple     1     Fruit       A1
#2   Apple     2     Fruit       A1
#3   Apple     3     Fruit       B1
#4  Banana     2     Fruit       B1
#5  Banana     5     Fruit       A1
#6  Banana     3     Fruit       B1
#7  Carrot     4 Vegetable       A1
#8  Carrot     2 Vegetable       B1
#9  Carrot     3 Vegetable       A1

ggplot(ex, aes(x = Location, y=Price, fill = Product, pattern = Category)) +
  geom_bar_pattern(stat='identity', position = position_dodge(preserve = "single"),
                   color = "black", 
                   pattern_fill = "black",
                   pattern_angle = 45,
                   pattern_density = 0.05,
                   pattern_spacing = 0.025,
                   pattern_key_scale_factor = 0.8) + 
  scale_pattern_manual(values = c(Vegetable = "stripe", Fruit = "none")) +
  guides(pattern = guide_legend(override.aes = list(fill = "white")),
         fill = guide_legend(override.aes = list(pattern = "none")))+
  theme_bw()+
  theme(text=element_text(size=13))
[/code]

</p>



<a href="https://i.stack.imgur.com/cqxXQ.png" rel="nofollow noreferrer"><img decoding="async" src="https://i.stack.imgur.com/cqxXQ.png" alt="enter image description here"></a><br> 



(Please ignore the horizontal line and left-aligned bar in bar plot.)<br> 



In this case, I want to remove the legend for Category.<br>
And if possible, I'd like to combine the dash in product legend.<br>
How can I do this work?
<a href="https://i.stack.imgur.com/AUoGD.png" rel="nofollow noreferrer"><img decoding="async" src="https://i.stack.imgur.com/AUoGD.png" alt="enter image description here"></a><br> 



<h2>Answer:</h2>



Perhaps like this?<br> 


<p>[code]library(tidyverse)<br />
library(ggpattern)</p>
<p>ex<-data.frame(Product=c("Apple","Apple","Apple","Banana","Banana","Banana","Carrot","Carrot","Carrot"),
               Price=c(1,2,3,2,5,3,4,2,3),
               Category=c("Fruit","Fruit","Fruit","Fruit","Fruit","Fruit","Vegetable","Vegetable","Vegetable"),
               Location=c("A1","A1","B1","B1","A1","B1","A1","B1","A1"))
ex
#>   Product Price  Category Location<br />
#> 1   Apple     1     Fruit       A1<br />
#> 2   Apple     2     Fruit       A1<br />
#> 3   Apple     3     Fruit       B1<br />
#> 4  Banana     2     Fruit       B1<br />
#> 5  Banana     5     Fruit       A1<br />
#> 6  Banana     3     Fruit       B1<br />
#> 7  Carrot     4 Vegetable       A1<br />
#> 8  Carrot     2 Vegetable       B1<br />
#> 9  Carrot     3 Vegetable       A1<br />
#  Product Price  Category Location<br />
#1   Apple     1     Fruit       A1<br />
#2   Apple     2     Fruit       A1<br />
#3   Apple     3     Fruit       B1<br />
#4  Banana     2     Fruit       B1<br />
#5  Banana     5     Fruit       A1<br />
#6  Banana     3     Fruit       B1<br />
#7  Carrot     4 Vegetable       A1<br />
#8  Carrot     2 Vegetable       B1<br />
#9  Carrot     3 Vegetable       A1</p>
<p>ggplot(ex, aes(x = Location, y=Price, fill = Product, pattern = Category)) +<br />
  geom_bar_pattern(stat='identity', position = position_dodge(preserve = "single"),<br />
                   color = "black",<br />
                   pattern_fill = "black",<br />
                   pattern_angle = 45,<br />
                   pattern_density = 0.05,<br />
                   pattern_spacing = 0.025,<br />
                   pattern_key_scale_factor = 0.8) +<br />
  scale_pattern_manual(values = c(Vegetable = "stripe", Fruit = "none"),<br />
                       guide = "none") +<br />
  guides(fill = guide_legend(override.aes = list(pattern = c("none", "none", "stripe")))) +<br />
  theme_bw()+<br />
  theme(text=element_text(size=13))