[R] Leading plus in numeric fields

[arun]

HI,

As you are more number of columns which are numeric,
try this:
set.seed(1)
dat1<-data.frame(OreTot=c(40,-7,41,35,7,15),GeoTot=c(TRUE,FALSE,TRUE,FALSE,TRUE,NA),OreCli=as.numeric(sample(1:25,6,replace=TRUE)))
dat2<-dat1[sapply(dat1,is.numeric)]
dat3<-data.frame(sapply(dat2,function(x) ifelse(x>0,formatC(x,format="f",digits=0,flag="+"),x)))
#or,
dat4<-data.frame(sapply(dat2,function(x) ifelse(x>0,gsub("(\\d+)","+\\1",x),x)))
dat4
 # OreTot OreCli
#1    +40     +7
#2     -7    +10
#3    +41    +15
#4    +35    +23
#5     +7     +6
#6    +15    +23

A.K.

----- Original Message -----
From: Luca Meyer <lucam1968 at gmail.com>
To: R help <R-help at r-project.org>
Cc: 
Sent: Thursday, August 30, 2012 1:54 AM
Subject: [R] Leading plus in numeric fields

Hello R experts,

I have go this data frame:

'data.frame':    1 obs. of  20 variables:
$ Anno  : chr "PREVISIONI VS TARGET"
$ OreTot: num 41
$ GioTot: logi NA
$ OrGTot: logi NA
$ OreCli: num 99
$ GioCli: logi NA
$ OrGCli: logi NA
$ OreFor: num -27
$ GioFor: logi NA
$ OrGFor: logi NA
$ OreOrt: num -18
$ GioOrt: logi NA
$ OrGOrt: logi NA
$ OreSpo: num -6
$ GioSpo: logi NA
$ OrGSpo: logi NA
$ OreUff: num -7
$ GioUff: logi NA
$ OrGUff: logi NA
$ temp  : num 0

Is there any way I can format the numeric fields so that I get a leading "+" whenever the value is > 0? In the specific case I would need something like:

'data.frame':    1 obs. of  20 variables:
$ Anno  : chr "PREVISIONI VS TARGET"
$ OreTot: num +41
$ GioTot: logi NA
$ OrGTot: logi NA
$ OreCli: num +99
$ GioCli: logi NA
$ OrGCli: logi NA
$ OreFor: num -27
$ GioFor: logi NA
$ OrGFor: logi NA
$ OreOrt: num -18
$ GioOrt: logi NA
$ OrGOrt: logi NA
$ OreSpo: num -6
$ GioSpo: logi NA
$ OrGSpo: logi NA
$ OreUff: num -7
$ GioUff: logi NA
$ OrGUff: logi NA
$ temp  : num 0

Thank you in advance,

Luca

Mr. Luca Meyer
www.lucameyer.com
R version 2.15.1
Mac OS X 10.8







    [[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.