R Ggplot2 & CSV

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(x=date,y=temp,color=season,shape=season))

12

g+geom_point(size=.2)+

13

scale_color_brewer(palette='Set1')+

14

labs(x='year',y='temperature (F)')+

15

ggtitle('Chicago`s Daily Temperature')+

16

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

17

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

18

      legend.text=element_text(size=4),

19

      legend.title=element_blank(),

20

      legend.position='top',

21

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

22

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

23

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

24

dev.off()

25

"""))

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

---

Messages