ユニークな文字列でバープロットを作成する

Question

#Data set 
library(ggplot2) 
library(dplyr) 
data <- data_frame(ended= c("14/11/2016 13:37", "14/11/2016 13:37", 
"14/11/2016 13:47", "14/11/2016 13:51", "14/11/2016 13:51"), 
satisfactionLevel = c("Very dissatisfied", "Very satisfied", 
"Satisfied", "Neither satisfied nor dissatisfied", 
"Very satisfied")) 

x軸にさまざまな満足度が含まれ、y軸で数字がカウントされるバープロットを作りたいとします。

私は、次のいずれかが動作するはずだと思う

ggplot(mydata, aes(x=unique(satisfactionLevel), y = n_distinct(satisfactionLevel))) + geom_bar() 

Answer 1

を試してみました：

ggplot(data, aes(x = satisfactionLevel)) + 
     geom_bar() 

各satisfactionLevelの数をカウントします。