x軸ラベルを追加する方法ggplot2 r

Question

ggplot bar plot X軸にいくつかのラベルを貼りたいと思います。

データ：

var.A <- as.numeric(c(1:13)) 
var.B <- c(4.351833, 2.938000, 4.726465, 3.747162, 3.720737, 4.297117, 4.304500, 4.061277, 4.595236, 4.105444, 3.701684, 3.523563, 4.170000) 
df <- data.frame(var.A,var.B) 

ggplotコード：

ggplot(df, aes(x=var.A, y=var.B)) + 
    geom_bar(position=position_dodge(), stat="identity", fill="#fff68f", colour="darkgrey", width = 0.4) + 
    coord_flip()+ 
    xlab("") + 
    ylab("") + 
    scale_x_discrete(labels=c("aaaaaaa aaaaa","bbbbb bbb bbbb","cccc ccc","dddd dd ddddd","eee e eeeee e ee","ffffffff","gggggggg","hhhhhhh","iiii","jjjjjj","kkkkkkk","llllll","mmmmmmmm")) 

私はドキュメントを参照してください：X-axxisに自分の場所にこのラベルを置くためにRを強制する方法ggplot documentation

？

Answer 1

要因としてxを指定する必要があります。それでおしまい。

ggplot(df, aes(x=factor(var.A), y=var.B)) + 
    geom_bar(position=position_dodge(), stat="identity", fill="#fff68f", colour="darkgrey", width = 0.4) + 
    xlab("") + 
    ylab("") + 
    scale_x_discrete(labels=c("aaaaaaa aaaaa","bbbbb bbb bbbb","cccc ccc","dddd dd ddddd","eee e eeeee e ee","ffffffff","gggggggg","hhhhhhh","iiii","jjjjjj","kkkkkkk","llllll","mmmmmmmm"))