R Ggplot2 Box 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

user<-'https://raw.githubusercontent.com/VioletaStoyanova/'

7

file<-paste0(user,'Untidy_data/master/')

8

file<-paste0(file,'chicago-nmmaps.csv')

9

chic<-read.csv(file)

10

chic$date<-as.Date(as.character(chic$date),'%Y-%m-%d')

11

g<-ggplot(chic,aes(season,o3))+

12

geom_boxplot(aes(fill=season,color=season),size=.2,outlier.size=.2)+

13

labs(x='season',y='ozone')+ggtitle('Chicago`s Daily Ozone Levels')+

14

scale_color_brewer(palette='Set2')+

15

scale_fill_brewer(palette='Set1')+

16

theme(axis.text.x=element_text(

17

          size=4,angle=45,vjust=.5,family='Courier'),

18

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

19

      legend.position='none',

20

      title=element_text(

21

          size=7,color='slategray',family='Comic Sans MS'))

22

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

23

dev.off()"""))

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

---

Messages