R 使用ggplot使用顶级类别的条形图

我只想用ggplot2在条形图中绘制前10个（最高频率）类别，而不是所有类别。只有使用ggplot才能做到这一点吗？我通过如下方式创建了一个辅助数据帧

dd <- data.frame(sort(table(data$x),decreasing=TRUE))[1:10,]
ggplot(dd, aes(x = reorder(Var1, -Freq), y = Freq)) + 
geom_bar()

---

dd这是数据操作，这不是
ggplot2
包的预期目的。你目前的方法有什么问题？我确实有一个想要的（1000多个类别中的前10个类别）上面的代码。我只是想知道我是否可以直接在ggplot中完成。