最后消失的柱子 (R)

Question

我正在尝试执行有罪代码：

cats <- data.frame(coat = c("calico", "black", "tabby"),
                   weight = c(2.1, 5.0, 3.2),
                   likes_string = c(1, 0, 1))
write.csv(x = cats, file = "data/feline-data.csv", row.names = FALSE)
cats <- read.csv(file = "data/feline-data.csv", stringsAsFactors = TRUE)
age <- c(2, 3, 5)
cbind(cats, age)

但是，当我在外套对象中插入一个级别并且运行最后一列（年龄）的代码消失时：

levels(cats$coat) <- c(levels(cats$coat), "tortoiseshell")
cats <- rbind(cats, list("tortoiseshell", 3.3, TRUE, 9))
cats

有人可以解释为什么当我在外套对象上插入一个级别时最后一列消失了吗？

Answer 1

原因是 age 没有分配给 'cats' 数据集

cats <- cbind(cats, age)

最后消失的柱子 (R)

Last Disappearing Columns (R)

r

list

dataframe

levels