# How to use a ColorData gradient along with other PlotStyle options in a ListPlot?

I want to use ColorData colors along with other manual options. Is that possible?

SeedRandom["ColorData problem aah help"]
data=RandomVariate[LogisticDistribution[.007,.01],{1200,2}];
dataClustered=FindClusters[data,4,DistanceFunction->EuclideanDistance];
ListPlot[dataClustered,PlotStyle->"PlumColors"]


But I would also like to add:

Directive[Opacity->.3,PointSize->.015]


I can't seem to add the Directive without losing the colors.

ListPlot[dataClustered,

PlotStyle -> (Directive[ColorData["PlumColors"]@#, Opacity[.3],