I used the draw.tilted.sector
suggested by this answer.
I managed to get rid of all the shading, borderlines and sectors by making them white.
pieval <- c(2,4,6,8)
pielabels <- c("","","","We just love pies")
#make everything white
lp <-pie3D(pieval,radius=0.9,labels=pielabels,explode=0.1,
main="3D PIE OPINIONS", col= "white", shade =0, border="white")
#draw the sector
draw.tilted.sector(start = (24/20)*pi, end = 2*pi,
radius= 0.9, explode =0.1, col= "purple")