... F) %>% ggplot(mapping = aes(x=x,y=n))+geom_bar(stat="identity")+geom_text( aes(label = n, y = n + 0.05), position = position_dodge(1), vjust = 0)
確定! 回上一頁