透明三维球状气泡图R

Question

我想创建一个三维气泡图，比较8个不同行业的市场规模(市场)(百万美元)，市场份额(份额)，增长率(增长)，竞争对手(竞争对手)的数量。气泡(球体)的大小代表市场份额。市场份额的百分比显示了该领域被填充的程度。球体的颜色以三种颜色表示变量屏障。X和y变量是竞争对手和增长。我希望每个领域的总规模代表总市场规模，并用市场份额的百分比填充它。我想在它旁边标记每个球体，并用图例表示球体的大小。我很感谢你的帮助。下面是一个假数据。

data <- data.frame(Sectors=c("A","B","C","D","E","F","H","I"),
Market=sample(1:100, 8, replace=T),
Share=c(0.10, 0.55, 0.30, 0.80, 0.15, 0.40, 0.30, 0.05),
Growth=c(0.9, 0.05, 0.03, 0.02, 0.02, 0.04, 0.07, 0.2),
competitors=sample(1:50, 8, replace=T) )#fake data

Answer 1

# install.packages("ggplot2")
# install.packages("ggrepel")
library(ggplot2)
ggplot(data, aes(x=competitors, y=Growth)) + 
  geom_point(aes(size=Market, color=Share)) + 
  guides(color="none") +
  ggrepel::geom_text_repel(aes(label=Sectors))