R 具有非数值轴的geom_散射

我想要一个物种x样本（包括字符串/因子）散点图，用图形图代替点。点的大小应与每个样品中物种的丰度相关。 这可以通过以下几点轻松完成：

d <- data.frame(Tax=c("A", "B", "C"), Sample=c("01", "02", "03"))
d$A <- abs(rnorm(3, sd=1))
d$B <- abs(rnorm(3, sd=2))
d$size=c(0.1,0.2,0.3)
library(ggplot2)
ggplot(d,aes(x=Tax, y=Sample, size=size)) + geom_point()

面板已绘制，但仍为空。请注意，scatterpie与数字x/y美学效果很好：

library(scatterpie)
ggplot() + geom_scatterpie(aes(x=Tax, y=Sample, r=size), data=d, cols=c("A", "B")) 

Warning:
Removed 6 rows containing non-finite values (stat_pie). 

d <- data.frame(x=c(1,2,3), y=c(1,2,3))
d$A <- abs(rnorm(3, sd=1))
d$B <- abs(rnorm(3, sd=2))
d$size=c(0.1,0.2, 0.3)
ggplot() + geom_scatterpie(aes(x=x, y=y, r=size), data=d, cols=c("A", "B")) + coord_fixed()

d这应该可以：

d2 <- d %>% 
  mutate(tax_num = as.numeric(as.factor(Tax)), 
         sample_num = as.numeric(as.factor(Sample)))

ggplot() + geom_scatterpie(data=d2, aes(x=tax_num, y=sample_num, r=size), cols=c("A", "B")) + 
  scale_x_continuous(breaks=c(1,2,3), labels=c("A", "B", "C")) + 
  scale_y_continuous(breaks=c(1,2,3), labels=c("01", "02", "03")) + 
  labs(x="Tax", y="Sample") + 
  coord_fixed() 

d2%
变异（tax_num=as.numeric（as.factor（tax）），
sample_num=as.numeric（as.factor（sample）））
ggplot（）+geom_scatterpie（数据=d2，aes（x=tax_num，y=sample_num，r=size），cols=c（“A”，“B”）+
比例x连续（中断=c（1,2,3），标签=c（“A”，“B”，“c”））+
比例y连续（中断=c（1,2,3），标签=c（“01”，“02”，“03”））+
实验室（x=“Tax”，y=“Sample”）+
固定坐标