https://www.kaggle.com/shivamb/netflix-shows-and-movies-exploratory-analysis/notebook contains the data set. (File size - 2.13 MB).
I am trying to plot the top twenty category of contents that are provided by Netflix.
The code that I have tried is as follows,
library(tidyverse)
library(lubridate)
net_flix <- read.csv("netflix_titles_nov_2019.csv")
net_flix %>% separate_rows(listed_in, sep = ",")%>%
count(listed_in)%>%
slice_max(n, n = 20)%>%
ggplot(aes(y = fct_reorder(listed_in, n), x = n))+
geom_col()
The resultant output is as follows, [Top 20 categories of shows on Netflix]

As it can be seen from the graph that there are a lot categories like Dramas, Comedies, International TV Shows are appearing in multiple positions.
The expected output is as follows:
