Subsetting of object existing of two samples
I think your issue is simply not assigning the newly-subset object in to a new object.

Assuming rownames(subset_DR1) is indeed a list of cell names

seuratObj_subset_dr1 &lt;- SubsetData(seuratObj, cells=rownames(subset_DR1))


will work.