使用geom_scatterpie和geom_scatterpie_图例创建带有归一化值的绘图

我试图用R中的scatterpie包创建一个scatterpie图。我的数据如下所示

  EEE Innovation n equal negative positive     n_mod
   0          0 2    NA        2       NA 0.3162278
   0          1 6     4        2       NA 0.5477226
   0          2 1    NA        1       NA 0.2236068
   0          3 2    NA        2       NA 0.3162278
   0          5 1     1       NA       NA 0.2236068
   1          0 4     2        1        1 0.4472136
   1          1 14     4        5       5 0.5916080
   1          2  9     3        2       4 0.4743416
   1          3  1    NA        1      NA 0.1581139
   1          5  1    NA        1      NA 0.1581139
   2          1  3    NA        2       1 0.2738613
   3          0  1    NA        1      NA 0.1581139
   3          1  3     1        2      NA 0.2738613
   3          2  4    NA        2       2 0.3162278
   4          0  3     2        1      NA 0.2738613
   4          1 14     5        3       6 0.5916080
   4          2 14     4       NA      10 0.5916080

要创建绘图，我使用以下命令：

ggplot() + 
   geom_scatterpie(aes(x=EEE,y=Innovation, r = n_mod), data=pie_data, 
                   cols=c("equal","negative","positive")) +
   geom_scatterpie_legend((all_pie_data$n_mod), n=7, 
                          labeller= function(x) x=sort(unique(pie_data$n)))

我用的是我用的n_mod

for (l in 1:17) {
all_pie_data$n_mod[l] <- sqrt(all_pie_data$n[l]/40)
}

for（1:17中的l）{
所有数据$n\u mod[l]您可以将“r”设置为：

这会使它们看起来更小

ggplot() + 
geom_scatterpie(aes(x=EEE,y=Innovation, r = n_mod/2), data=pie_data, 
               cols=c("equal","negative","positive")) +
geom_scatterpie_legend((all_pie_data$n_mod), n=7, 
                      labeller= function(x) x=sort(unique(pie_data$n)))

for (l in 1:17) {
all_pie_data$n_mod[l] <- sqrt(all_pie_data$n[l]/24)
}

r = n_mod/2

ggplot() + 
geom_scatterpie(aes(x=EEE,y=Innovation, r = n_mod/2), data=pie_data, 
               cols=c("equal","negative","positive")) +
geom_scatterpie_legend((all_pie_data$n_mod), n=7, 
                      labeller= function(x) x=sort(unique(pie_data$n)))