R语言：为xts对象添加条件判断遇NA及类型警告问题求助

核心问题点 #

1. 普通if语句无法处理向量判断：if仅能接受单个逻辑值，而x[,3]是向量型数据，直接使用if会返回NA。
2. 未持久化NA移除操作：执行na.omit(x)但未赋值给x，导致原数据中的NA仍保留，后续比较时会传递NA到结果列。
3. xts对象类型限制：xts时间序列要求所有列数据类型一致，新增字符型列diff2与原有数值型列冲突，触发类型转换警告并生成NA。

修正方案 #

方案1：转换为Data.Frame处理（推荐，支持混合数据类型）

# 获取股票数据
._883 <- quantmod::getSymbols("0883.HK", from = "2022-04-21", to = "2022-12-22", auto.assign = FALSE)
._600938 <- quantmod::getSymbols("600938.SS", from = "2022-04-21", to = "2022-12-22", auto.assign = FALSE)

# 合并数据并转换为Data.Frame，重命名列便于识别
x <- as.data.frame(cbind(._883[,6], ._600938[,6]))
colnames(x) <- c("price_0883HK", "price_600938SS")
x$date <- rownames(x)

# 计算价差并移除NA（必须赋值回x）
x$diff <- x$price_600938SS - x$price_0883HK
x <- na.omit(x)

# 计算价差均值
diff_avg <- mean(x$diff, na.rm = TRUE)

# 生成判断列
x$diff2 <- ifelse(x$diff < diff_avg, "below average", "above average")

# 查看结果
head(x)

方案2：保留xts格式（用因子存储字符结果）

# 获取股票数据
._883 <- quantmod::getSymbols("0883.HK", from = "2022-04-21", to = "2022-12-22", auto.assign = FALSE)
._600938 <- quantmod::getSymbols("600938.SS", from = "2022-04-21", to = "2022-12-22", auto.assign = FALSE)

# 合并数据并计算价差
x <- cbind(._883[,6], ._600938[,6])
x$diff <- x[,2] - x[,1]

# 移除NA并赋值回x
x <- na.omit(x)

# 计算价差均值
diff_avg <- mean(x$diff, na.rm = TRUE)

# 将字符结果转为因子，避免xts类型冲突
x$diff2 <- as.factor(ifelse(x$diff < diff_avg, "below average", "above average"))

# 查看结果
head(x)

关键说明 #

• 必须将na.omit(x)的结果赋值给x，否则原数据中的NA不会被清除，后续逻辑判断会产生NA值。
• 向量级别的条件判断必须使用ifelse，而非普通if语句。
• xts对象不支持混合数值与字符类型列，要么转成Data.Frame，要么将字符转为因子类型。

内容的提问来源于stack exchange，提问作者Bubbles