R中的BCG矩阵

我需要在R中做一个增长份额矩阵（BCG矩阵）。我不知道这张图是否可以在R中做。我会得到这样一张图

---

谢谢你

以下是使用R中的一些基本绘图函数的示例：

例子：

set.seed（1）
n=10
x以下是使用R中的一些基本绘图函数的示例：

例子：
set.seed（1）
n=10
x链接图像缺少一个刻度，显示如何理解尺寸是销售量的函数。重点是，你可以改进这个情节，在R里这绝对是可能的。你能帮我写代码吗？现在，我正在使用这个代码（e4e5f4:x@calejero的一个例子，当代码中没有任何内容时，任何人如何帮助代码？抱歉，但是您确实需要先发布一些内容才能获得帮助。请向我们展示，我们将尽全力提供帮助。）you@calejero您是如何将@E4F4中的示例应用于您的数据的？您是否已经编写了一些我们可以帮助的代码你有？你有很多使用R的经验吗？如果你在入门时需要一些帮助，在
R
标签下有很多关于的教程。@calejero-我现在给你举一个例子，但是你需要自己研究特定的绘图函数，以便根据你的特定问题调整绘图。尝试并实验bit以后您可以自己查看更多信息-帮助页面（例如，
？绘图
）可以让您开始了解如何控制R中的绘图命令。链接图像缺少一个刻度，以显示如何理解大小是销售量的函数。重点是，您可以改进此绘图，并且在R中这是绝对可能的。@MarcineBox您能帮我编写代码吗？现在，我正在使用此代码（e4e5f4:x@calejero的一个例子，当代码中没有任何内容时，任何人如何帮助代码？抱歉，但是您确实需要先发布一些内容才能获得帮助。请向我们展示，我们将尽全力提供帮助。）you@calejero您是如何将@E4F4中的示例应用于您的数据的？您是否已经编写了一些我们可以帮助的代码你有？你有很多使用R的经验吗？如果你在入门时需要一些帮助，在
R
标签下有很多关于的教程。@calejero-我现在给你举一个例子，但是你需要自己研究特定的绘图函数，以便根据你的特定问题调整绘图。尝试并实验bit以后您可以自己完成更多操作-帮助页面（例如
？plot
）可以让您开始了解如何在R中控制绘图命令。
set.seed(1)
n = 10
x <- runif(n, min=0, max=2)
y <- runif(n, min=8, max=24)
z <- runif(n, min=0, max=100)

#z to cex function
a <- 1
b <- 0.02
z.cex <- a + b*z

example.cex <- seq(1,3,0.5)
example.z <- (example.cex - a)/b
example.z 


plot(x, y, pch=21, bg="orange", col="red", cex=z.cex, lwd=2, bty="n", xaxt="n", yaxt="n", xlab="", ylab="")
grid()
axis(1, at=seq(0,2,0.5), pos=16, col="green4", lwd=3)
axis(2, at=seq(8,24,4), pos=1, col="green4", lwd=3)
legend("topright", legend=c(example.z), pch=21, pt.bg="orange", col="red", pt.cex=example.cex, title="sales vol.", bg="white")