Sophia Dorothea, Queen in Prussia