ニット後のRマークダウンでプロットが表示されない

Question

ggplot2.variでスタックバーを作成しました。異なるアイテムコードのSalerateを表示しています。アイテムコードの中には、販売レートが低く、執筆パーセンテージを見ることができません適切にoberlapping.How私はこれを修正することができますか？私はあなたの最良の選択肢はFromFranchise変数の周りに多面的なチャートを作成することだと思い

ggplot(data = sale1, aes(x = ItemCode,y = SaleRate , group = FromFranchise)) + 
    geom_col(aes(fill = FromFranchise))+ 
    geom_text(aes(label = paste0(round(SaleRate*100,1),"%")), position = 
position_stack(vjust = 0.5), 
      color="white")+ 
    xlab("Item Code")+ 
    ylab("Sale Rate")+ 
    ggtitle("Sale Rate Of Based On Item Code")+ 
    theme(plot.title = element_text(color = "dodgerblue4",size = 30,hjust = 
0.5), 
     axis.title.x = element_text(color = "dodgerblue4",size = 20), 
     axis.title.y = element_text(color = "dodgerblue4",size = 20), 
     axis.text.x = element_text(size = 15), 
     axis.text.y = element_text(size = 15), 
     legend.title = element_text(color = "dodgerblue4",size = 20), 
     legend.text = element_text(size = 15), 
     legend.position = "none", 
     legend.direction = "horizontal" , 
     panel.grid.major = element_blank(), 
     panel.grid.minor = element_blank()) 

Answer 1

：

これは販売に基づいてitemcodeの私のプロットです。以下の例を参照してください：

library(ggplot2) 

ItemCode  <- c(rep(c("2", "3", "4", "5"), each = 4)) 
FromFranchise <- c(rep(c("A", "B", "C", "D"), times = 4)) 
SaleRate  <- c(0.1, 0.05, 0.15, 0.18, 0.01, 0.02, 0.01, 0.03, 0.09, 0.12, 0.2, 0.15, 0.14, 0.23, 0.1, 0.05) 
sale1   <- data.frame(ItemCode, FromFranchise, SaleRate) 

# original chart 
ggplot(sale1, aes(x = ItemCode, y = SaleRate, fill = FromFranchise, label = SaleRate)) + 
    geom_col() + 
    geom_text(aes(label = paste0(round(SaleRate * 100, 1), "%")), 
      position = position_stack(vjust = 0.5), color = "white") + 
    guides(fill = FALSE) + 
    labs(x = "Item Code", y = "Sales Rate", title = "Sale Rate Of Based On Item Code") 

# faceted chart 
ggplot(sale1, aes(x = ItemCode, y = SaleRate, fill = FromFranchise)) + 
    geom_col() + 
    geom_text(aes(label = paste0(round(SaleRate * 100, 1), "%")), vjust = -0.3) + 
    guides(fill = FALSE) + 
    facet_wrap(~ FromFranchise) + 
    ylim(0, 0.3) + 
    labs(x = "Item Code", y = "Sales Rate", title = "Sale Rate Of Based On Item Code")