Visualization Notes: 02/19/22

Saturday, February 19, 2022

R Ggplot2 Box Plots

xxxxxxxxxx
 
print(r.eval("""
options(bitmapType='cairo'); fn<-'Rplots.png'
png(fn,pointsize=12,bg='whitesmoke')
library(ggplot2)
theme_set(theme_bw())
user<-'https://raw.githubusercontent.com/VioletaStoyanova/'
file<-paste0(user,'Untidy_data/master/')
file<-paste0(file,'chicago-nmmaps.csv')
chic<-read.csv(file)
chic$date<-as.Date(as.character(chic$date),'%Y-%m-%d')
g<-ggplot(chic,aes(season,o3))+
geom_boxplot(aes(fill=season,color=season),size=.2,outlier.size=.2)+
labs(x='season',y='ozone')+ggtitle('Chicago`s Daily Ozone Levels')+
scale_color_brewer(palette='Set2')+
scale_fill_brewer(palette='Set1')+
theme(axis.text.x=element_text(
          size=4,angle=45,vjust=.5,family='Courier'),
      axis.text.y=element_text(size=4,hjust=.5,family='Courier'),
      legend.position='none',
      title=element_text(
          size=7,color='slategray',family='Comic Sans MS'))
ggsave(fn,width=2.1,height=2.1)
dev.off()"""))

R Ggplot2 & CSV

xxxxxxxxxx
 
print(r.eval("""
options(bitmapType='cairo'); fn<-'Rplots.png'
png(fn,pointsize=12,bg='whitesmoke')
library(ggplot2)
theme_set(theme_bw())
user<-'https://raw.githubusercontent.com/VioletaStoyanova/'
file<-paste0(user,'Untidy_data/master/')
file<-paste0(file,'chicago-nmmaps.csv')
chic<-read.csv(file)
chic$date<-as.Date(as.character(chic$date),'%Y-%m-%d')
g<-ggplot(chic,aes(x=date,y=temp,color=season,shape=season))
g+geom_point(size=.2)+
scale_color_brewer(palette='Set1')+
labs(x='year',y='temperature (F)')+
ggtitle('Chicago`s Daily Temperature')+
theme(axis.text.x=element_text(size=4,angle=30,vjust=.5),
      axis.text.y=element_text(size=4,hjust=.5),
      legend.text=element_text(size=4),
      legend.title=element_blank(),
      legend.position='top',
      legend.key.size=unit(.3,'cm'),
      title=element_text(size=4,color='slategray'))
ggsave(fn,width=2.1,height=2.1)
dev.off()
"""))