# 你需要的应该就是 merge()
qdf <- data.frame(
que = c("卖多少","有现货吗","多少钱","有货吗","有故障吗",
"有现货吗","多少钱","有故障吗"),
id = 1:8
)
# 建立对照表
ref <- data.frame(
que = c("卖多少","有现货吗","多少钱","有货吗","有故障吗"),
ans = c("询价", "供货", "询价", "供货", "状况")
)
# 合并
merge(qdf, ref, by.x = "que", by.y = "que")
# 因为合并的对应字段在 ref 和 qdf 都叫 "que"
# 所以可以简化成
merge(qdf, ref, by = "que")
※ 引述《ardodo (米虫)》之铭言：
: [问题类型]:
:
: 程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
:
: [软件熟悉度]:
: 请把以下不需要的部份删除
: 使用者(已经有用R 做过不少作品)
:
: [问题描述]：
: 各位版友好，最近开始接触文字探勘，对于文字探勘完全没概念，在此请教一下：
: 下列是我的资料
: qdf=data.frame(
: que=c("卖多少","有现货吗","多少钱","有货吗","有故障吗"),
: qtype=c("","","","","")
: )
: 我想要根据我的问题，将问题判断成三种状况："询价"、"供货"、"状况"，
: 预期结果如下：
: >qdf
: que qtype
: 卖多少 询价
: 有现货吗 供货
: 多少钱 询价
: 有货吗 供货
: 有故障吗 状况
: 请问我该怎么做呢？