ggvis R - как отобразить данные в порядке убывания?

Question

Я использую приведенный ниже код, чтобы создать гистограмму в порядке убывания для V1:

AvgOverallkeyword<- arrange(AvgOverallkeyword,desc(V1))
ggvis(AvgOverallkeyword,x=~Keyword,y=~V1)%>% layer_bars(fill:="orange")

I am getting attached chart instead[1]
  AvgOverallkeyword is in below format:
 Keyword    V1
 BWB        67.92
 Ebill      2.26
 LI Ver     2.16
 Start Svc  1.85

Что я делаю не так, это может быть что-то действительно глупое!!