Import data
# excel file
data <- read_excel("data/myData.xlsx")
## New names:
## • `` -> `...2`
## • `` -> `...3`
## • `` -> `...4`
## • `` -> `...5`
## • `` -> `...6`
## • `` -> `...7`
## • `` -> `...8`
## • `` -> `...9`
## • `` -> `...10`
## • `` -> `...11`
## • `` -> `...12`
data
## # A tibble: 196 × 12
## myData ...2 ...3 ...4 ...5 ...6 ...7 ...8 ...9 ...10 ...11 ...12
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 NA Breed 2013… 2014… 2015… 2016… 2017… 2018… 2019… 2020… links Image
## 2 1 Retriever… 1 1 1 1 1 1 1 1 http… http…
## 3 2 French Bu… 11 9 6 6 4 4 4 2 http… http…
## 4 3 German Sh… 2 2 2 2 2 2 2 3 http… http…
## 5 4 Retriever… 3 3 3 3 3 3 3 4 http… http…
## 6 5 Bulldogs 5 4 4 4 5 5 5 5 http… http…
## 7 6 Poodles 8 7 8 7 7 7 6 6 http… http…
## 8 7 Beagles 4 5 5 5 6 6 7 7 http… http…
## 9 8 Rottweile… 9 10 9 8 8 8 8 8 http… http…
## 10 9 Pointers … 13 12 11 11 10 9 9 9 http… http…
## # … with 186 more rows
Plot data
data %>%
ggplot(aes(NA)) +
geom_bar()
