שרלוטה, מרקיזת ברנדנבורג-שוודט