Not able to increase beyond 7%

Can some one help me where I can improve the following code since by random forest as well my errors are 7+ and by logit also it’s 7+
train1$OP=as.factor(train1$OP) #OP is the output here
rf=randomForest(OP~.,data=train1,nodesize=2,ntree=500) #I have removed TotalVol due to high correlation with no of donations
prerf=predict(rf,newdata = test1)

or logit:


Kindly suggest an alternative