2017-07-22 13 views
0

私は水質をテストしプロットする必要があるインドの27州を持っています。user_defined関数を実行した後にエラーが発生しました

state_1 <- subset(train,train$State.Name=="ANDHRA PRADESH") 
ANDHRA <- as.data.frame(table(state_1$District.Name,state_1$Quality.Parameter,state_1$Year),stringsAsFactors = FALSE) 
str(ANDHRA) 
names(ANDHRA) <- c("District.Name","CHEMICAL","YEAR") 
an <- ggplot(ANDHRA,aes(ANDHRA$CHEMICAL,ANDHRA$Freq,fill=ANDHRA$District.Name)) 
an+geom_bar(stat="identity",position = "dodge")+facet_grid(.~ANDHRA$YEAR)+ 
labs(title="TREND of Chemical Compostion in Andhra Pradesh Villages",x="Chemicals",y="Number Of Cases",fill="Districts in Andhra Pradesh") 

私はユーザー定義関数を作成し、エラーなしでグローバル環境にロードします。

district_analysis<-function(a,b,d) { 
b<- subset(train,train$State.Name=="a") 
d<- as.data.frame(table(b$District.Name,b$Quality.Parameter,b$Year),stringsAsFactors = FALSE) 
names(d) <- c("District.Name","CHEMICAL","YEAR") 
an <- ggplot(d,aes(d$CHEMICAL,d$Freq,fill=d$District.Name)) 
an+geom_bar(stat="identity",position = "dodge")+facet_grid(.~d$YEAR)+labs(title=paste0("TREND of Chemical Compostion in ", a, " Villages"),x="Chemicals",y="Number Of Cases",fill=paste0("Districts in", a)) 
return(an) } 

私は引数でデータを渡しますが、このエラーが発生します。

> district_analysis(KERALA,bb,dd) 
Error in labs(title = "TREND of Chemical Compostion in ", a, " Villages", : 
object 'KERALA' not found 
Called from: labs(title = "TREND of Chemical Compostion in ", a, " Villages", 
x = "Chemicals", y = "Number Of Cases", fill = "Districts in", 
a) 
Browse[1]> n 

どのような理由があるかもしれませんか?

は現在、エラーを

------編集------
それらしいことを目的として "KERALA" を識別しません。

+0

「d」の列の数は3つの要素のベクトルを 'names 'として渡しているのに対して、 – akrun

+0

には、文字列や引用符に多くの問題があります。関数内で' have:train $ State.Name == "a"また、あなたはおそらくあなたの 'ケララ'入力 – jeremycg

+0

を引用する必要がありますあなたは絶対に正しいですが、私も二重引用符で引数を渡すとき。私はそれに何もないプロットを取得しています。あなたはコードを確認することができます。私はタイトルタグも値 – danishxr

答えて

0

エラーは簡単です。あなたは4つではなく3つの名前を定義する必要があります(CHEMICAL/Freqはエラーのある行の上に1行作成しています)

+0

を返さないと信じています。私はそれを編集しました。今は私が渡した州の名前を特定することができません。助けてください。 – danishxr

関連する問題