# 你需要的應該就是 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
: 賣多少 詢價
: 有現貨嗎 供貨
: 多少錢 詢價
: 有貨嗎 供貨
: 有故障嗎 狀況
: 請問我該怎麼做呢？