R Ggplot:geom“钢筋生产”；fat“；柱

我有：

然后我想绘制它们，这样我就可以得到x轴上的（1,2,3,4）和y轴上的元素数。例如，因为我在位置1中有3个元素，所以我想要与高度3的x=1相关的条，等等， 我希望：

x=1-->高度为3的条形图

x=2-->无条

x=3-->无条

x=4-->高度为9的条形图

所以我写：

> myData
      esito cella
43575     R     1
42446     R     1
49653     R     1
65053     R     4
72893     R     4
58299     R     4
61609     R     4
65377     R     4
70783     R     4
71949     R     4
65939     R     4
60434     R     4

结果是：

所以我得到了两条，但太大了。 如果我将

+xlim（c（0，4））

添加到它所绘制的ggplot中。。。没什么

编辑：

---

您可以使用

width

参数来控制脂肪度。下面是宽度=1时的情况：

> dput(myData)
structure(list(esito = structure(c(3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L), .Label = c("B", "P", "R"), class = "factor"), 
    cella = c(1L, 1L, 1L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L)), .Names = c("esito", 
"cella"), row.names = c(43575L, 42446L, 49653L, 65053L, 72893L, 
58299L, 61609L, 65377L, 70783L, 71949L, 65939L, 60434L), class = "data.frame")

---

x是数字还是因子？你能发布

dput（myData）

的输出吗？哇，你比我快了50秒…好建议！它工作得很好！我不知道为什么有时候R试图理解我们的意图，而不是做最简单的事情。无论如何，再次谢谢你！

> dput(myData)
structure(list(esito = structure(c(3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L), .Label = c("B", "P", "R"), class = "factor"), 
    cella = c(1L, 1L, 1L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L)), .Names = c("esito", 
"cella"), row.names = c(43575L, 42446L, 49653L, 65053L, 72893L, 
58299L, 61609L, 65377L, 70783L, 71949L, 65939L, 60434L), class = "data.frame")

myData %>% 
     group_by(cella) %>%
     dplyr::mutate(n =n()) %>%
     unique() %>% 
     ggplot(., aes(x= cella, y=n), col="blue") + 
     geom_bar(stat='identity', fill='purple', colour="white", width = 1) + #, position='dodge'
     ggtitle("Riggio rules")+
     xlab("X")+
     ylab("number")