R Basic Graphics => Barplots

xxxxxxxxxx

 

1

print(r.eval("""

2

svg(filename='Rplots.svg',width=6,height=4,onefile=TRUE,

3

    antialias=c('default','none','gray','subpixel'))

4

options(repr.plot.width=12,repr.plot.height=7)

5

par(mar=c(2,4,2,2))

6

m<-10; n<-100; data<-sample(1:m,n,replace=TRUE)

7

xmax<-round(1.2*max(table(data)))

8

pal<-colorRampPalette(

9

    colors=c('firebrick','midnightblue'))(m)

10

barplot(sort(table(data)),horiz=TRUE,col=pal,ylab='',

11

        las=1,main='R Countplot in Seconds',xlim=c(0,xmax))

12

dev.off()"""))

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages