Нельзя сравнивать такие факторы, чтобы получить максимум.Для этого сначала преобразуйте их в символы, например:
library(dplyr)
library(magrittr)
# Make up some data
dta <- data.frame(ID=c(1,2,1,2),
TW=c("1-Never", "1-Never", "2-Sometimes", "3-Often"),
FB=c("2-Sometimes", "3-Often", "1-Never", "2-Sometimes"))
# Convert to character
dta$FB <- as.character(dta$FB)
dta$TW <- as.character(dta$TW)
dta %>%
group_by(ID) %>%
summarise(Max=max(FB, TW))
#output
# ID Max
# <dbl> <chr>
# 1 2-Sometimes
# 2 3-Often