para poder hacer una gráfica equivalente es necesario hacer un procesamiento de la base de datos. Te dejo acá una opción de cómo podría hacerse con tidyverse.
# Importar los datos
paquetes_cran <- readr::read_csv("https://raw.githubusercontent.com/cienciadedatos/datos-de-miercoles/master/datos/2019/2019-07-03/paquetes_CRAN.csv")
# Procesar la base
df_na <- paquetes_cran %>%
mutate_all(.funs = ~is.na(.)) %>% # Evaluar si la observación es un NA
summarise_all(.funs = ~sum(.)) %>% # Sumar todos los NAs de la variable
# Cambiar formato de ancho a largo para facilitar la vizualización
pivot_longer(
cols = everything(),
names_to = "Features",
values_to = "Missing_Rows"
)
# Graficar }
ggplot(df_na,
aes(x = Missing_Rows, y = reorder(Features, desc(Missing_Rows)))) +
geom_col() +
geom_label(aes(label = Missing_Rows))