R Ggplot2 Bar Charts

xxxxxxxxxx

 

1

print(r.eval("""

2

options(bitmapType='cairo'); fn<-'Rplots.png'

3

png(fn,pointsize=12,bg='whitesmoke')

4

library(ggplot2)

5

theme_set(theme_bw())

6

g<-ggplot(mpg,aes(manufacturer))

7

g+geom_bar(aes(fill=class),width=.8)+

8

scale_fill_brewer(palette='BuPu')+

9

labs(title='Bar Charts for Categorical Variables')+

10

theme(axis.text.x=element_text(size=3,angle=65,vjust=.5),

11

      axis.text.y=element_text(size=3,hjust=.5),

12

      legend.text=element_text(size=3),

13

      legend.key.size=unit(.3,'cm'),

14

      title=element_text(size=5))

15

ggsave(fn,width=2.1,height=1.5)

16

dev.off()

17

"""))

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

---

Messages