R Ggplot2 Area Plots

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

ggplot(economics,aes(x=date,y=psavert))+

7

geom_area(fill='steelblue',color='slategray',cex=.3,alpha=.7)+

8

labs(title='Personal Savings Rate',

9

     x='date',y='personal savings rate')+

10

theme(axis.text.x=element_text(size=4,angle=15,vjust=.5),

11

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

12

      title=element_text(size=5,color='slategray'))

13

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

14

dev.off()"""))

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

---

Messages