1

私は次のグラフを使用していますlibrary(waffle)

ここに画像の説明を入力

私の問題は、姓グループが表示されないことです。私が使用しているコードは次のとおりです

counts<-c(135.92, 15.98, 14.97, 14.15, 5.82, 11.82, 0.07 )
counts_names<-sprintf("%s (%s)", c("Coal", "Gas", "Wind", "Hydro", "Grid-scalar solar", "Rooftop solar", "Storage systems"), 
                  scales::percent(round(counts/sum(counts), 4)))
names(counts)<-counts_names
Generation_graph<-waffle(counts)+ scale_fill_tableau(name=NULL)

右側に 7 つのグループがある元のグラフを取得するにはどうすればよいですか

labels更新:コメントの1つを読んで、オプションを含めると、元のグラフをすべての名前で保持できることに気付きました。

Generation_graph<-waffle(counts)+ scale_fill_tableau(name=NULL, labels=counts_names)
4

2 に答える 2