Hi,

I have a data for tracking attendance of teachers. In the sample data I have given the variable `attendance`

. 1 means attended and 2 means absent. Now I need to get a bar chart where I get the Instructors name on the X-axis and the average attendance % on the Y-axis with different bars showing different weeks (like doing `position_dodge`

. How can I get such a bar chart?

```
library(tidyverse)
library(janitor)
data<-tibble::tribble(
~master, ~teacher, ~week, ~attendance,
"Madhumathi", "Vinayak", 1L, 2L,
"Nagma", "Ganesh", 1L, 1L,
"Anil", "Nithin", 1L, 1L,
"Madhumathi", "Vinayak", 1L, 1L,
"Nagma", "Ganesh", 1L, 2L,
"Anil", "Nithin", 1L, 2L,
"Madhumathi", "Vinayak", 1L, 2L,
"Nagma", "Ganesh", 1L, 1L,
"Anil", "Nithin", 1L, 2L,
"Madhumathi", "Vinayak", 2L, 2L,
"Nagma", "Ganesh", 2L, 2L,
"Anil", "Nithin", 2L, 2L,
"Madhumathi", "Vinayak", 2L, 1L,
"Nagma", "Ganesh", 2L, 2L,
"Anil", "Nithin", 2L, 2L,
"Madhumathi", "Vinayak", 2L, 1L,
"Nagma", "Ganesh", 2L, 1L,
"Anil", "Nithin", 2L, 2L
)
```