HI,
Not sure if this is what you wanted.
pdf("BarplotsNew.pdf")
library(plotrix)
lst2<-lapply(seq_len(ncol(dat1)),function(i){
Ctdat<- table(dat1[,i])
Ctdat1<-(Ctdat/sum(Ctdat))*100
dat2<-data.frame(Ctdat,Ctdat1,stringsAsFactors=FALSE)[,-3]
colnames(dat2)[3]<-"Rel.Freq"
dat2[,1]<- as.numeric(as.character(dat2[,1]))
with(dat2,twoord.plot(Var1,Rel.Freq,Freq,
lylim=c(0,100),rylim=c(0,1000),
ylab="Relative Frequency",
rylab="Frequency",main=paste("Bar
plot:",colnames(dat1)[i],sep=" "),
type=c("bar","l"),lcol=2,rcol=4,xtickpos=Var1,xticklab=Var1))
})
dev.off()
A.K.
----- Original Message -----
From: arun <smartpink...@yahoo.com>
To: Sudha Krishnan <sudha.krish...@marlabs.com>
Cc: R help <r-help@r-project.org>
Sent: Thursday, June 6, 2013 2:44 PM
Subject: Re: [R] generating a bar chart with two axis for co-linear variable
HI,
May be this helps:
dat1<- read.table("sampledata.txt",header=TRUE,sep=",",stringsAsFactors=FALSE)
pdf("Barplots.pdf")
lst1<-lapply(seq_len(ncol(dat1)),function(i) {Ctdat<-
table(dat1[,i]);Ctdat1<-(Ctdat/sum(Ctdat))*100;barplot(Ctdat1,ylim=c(0,100),xlab=colnames(dat1)[i],ylab="Relative
Frequency",main=paste("Barplot:",colnames(dat1)[i],sep=" "))})
dev.off()
A.K.
----- Original Message -----
From: Sudha Krishnan <sudha.krish...@marlabs.com>
To: "r-help@r-project.org" <r-help@r-project.org>
Cc:
Sent: Thursday, June 6, 2013 2:37 AM
Subject: [R] generating a bar chart with two axis for co-linear variable
Hello Dimitris,
I was goggling for some help on Sensitivity vs 1-specificity and saw your link.
I hope you can be of help to me in one of the issue that I am facing in
generating combo chart(bar chart and plot). I am a novice and have some
difficulty in getting this logic correct.
I am give a dataset (I am attaching a sample dataset).
I am using a barplot() and passing values for percentage frequency and the
corresponding variables. I am struck here, what my function does is only
calculate the frequency for the listed variables and not the frequency
percentage. Is there a method or a script with which I can pass the frequency
percent and the related values as category columns for x axis?
I will attach the graphs that I have generated so that you can suggest the
better way.
Sampledata - Sampledata.txt
What my function does to calculate the frequency with category names in X axis
- 1.png
My requirement is to generate percentage frequency of the variable in y1 and
not the frequency itself. 2.png (where x categories are missing)
Thanks,
Sudha Krishnan
______________________________________________
R-help@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.
BarplotsNew.pdf
Description: Adobe PDF document
______________________________________________ R-help@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.
