Weighted mean in Respondent Driven Sampling

Hello Everyone,
I have several variables, continuous and categorical using a respondent driven sampling method and I would like to calculate the weighted mean for each variable respect to weight variable which we have already computed it. Does anybody know how I can calculate the weighted mean when it grouped for CITY and Ethnicity using R.
Thanks