r语言画BCG matrix

以下是使用R语言绘制BCG矩阵的示例代码：

# 导入必要的库
library(ggplot2)

# 创建数据框
bcg <- data.frame(
  Market.Growth = c("High", "High", "Low", "Low"),
  Market.Share = c("High", "Low", "High", "Low"),
  Company = c("Product A", "Product B", "Product C", "Product D")
)

# 创建BCG矩阵
p <- ggplot(bcg, aes(x=Market.Share, y=Market.Growth, label=Company)) +
  geom_text(size=5, color="white") +
  scale_x_discrete(limits=c("High", "Low"), expand=c(0.1,0.1)) +
  scale_y_discrete(limits=c("High", "Low"), expand=c(0.1,0.1)) +
  labs(x="Market Share", y="Market Growth", title="BCG Matrix") +
  theme_bw() +
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        axis.line = element_line(colour = "black"),
        axis.text = element_text(size=16),
        axis.title = element_text(size=18, face="bold"))

# 输出图形
print(p)

结果将会是一个基本的BCG矩阵，其中四个象限代表不同的产品类型。 具有高市场份额和高市场增长率的产品位于左上角，通常被称为“明星”产品。 具有高市场份额但低市场增长率的产品位于右上角，通常被称为“现金奶牛”产品。 具有低市场份额但高市场增长率的产品位于左下角，通常被称为“问题儿童”产品。 最后，具有低市场份额和低市场增长率的产品位于右下角，通常被称为“狗”产品。