如何在R中将数值数据集转换为二进制值？

# 创建一个数值数据集
data <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

# 设置阈值
threshold <- 5

# 使用ifelse函数转换为二进制值
binary_data <- ifelse(data > threshold, 1, 0)

# 打印结果
print(binary_data)

# 创建一个数值数据集
data <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

# 使用cut函数进行二进制转换
binary_data <- cut(data, breaks = c(-Inf, 5, Inf), labels = c(0, 1))

# 将因子类型转换为数值类型
binary_data <- as.numeric(as.character(binary_data))

# 打印结果
print(binary_data)

# 安装并加载dplyr包
install.packages("dplyr")
library(dplyr)

# 创建一个数值数据集
data <- data.frame(value = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10))

# 使用mutate和case_when进行二进制转换
binary_data <- data %>%
  mutate(binary_value = case_when(
    value > 5 ~ 1,
    TRUE ~ 0
  ))

# 打印结果
print(binary_data)