library(tidyverse)sum(is.na(x$price))sum(is.na(x$marketshare))sum(is.na(x$brand))x <- na.omit(x)x <- x[order(x$brand, -x$marketshare),]x %>% head(10)