Re: [R] Error when producing multiple graphes

From: Uli Kleinwechter <ulikleinwechter_at_yahoo.com.mx>
Date: Wed, 19 Mar 2008 10:26:25 +0100

bartjoosen schrieb:
> Could you provide us some working codo, so that we can reproduce the error
> and see what went wrong?
>
Of course. Here is the relevant part of the code I'm working with. I suppose it will be helpful for you to have the csv file, as well. But as an attachment will be deleted, I will send it to you upon request.


rm(list=ls(all.names=TRUE))

agr1<-read.csv2("sales.csv")

attach(agr1)

# Select variables:

type3m<-data.frame(cornmethod,maizemethod,paddymethod,ricemethod,rapemethod,ograinmethod,vegmethod, fruitmethod,ocropmethod,pigmethod,cowmethod,poultrymethod,eggmethod,oanimalmethod,forestrymethod,fisherymethod, rentmethod,processmethod,othermethod)

type3l<-data.frame(cornloc,maizeloc,paddyloc,riceloc,rapeloc,ograinloc,vegloc,fruitloc,ocroploc,pigloc, cowloc,poultryloc,eggloc,oanimalloc,forestryloc,fisheryloc,rentloc,processloc,otherloc)

#Define legends for bars

barnamesm<-c("1=Village fair","2=State quota", "3=Trader", "4=Other") barnamesloc<-c("1=nat. vill.","2=admin. vill.","3=township","4=county","5=province","6=outside prov.")

#Print barplots into ps file
postscript("salemethods.ps", horizontal=TRUE)

for(xn in names(type3m)) barplot(table(type3m[[xn]]), main = paste ("Barplot of", xn), width=0.75,legend.text=barnamesm, xlim=c(0,4),ylim=c(0,400))

dev.off()

#Print barplots into ps file
postscript("salelocations.ps", horizontal=FALSE)

for(xn in names(type3l)) barplot(table(type3l[[xn]]), main = paste("Barplot of", xn),legend.text=barnamesloc,xlim=c(0,6))

dev.off()

detach(agr1)

>
> Uli Kleinwechter wrote:
>
>> Dear all,
>>
>> Within a larger script I use the following code to produce barplots for
>> all variables contained in a dataframe "type3m":
>>
>> for(xn in names(type3m)) barplot(table(type3m[[xn]]), main = paste
>> ("Barplot of", xn), width=0.75,legend.text=barnamesm,
>> xlim=c(0,4),ylim=c(0,400))
>>
>> The plots are produced and printed into a *.ps file. However, R gives an
>> error message and aborts the script. The error message is:
>>
>> Fehler in rect(as.double(xleft), as.double(ybottom),
>> as.double(xright), :
>> ung├╝ltiges erstes Argument
>>
>> (it's in German. In English, it says something like "Error in
>> rect(as.double(xleft), as.double(ybottom), as.double(xright), : invalid
>> first argument)
>>
>> It seems to be some problem with the barplot function. The variables in
>> the dataframe are discrete variables taking values from 1 to 4 (hence,
>> the xlim=c(0,4) and the graph is supposed to show the frequency of each
>> value. Maybe the problem is related to the fact that not some variables
>> don't take all of the values, i.e., there are some that don't take the
>> value 1, for example.
>>
>> I spent quite some time trying to solve the problem, but can't manage
>> it. What's wrong here and how can it be solved?
>>
>> Thank you very much!
>>
>> Uli
>>
>>
>> [[alternative HTML version deleted]]
>>
>>
>> ______________________________________________
>> R-help_at_r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>>
>>
>
>

-- 
Uli Kleinwechter
Department of Agricultural Economics and Social Sciences
Faculty of Agriculture and Horticulture
Humboldt University of Berlin
Unter den Linden 6
D-10099 Berlin, Germany
Phone: (+49) 30 2093 6124, Fax. (+49) 30 2093 6301
E-mail: uli.kleinwechter_at_agrar.hu-berlin.de

______________________________________________
R-help_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Received on Wed 19 Mar 2008 - 09:30:15 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Wed 19 Mar 2008 - 10:30:23 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive