scatterpieでの色の正しい使用

Question

scatterpieを使用して6種類のパイを作りたいと思います。パイを構成する101のカテゴリーがあります（すべてのパイに101があるわけではありません）ので、色を区別することができます。

私は空白の画面を取得し、次のように手動で色を設定しようとする場合、これはその後、私には十分な色（私はパイを見て、伝えることができます）

ggplot(wholebody_cutLH_wide_t) + 
# annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf) + 
geom_scatterpie(aes(x=imX, y=imY,r=radius), 
      data=wholebody_cutLH_wide_t,  cols=colnames(wholebody_cutLH_wide_t[1:101]),color=NA) + 
#scale_color_manual(values=sample(allcolors,101)) + 
scale_x_continuous(expand=c(0,0), lim=c(0,3)) + 
scale_y_continuous(expand=c(0,0), lim=c(0,6)) + 
theme(legend.position="none", 
    panel.background = element_rect(fill = "transparent") # bg of the panel 
    , plot.background = element_rect(fill = "transparent") # bg of the plot 
    , panel.grid.major = element_blank() # get rid of major grid 
    , panel.grid.minor = element_blank(), # get rid of minor grid 
    line = element_blank(), 
    text = element_blank(), 
    title = element_blank() 
) 

を与えるものではありません。 スキャッタピー（color = sample（allcolors、101））で色を設定しようとすると、エラーが発生する

エラー：美学の長さはデータ1（2864）と同じでなければなりません：color

allcolors = grDevices::colors()[grep('gr(a|e)y', grDevices::colors(), invert = T)] 
ggplot(wholebody_cutLH_wide_t) + 
# annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf) + 
geom_scatterpie(aes(x=imX, y=imY,r=radius), 
      data=wholebody_cutLH_wide_t, cols=colnames(wholebody_cutLH_wide_t[1:101]),color=NA) + 
scale_color_manual(values=sample(allcolors,101)) + 
scale_x_continuous(expand=c(0,0), lim=c(0,3)) + 
scale_y_continuous(expand=c(0,0), lim=c(0,6)) + 
theme(legend.position="none", 
    panel.background = element_rect(fill = "transparent") # bg of the panel 
    , plot.background = element_rect(fill = "transparent") # bg of the plot 
    , panel.grid.major = element_blank() # get rid of major grid 
    , panel.grid.minor = element_blank(), # get rid of minor grid 
    line = element_blank(), 
    text = element_blank(), 
    title = element_blank() 
) 

Answer 1

ここに最終的な作業コードがあります。 scale_color_manualをscale_fill_manualに切り替える必要がありました。

ggplot(wholebody_cutLH_wide_t) + 
annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf) + 
geom_scatterpie(aes(x=imX, y=imY,r=radius), 
      data=wholebody_cutLH_wide_t, cols=colnames(wholebody_cutLH_wide_t)[1:101],color=NA) + 
scale_fill_manual(values=sample(allcolors,101)) + 
scale_x_continuous(expand=c(0,0), lim=c(0,3)) + 
scale_y_continuous(expand=c(0,0), lim=c(0,6)) + 
theme(legend.position="none", 
    panel.background = element_rect(fill = "transparent") # bg of the panel 
    , plot.background = element_rect(fill = "transparent") # bg of the plot 
    , panel.grid.major = element_blank() # get rid of major grid 
    , panel.grid.minor = element_blank(), # get rid of minor grid 
    line = element_blank(), 
    text = element_blank(), 
    title = element_blank() 
) 

そしてここ