可以使用dplyr（tally）和ggplot（bar）创建循环吗？

Question

我想从封闭式答案调查（100多个问题）中查看答案。主管建议将每个Q图表快速查看。

要绘制一个问题，我已完成以下内容：

out <- farmer %>% group_by(Device.Name) %>% tally %>% mutate(freq = n/sum(n)*100) %>% print
ggplot(out, aes(Device.Name, freq)) + geom_bar(stat="identity") + ggtitle("Device.Name")
ggsave("out.jpg")

我想要做的是为每列运行此操作，而不必编写代码100次。我可以循环完成吗？