スタックされた棒グラフ、パーセンテージ値を持つラベルバー

Question

テーブルを積み重ね棒グラフとしてプロットし、棒グラフにパーセンテージを付けたいとします。次に例を示します。

data <- matrix(c(34, 66, 22, 78), ncol = 2) 
data <- as.table(data) 
colnames(data) <- c("shop1", "shop2") 
rownames(data) <- c("prod1", "prod2") 

library(reshape2) 
data_m <- melt(data, varnames = c("Product", "Shop"), id.vars = "Product") 

library(scales) 
library(ggplot2) 
ggplot(data_m, aes(x = Shop, y = value, fill = Product)) + 
geom_bar(position = "fill", stat = "identity") + 
scale_y_continuous(labels = percent_format()) + 
labs(x = "", y = "") 

私は

geom_text(data = data_m, aes(x = Shop, y = value, 
         label = paste0((value/100) * 100,"%")), size=4) 

にラベルを追加しようとしたが、これは

EDITになり：JanLauGeの答えで、私は

を取得します

ここでは、パーセンテージが間違って割り当てられています。

もう1つの発言：上記の例で仮定したように、テーブルの列合計が100でなく91と同じでない場合の対処方法は？

Answer 1

この代わり

geom_text(data = data_m, 
      aes(x = Shop, 
       y = value/max(value), 
       label = paste0(value/100,"%")), 
      size = 4) 

問題を試して：ラベル位置は、プロットエリア（= max(value) 0~1、1）に対するものです。

解決策：それに応じて値を再スケールします。

---

EDIT：thisポストの 重複。

あなたが探していることは、このされています

ggplot(data = data_m, 
     aes(x = Shop, 
      y = value, 
      fill = Product, 
      cumulative = TRUE)) + 
    geom_col() + 
    geom_text(aes(label = paste0(value/100,"%")), 
      position = position_stack(vjust = 0.5)) + 
    theme_minimal()