# AUC seems too high, confusion matrix seems only slightly better than random

My confusion matrix looks as follows:

> table(actual, predicted_all)
predicted_all
actual    0    1
0 1728 5261
1 2088  168


While the AUC seems a bit too high in my eyes:

auc(actual, predicted_all) Area under the curve: 0.8391

I suspect I'm doing something wrong here, or is this not the case?