Displaying 9 results from an estimated 9 matches for "lbls".
Did you mean:
lbl
2010 Jan 29
1
How to draw a border for multiple graphs in one page
...17
A1, A2... is different levels of the variable called concentration. Folllowing are their values. I uesd the R code below:
colors <- c("orange","red","purple","pink","blue","yellow","green")
lbls <- round(value/sum(value)*100,1)
lbls <- paste(lbls,"%",sep="")
postscript(file="H:/test.eps", height = 8, width = 8,onefile = FALSE, paper = "special")
par(mfrow=c(2,2),mar=c(0,0,0,0))
pie(value,labels=lbls,col=colors,radius=0.5)
box(bty="o",...
2010 Jan 29
1
How to draw a border for multiple graphs in one pager
...17
A1, A2... is different levels of the variable called concentration. Folllowing are their values. I uesd the R code below:
colors <- c("orange","red","purple","pink","blue","yellow","green")
lbls <- round(value/sum(value)*100,1)
lbls <- paste(lbls,"%",sep="")
postscript(file="H:/piechart.eps", height = 8, width = 8,onefile = FALSE, paper = "special")
par(mfrow=c(2,2),mar=c(0,0,0,0))
pie(value,labels=lbls,col=colors,radius=0.5)
box(bty="o&qu...
2010 Feb 17
4
Question about "Title"
...;,"A","B","C","A","B","C","A","B","A","B","A")
score <- c(60,90,32,56,89,45,77,82,68,79,56,77,90)
mydata <- data.frame(ID,test,score)
score_002 <- score[mydata$ID=="002"]
lbls <- round(score_002/sum(score_002)*100)
lbls <- paste(lbls,"%",sep="")
par(mar=c(4,4,4,4),oma=c(0,0,0,0))
pie(score_002,labels=lbls,radius=0.5)
title(main="Pie chart of score",font.main=3,cex.main=1,line=-2.6)
title(main="(Total score: 177)",font.main=3,...
2010 Feb 24
2
Question:How to get rid of missing values
...of it.
ID level
1 G1
1 A1
1 A1
1 G1
1 G1
1 G1
1 A1
1 A1
1 G1
1 G1
1 G3
1 A1
1 G1
1 A1
1 A1
1 A2
1 A2
1 M
1 A1
1 G1
1 A1
1
1
1 A2
1 G3
1 A1
1 A1
1 A1
Below is my r code:
level <- na.exclude(level)
level.table <- table(level)
level.sum <- sum(level.table )
lbls <- round(level.table /level.sum*100,1)
lbls <- paste(lbls,"%",sep="")
pie(level.table,labels=lbls,col=rainbow(length(level.table)),radius=0.5,cex=0.9)
The problem is the na.exclude function does not work here. Is it the reason that my missing values are not 'NA's...
2009 Jun 04
2
wrong labels and colors of points in graph/plot
...nts.
plot(coefficient2$intercept ~ coefficient2$average_height,
main="intercepts ::: height", ylab="intercepts", xlab="average height
per site [cm]", xlim=c(20,3020), ylim=c(-2,5), col=coefficient2$color)
highlight(coefficient2$intercept ~ coefficient2$average_height,
lbls=coefficient2$site_no,col="Red", cex = .6)
plot(coefficient2$intercept ~ coefficient2$average_dbh,
main="intercepts ::: dbh", ylab="intercepts", xlab="average dbh per
site [mm]", xlim=c(-10,360), ylim=c(-2,5),col=coefficient2$color )
highlight(coefficient2$in...
2010 Jan 10
0
ordering of additional columns in forest plot in meta package
...ded columns
("rnd.subgroup1" and "rnd.subgroup2") to follow this same proper
ordering.
library(meta)
# dummy data
nr.studies <- 20
rnd.subgroup1 <- round(rnorm(nr.studies,1.5,.1),0) # random 1s and 2s
rnd.subgroup2 <- c(letters[1:nr.studies]) # ordered unique letters
lbls <- c(letters[1:nr.studies]) # letters as surrogate study
labels 'author et al, year'
event <- round(rnorm(nr.studies,10,5),0) # random event nrs
event[event<0]<-0 # to avoid a negative value error
n <- round(rnorm(nr.studies,100,25),0) # random totals
myda...
2008 May 20
2
need some help in plotting xy graph
...of data falls within one day,
## otherwise use MM-DD hh:mm.
at.z <- chron(at.x)
hh <- paste(two_digits(hours(at.z)), two_digits(minutes(at.z)),
sep=":")
if(0){ ## hh:ss # this is commented as for more than one day
from/to time no date was printed
at.lbls <- hh
}
else { ## MM-DD\nhh:ss
m <- month.day.year(at.z)
dd <- paste(two_digits(m$month), two_digits(m$day), sep="-")
at.lbls <- paste(dd, hh, sep="\n")
}
list(x=list(at = at.x, rot=rot, labels = at.lbls))
}...
2008 May 21
2
need some help in plotting xy graph
...of data falls within one day,
## otherwise use MM-DD hh:mm.
at.z <- chron(at.x)
hh <- paste(two_digits(hours(at.z)), two_digits(minutes(at.z)),
sep=":")
if(0){ ## hh:ss # this is commented as for more than one day
from/to time no date was printed
at.lbls <- hh
}
else { ## MM-DD\nhh:ss
m <- month.day.year(at.z)
dd <- paste(two_digits(m$month), two_digits(m$day), sep="-")
at.lbls <- paste(dd, hh, sep="\n")
}
list(x=list(at = at.x, rot=rot, labels = at.lbls))
}...
2008 Nov 06
2
need help in plotting barchart
...NoRLL+30
With the following code I tried to generate a barchart plot
ok <- df$counts>0 & is.finite(df$counts)
ylim <- c(0, ceiling(max(log2(df$counts[ok]))))
by.n <- ifelse(abs(diff(ylim)) <= 5, 1, 2)
at <- seq(from=0, to = ylim[2], by = by.n)
lbls <- format(2^at)
yscales <- list(y=list(at = at, labels = lbls)) ## log base 2 ticks
scales = c(list(...)$xscales, yscales) ## combine passed scales,
if any
grps <- df[[group.var]][ok, drop = FALSE]
cond <- df[[cond.var]][ok, drop = FALSE]
j <- ma...