Mam problem z dopasowaniem symboli w legendzie mojego wątku do symboli na fabule.

Załóżmy, że dane mają cztery takie kolumny

data = data.frame(x = sample(1:10, 10, replace=TRUE), y = sample(1:10, 10, replace=TRUE), 
           Rank = sample(1:10, 10, replace = TRUE), Quantified = factor(sample(1:2, 10, replace = TRUE))
)

Chciałbym, aby punkty były różnych rozmiarów (wyróżnione przez „Rank”) i reprezentowane przez różne symbole (krzyże i otwarte koła, wyróżnione przez „Quantified”).

Mój kod to

ggplot(data, aes(x = x, y = y)) +
          geom_point(aes(size = Rank, shape = Quantified)) +
          scale_shape_manual("Quantified", labels = c("Yes", "No"), values = c(1, 4)
 )

Symbole na fabule są takie, jak chcę.

Moim problemem jest to, że chciałbym, aby kręgi w najwyższej legendzie byłyniewypełnione jak są na fabule.

Próbowałem różnych poleceń w różnych częściach kodu (np. Fill = „white”), ale nic nie działa poprawnie.

Jakieś sugestie?