在ggplot中使用position =“ fill”时出错

Question

我正在分析来自BRFSS13数据集的一些数据，并且在尝试调整我的图形时出现了裁剪现象。

我已经使用以下代码创建了自己的标题：

vets <- select(brfss2013, veteran3, sex, renthom1, children)
vetTib <- vets %>%
filter(!is.na(veteran3)) %>%
filter(!is.na(renthom1)) %>%
filter(!is.na(children)) %>%
group_by(sex, veteran3, renthom1) %>%
mutate(count = n()) 

到目前为止，太好了。然后，我使用ggplot创建了一个图表，显示性别如何影响房屋所有者的身份。

vetTib %>%
ggplot(aes(x = sex, y= count, fill = renthom1)) +
geom_bar(stat = "identity") 

但是，女性/男性数据量的差异使所得的图表变得毫无用处。用我的无限智慧，我认为以下方法可以通过将差异显示为比例而不是绝对值来解决此问题：

vetTib %>%
ggplot(aes(x = sex, y= count, fill = renthom1)) +
geom_bar(stat = "identity", position = “fill”)

但是不幸的是，这给了我以下内容：

Error: unexpected input in:
"    ggplot(aes(x = sex, y= count, fill = renthom1)) +
geom_bar(stat = "identity", position = “"

我不知道哪里出问题了！之前我已经多次使用geom_bar和position =“ fill”，所以我很困惑为什么它不按预期做！

非常感谢您的帮助！

谢谢， 斯蒂芬