は、複数のbarplots

Question

私はggplotに多変数プロットのラベルを変更しようとしています 私の最初の画像はこれですのラベルを変更する方法ggplot - 私はどのように私は私のggplotを更新することができ、より説明

するX-ラベルを変更したいカウントし、合計グロス そして、私は（私がデータを持っている変数の値です）GとN としてのxのラベルを持っていますこれらの新しいラベルを紹介する声明

test %>% 
    group_by(DiscInd) %>% 
    summarise(Count=n(),TotalGross=sum(Gross)/100000000) %>% 
    gather(Var, Val, -DiscInd) %>% 
    ggplot(., aes(x=DiscInd, y = Val, fill=Var)) + 
     geom_bar(stat="identity", position="dodge") + 
    xlab("Year vs Released Difference") + 
    ylab("Total Gross")     + 
    ggtitle("Total Movie with Gross ") 

これは可能ですか？ はまた、私はそれが重ならないようにラベルと書式設定のラベルを変更しようとしています：ここで

は私のデータフレームのテスト

 DiscInd  Gross 
      N  2783918982 
      N  2207615668 
      N  1670328025 
      N  1519479547 
      G  1514019071 
      G  1404705868 

UPDATEDのためのいくつかのレコードです。

Answer 1

のは、あなたの新しい説明ラベル名を言ってみましょうがラベルG DESCとラベルN DESCあり、これは何をしたいのですか？角度付き

test %>% 
    group_by(DiscInd) %>% 
    summarise(Count=n(),TotalGross=sum(Gross)/100000000) %>% 
    gather(Var, Val, -DiscInd) %>% 
    ggplot(., aes(x=DiscInd, y = Val, fill=Var)) + 
    geom_bar(stat="identity", position="dodge") + 
    scale_x_discrete(labels=c("Label G Desc", "Label N Desc")) + 
    xlab("Year vs Released Difference") + 
    ylab("Total Gross")     + 
    ggtitle("Total Movie with Gross ") 

x軸のテキスト：

test %>% 
    group_by(DiscInd) %>% 
    summarise(Count=n(),TotalGross=sum(Gross)/100000000) %>% 
    gather(Var, Val, -DiscInd) %>% 
    ggplot(., aes(x=DiscInd, y = Val, fill=Var)) + 
    geom_bar(stat="identity", position="dodge") + 
    scale_x_discrete(labels=c("Label G Desc", "Label N Desc")) + 
    xlab("Year vs Released Difference") + 
    ylab("Total Gross")     + 
    ggtitle("Total Movie with Gross ") + 
    theme(axis.text.x = element_text(angle = 60, size=15, hjust = 1))