如何创建具有多个形状的ggplot气泡图？

install.packages("ggplot2")

library(ggplot2)

data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(1, 2, 3, 4, 5),
  size = c(10, 20, 30, 40, 50),
  shape = c("circle", "triangle", "square", "circle", "triangle")
)

ggplot(data, aes(x = x, y = y, size = size, shape = shape)) +
  geom_point()

ggplot(data, aes(x = x, y = y, size = size, shape = shape)) +
  geom_point() +
  scale_shape_manual(values = c("circle" = 1, "triangle" = 2, "square" = 15))

ggplot(data, aes(x = x, y = y, size = size, shape = shape)) +
  geom_point(color = "blue", alpha = 0.5) +
  scale_shape_manual(values = c("circle" = 1, "triangle" = 2, "square" = 15)) +
  scale_color_manual(values = c("circle" = "red", "triangle" = "green", "square" = "blue"))