使用ggplot2的百分比和图形标签中的条形图

Question

我是R新手，尝试为不同组别的分类变量（度）创建条形图。这是我与迄今使用的代码：

graph_data <- gss %>% 
      group_by(degree, owngun) %>% 
      summarise(total = n()) %>% 
      ungroup() %>% 
      mutate(percent = total/57061)  

     ggplot(graph_data, aes(x=degree, fill=owngun, y=percent) + 
      geom_bar(stat="identity") + 
      geom_text(size = 3, position = position_stack(vjust = 0.5)) 

第一部分的作品，我能够创建一个新的变量，gunowners的百分比。然而，当我运行第二部分图表中的变量，我得到以下错误信息：

> ggplot(aes(x=degree, fill=owngun, y=percent) + 
     + geom_bar(stat="identity") 
     + ggplot(graph_data, aes(x=degree, fill=owngun, y=percent) + 
     Error: unexpected symbol in: 
     " geom_bar(stat="identity") 
     ggplot" 
     > geom_bar(stat="identity") + 
     + geom_text(size = 3, position = position_stack(vjust = 0.5)) 
     Error in position_stack(vjust = 0.5) : unused argument (vjust = 0.5) 

Answer 1

你的语法是错误的第二部分。我已经尽最大努力纠正它，但根据您的数据集是如何定义的，这可能会或可能不会完全解决问题

ggplot(graph_data, aes(x=degree, y=percent, fill=owngun)) + geom_bar(stat="identity") + geom_text(size = 3, position = position_stack(vjust = 0.5))

要在什么是错的扩大，你定义ggplot()两次。你应该只需要这样做一次。 ggplot()为图表定义了“全局”参数。您还重复了geom_bar()两次，我不知道是否会抛出错误，但您肯定只需要一个实例。你的括号在ggplot()这两行都是错误的，你错过了第二个“）”两次，这本身就会导致图不起作用。

Answer 2

谢谢

我用你的建议做了一些调整，并能得到的代码使用工作如下：

ggplot(graph_data, aes(x=degree, y=percent, fill=owngun, label=percent)) + 
     geom_bar(stat="identity") + 
     geom_text(size = 3, position="stack") 

剩下的唯一问题是，文本被定位在地方这使它很难阅读。我会为此努力。