R语言使用ifelse处理负值时分类异常问题求助

核心问题原因 #

VADER_Sent字段为字符型（chr）时，负号仅被当作字符串的一部分，无法被识别为数值的负标识，导致数值比较逻辑失效，最终负值被错误归类为中性。

解决步骤 #

1. 将字符型字段转换为数值型 #

先把字符格式的得分转成数值型，这是解决问题的关键：

# 转换为数值型，转换失败的内容会被设为NA
df$VADER_Sent_num <- as.numeric(df$VADER_Sent)

如果转换后出现NA，说明原字段存在非数值内容，可以检查并清理：

# 查看转换失败的行
df[is.na(df$VADER_Sent_num), ]
# 可选：删除含NA的行（根据业务需求调整）
df <- df[!is.na(df$VADER_Sent_num), ]

2. 重新执行情感分类逻辑 #

用转换后的数值型字段进行分类，嵌套ifelse或更清晰的case_when都可以：

嵌套ifelse写法

df$sentiment <- ifelse(df$VADER_Sent_num > 0.05, "pos",
                       ifelse(df$VADER_Sent_num < -0.05, "neg", "neu"))

dplyr的case_when写法（更易读）

library(dplyr)
df <- df %>%
  mutate(sentiment = case_when(
    VADER_Sent_num > 0.05 ~ "pos",
    VADER_Sent_num < -0.05 ~ "neg",
    TRUE ~ "neu"
  ))

3. 验证分类结果 #

检查负值的分类是否正确：

# 筛选负值行，查看分类结果
df[df$VADER_Sent_num < 0, c("VADER_Sent", "VADER_Sent_num", "sentiment")]

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