Untitled

# Load ggplot2
library(ggplot2)

# Load ggpattern
library(ggpattern)

# Load (hrbrthemes
library(hrbrthemes)

# Create data
data <- data.frame(
  name=c("高","陳","林","黃","王") ,  
 frequence =c(3,12,5,18,15)
  )

# Barplot
ggplot(data, aes(x=name, y=frequence)) + 
 geom_col_pattern(
    aes(pattern=name,
        pattern_angle=name,
        pattern_spacing=name
        ), 
    fill            = 'white',
    colour          = 'black', 
    pattern_density = 0.5, 
    pattern_fill    = 'black',
    pattern_colour  = 'darkgrey'
  ) +
  theme_bw()