Time series data, seasonality, R

I want to eliminate seasonality. But after 7 differences, the ACF plot still shows spikes per 7 lags.

''' diff1 = diff(data,1) diff17 = diff(diff1,7)enter image description here '''