Fehler beim Erstellen benutzerdefinierte Funktion für meine Code

Question

Der unten stehende Teil des Codes wird für eine Analyse der chemischen Zusammensetzung von Wasser für alle Bezirke in einem bestimmten Bundesstaat Indien bis 2009 verwendet: 2012 Zug ist die Eltern Daten Quality.Parameter gibt Info über Chemikalien

Ich habe etwa 27 indischen Staaten und wollen die Chemikalien im Wasser über Code-Plot dies analysieren.

table(train$State.Name) 

    ANDHRA PRADESH ARUNACHAL PRADESH    ASSAM    BIHAR  CHATTISGARH  CHHATTISGARH 
     2888    612    79910    92336    25062    8815 
     GUJARAT   HARYANA HIMACHAL PRADESH JAMMU AND KASHMIR   JHARKHAND   KARNATAKA 
     2092    262    88    67    3913    30824 
     KERALA MADHYA PRADESH  MAHARASHTRA   MANIPUR   MEGHALAYA   NAGALAND 
     4800    14449    12480    14    427    618 
     ORISSA  PUDUCHERRY   PUNJAB   RAJASTHAN  TAMIL NADU   TRIPURA 
     68620    17    1056   131417    3164    26235 
UTTAR PRADESH  UTTARAKHAND  WEST BENGAL 
     9918    57    30101 

Statt den Code immer wieder für die verschiedenen Zustände des Schreibens habe ich eine benutzerdefinierte Funktion

Aber beim Versuch, die Funktion ich die Störung erhalte zu laufen, wie diese

> 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","Freq") 
+  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="TREND of Chemical Compostion in" a "Villages",x="Chemicals",y="Number Of Cases",fill="Districts in" a) 
Error: unexpected symbol in: 
" 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="TREND of Chemical Compostion in" a" 
> return(an) } 
Error: unexpected '}' in " return(an) }" 

Ich bin nicht in der Lage, den Grund herauszufinden, bitte schlagen Sie mir den Code bearbeiten.

Answer 1

Sie vergessen, die Zeichenfolgen einzufügen.

+labs(title="TREND of Chemical Compostion in" a "Villages" 

funktioniert nicht, das sein sollte:

+labs(title=paste0("TREND of Chemical Compostion in ", a, " Villages") 

es eine einzelne Saite zu machen. Dasselbe gilt für den Füllparameter. Ich bin mir nicht einmal sicher, ob Sie den Parameter auf diese Weise verwenden können, und er sollte nicht in Ihrer Funktion labs() enthalten sein.

Hoffe, das hilft.