library(data.table)
library(dplyr)
library(dtplyr)
library(lubridate)
library(magrittr)
library(survival)
library(tidyr)
library(httr)
library(XML)
library(googlesheets)

partner <- c("CD", "CD", "LPH", "LPH", "LPH", "LPH", "LPH", "LPH", "CD", "LPH",
             "Total")
sub <- c("19797", "32693", "l598", "l8999", "l9800", "l9880", "l9910",
         "other(<50 leads)", "Total", "Total", "Total")
dt <- data.table(partner, sub); dt
# As entered:
#    partner              sub
# 1:      CD            19797
# 2:      CD            32693
# 3:     LPH             l598
# 4:     LPH            l8999
# 5:     LPH            l9800
# 6:     LPH            l9880
# 7:     LPH            l9910
# 8:     LPH other(<50 leads)
# 9:      CD            Total
# 10:     LPH            Total
# 11:   Total            Total

setkey(dt, partner, sub); dt
#    partner              sub
# 1:      CD            19797
# 2:      CD            32693
# 3:      CD            Total
# 4:     LPH            Total
# 5:     LPH             l598
# 6:     LPH            l8999
# 7:     LPH            l9800
# 8:     LPH            l9880
# 9:     LPH            l9910
# 10:     LPH other(<50 leads)
# 11:   Total            Total

dplyr::arrange(dt, partner, sub)
# This fucks up the order:
#    partner              sub
# 1:      CD            19797
# 2:      CD            32693
# 3:      CD            Total
# 4:     LPH            Total
# 5:     LPH             l598
# 6:     LPH            l8999
# 7:     LPH            l9800
# 8:     LPH            l9880
# 9:     LPH            l9910
# 10:     LPH other(<50 leads)
# 11:   Total            Total

dt[order(dt$partner, dt$sub), ]
# This too:
#    partner              sub
# 1:      CD            19797
# 2:      CD            32693
# 3:      CD            Total
# 4:     LPH            Total
# 5:     LPH             l598
# 6:     LPH            l8999
# 7:     LPH            l9800
# 8:     LPH            l9880
# 9:     LPH            l9910
# 10:     LPH other(<50 leads)
# 11:   Total            Total

x <- order(dt$partner, dt$sub)
dt[x, ]
# This works though. CRAZY!
#    partner              sub
# 1:      CD            19797
# 2:      CD            32693
# 3:      CD            Total
# 4:     LPH             l598
# 5:     LPH            l8999
# 6:     LPH            l9800
# 7:     LPH            l9880
# 8:     LPH            l9910
# 9:     LPH other(<50 leads)
# 10:     LPH            Total
# 11:   Total            Total