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)