R 未在带有几何图形条的ggplot2中显示的绘图

我正在尝试使用

ggplot（）

和

geom\u bar（）

样本数据（泰坦尼克号卡格尔号问题）：

我试图展示每个年龄段的存活和死亡的堆叠条状图（我已经将年龄划分为若干个箱子）。执行命令时，绘图不可见。当我添加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)

---

中断这里有几个问题：

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

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

此图中的结果：
这里有几个问题：

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

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

此图中的结果：
除了帕斯卡的提示，您可能还想：


彩色列的使用系数（续）
按照建议使用不同的geom_bar（）和aes（）参数

代码：

train除了Pascal的提示，您可能还想：


彩色列的使用系数（续）
按照建议使用不同的geom_bar（）和aes（）参数

代码：

ggplot中的train（train，aes（x=train$Age，y=length（train$PassengerId））
，
y
长度为1。也许你需要
seq_length（PassengerId）
@Pascal我试过了，同样的错误。是的，你需要
ggplot中的p（train，aes（x=train$Age，y=length（train$PassengerId））
，
y
长度为1。也许你需要
seq_length（PassengerId）
@Pascal我试过了，同样的错误。是的，你需要
p我使用了
ggplot（train，aes（Age，fill=survive），xlab=“Age”，ylab=“count”，main=“Survival”）+geom_条（breaks=breaks）
并得到错误：
单位错误（tic位置c，“mm”）：“x”和“units”的长度必须大于0
变量
train
看起来像什么？（例如，向我们显示
str（train）
）的结果以及您使用的ggplot库是什么？我使用了库（ggplot2）它得到了解决。它表明，由于幸存的错误没有作为因子存储在数据框中。我使用了
ggplot（train，aes）（Age，fill=survive），xlab=“Age”，ylab=“count”，main=“Survival”）+geom_bar（breaks=breaks）
和获取错误：
单位中的错误（tic_pos.c，“mm”）：“x”和“units”的长度必须大于0
变量
train
看起来像什么？（例如，向我们显示
str（train）
的结果）还有，您使用的是什么ggplot库？我使用了库（ggplot2），它得到了解决。它显示错误，因为幸存下来的错误没有作为因子存储在数据帧中。
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)

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)