[問題] function內判讀文字資料

[SleepyChink (SleepyChink)]

cityfreq<-function(area){
a<-as.character(data$city)
city<-c(a)
for(i in 1:length(data$city)){
if(city[i]=="area"){
city[i]<-1
}else{
city[i]<-0
}

}
numcity<-as.numeric(city)
freq<-sum(numcity)
print(freq)
}

cityfreq(Taipei) #預計算的城市
以上是我的程式碼，這樣是無法得到欲求的結果，想請教一下是否function不能夠放欲判讀問子項目?僅能做數值運算?
謝謝

--
Sent from my Windows

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 219.68.145.96
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1453306897.A.CDE.html
→ celestialgod: ==area不是 =="area"
→ celestialgod: 你確定程式不排版一下嗎？不然其實我是滿懶得看
→ benson415: 如果你預期的不是1，請問你想算的是？同樣的字數？
→ SleepyChink: 我想算的是判讀一列資料(各個縣市)，出現預設縣市的
→ SleepyChink: 次數(eg,function(Taipei)計算資料台北出現次數)
→ celestialgod: 所以改成==area可以跑吧？
→ celestialgod: 你要用變數，不是用字串