使用geom_bar在ggplot2中未显示的图

Question

我正在尝试使用ggplot()和geom_bar()绘制堆积的条形图

样本数据（Titanic Kaggle问题）：

PassengerId   Survived   Age
          1          0    25
          2          1    20
          3          1    40
          4          0    10

我正在尝试显示每个年龄段的生存和死亡的堆积图（我将年龄划分为垃圾箱）。 执行命令时该图不可见。 当我添加print（）函数时，出现错误

错误：情节中没有图层

请告诉我这里有什么我想念的吗？

breaks <- seq(min(train$Age), max(train$Age), 10)
p <- ggplot(train, aes(x=train$Age, y=length(train$PassengerId)), xlab = "age", ylab = "count", main = "survival", 
   fill = Survived + geom_bar(stat = "identity", bin = breaks))

print(p)

“火车”是我存储数据的对象。

Answer 1

这里有一些问题：

首先，您应该删除age为NA的行，否则无法创建序列。

train<-train[!is.na(train$Age),]

然后，您应该将y值更改为train$Survived （为什么要使用length(train$PassengerId) ？-它什么都不显示）@Pascal提到的内容也是正确的：您必须输入+ geom_bar(stat="identity", bin=breaks)之外。 并且您需要在ggplot中以不同的方式添加轴和标题。

这是完整的工作代码：

train<-train[!is.na(train$Age),]

breaks <- seq(min(train$Age), max(train$Age), 10)
p <- ggplot(train, aes(x=train$Age, y=train$Survived), 
            fill = Survived)+ geom_bar(stat="identity", bin=breaks)
p <- p+labs(x="age", y="count")

p <- p+theme(plot.title= element_text("survival"))


print(p)

该图的结果：

Answer 2

除了Pascal的提示，您可能还需要：

• 彩色柱的使用系数（尚存）
• 根据建议使用不同的geom_bar（）和aes（）参数

码：

train <- data.frame(PassengerId = 1:4, Survived = factor(c(0,1,1,0)), Age = c(25, 20, 40, 10))
BIN.WIDTH <- 10
my.breaks <- seq(from = min(train$Age), to = max(train$Age) + BIN.WIDTH, by = BIN.WIDTH)
ggplot(train, aes(Age, fill = Survived)) + geom_bar(breaks = my.breaks)

情节：