R包含二进制列的新数据帧

# 创建一个包含二进制列的数据帧
data <- data.frame(
  Name = c("Alice", "Bob", "Charlie"),
  Married = c(TRUE, FALSE, TRUE),
  HasCar = c(1, 0, 1)
)

# 查看数据帧
print(data)

# 对二进制列进行统计分析
married_mean <- mean(data$Married)
print(paste("Married mean:", married_mean))

# 可视化二进制列
library(ggplot2)
ggplot(data, aes(x = Married)) +
  geom_bar() +
  labs(title = "Married Status", x = "Married", y = "Count")

# 检查二进制列的值
unique(data$Married)
unique(data$HasCar)

# 统一二进制列的值
data$Married <- as.logical(data$Married)
data$HasCar <- as.numeric(data$HasCar) == 1

# 确保二进制列的数据类型一致
data$Married <- as.logical(data$Married)
data$HasCar <- as.numeric(data$HasCar) == 1

# 重新进行统计分析
married_mean <- mean(data$Married)
print(paste("Married mean:", married_mean))