У меня проблема с тем, чтобы символы в легенде моего сюжета совпадали с символами самого сюжета.

Предположим, что данные имеют четыре столбца, как это

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))
)

Я бы хотел, чтобы точки были разных размеров (различаются по 'Ранг') и представлены различными символами (крестики и незакрашенные кружки, отмеченные знаком 'количественное»).

Мой код

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)
 )

Символы на сюжете такие, как я хочу.

Моя проблема в том, что я хотел бы, чтобы круги в верхней легенде былинезаполненной как они в сюжете.

мы пробовали различные команды в разных частях кода (например, fill = "белый») но, похоже, ничего не работает совершенно правильно.

Какие-либо предложения?