R Notebook

setwd("~/R training")

library(gganimate)       
library(ggstatsplot)     
library(patchwork)     
library(plotly)        
library(gifski)        
library(GWalkR)        
library(esquisse)

Data visualization with no coding

** Load the dataset**

data = read.csv("GSSsubset.csv")
head(data)

Data visualization using esquisse

library(esquisse)

#esquisser(data
library(ggplot2)

p1 = ggplot(data) +
 aes(x = age, y = income) +
 geom_point(colour = "#FF0318") + 
 labs(x = "age of respondense", 
 y = "income in kshs", title = "SCATTERPLOT", caption = "Source: Chris Okayo") +
 ggthemes::theme_economist() +
 theme(plot.title = element_text(size = 16L, face = "bold", hjust = 0.5), plot.caption = element_text(size = 12L, 
 face = "bold"), axis.title.y = element_text(size = 14L, face = "bold"), axis.title.x = element_text(size = 14L, 
 face = "bold"), axis.text.y = element_text(size = 12L), axis.text.x = element_text(size = 12L))

#esquisser(data)
library(ggplot2)
library(ggplot2)

p2 = ggplot(data) +
 aes(x = degree, fill = degree) +
 geom_bar() + 
 scale_fill_hue(direction = 1) +
 labs(x = "education level", 
 y = "No. of respondence", title = "BARCHART", caption = "Source: Chris Okayo") +
 ggthemes::theme_gdocs() +
 theme(plot.title = element_text(size = 16L, face = "bold", hjust = 0.5), plot.caption = element_text(face = "italic"), 
 axis.title.y = element_text(size = 14L, face = "bold"), axis.title.x = element_text(size = 14L, 
 face = "bold"))

library(patchwork)

combine <- (p1 |p2) +
  plot_annotation(title = "combined plot")

print(combine)

#esquisser(data)
library(ggplot2)
library(ggplot2)

ggplot(data) +
 aes(x = height, y = weight) + 
 geom_point(colour = "#FF00E5") +
 labs(x = "height of individuals", 
 y = "weight of individuals", title = "SCATTERPLOT", caption = "Source : Okayo") +
 ggthemes::theme_base() +
 theme(plot.title = element_text(size = 16L, face = "bold", hjust = 0.5))

#esquisser(data)
library(ggplot2
library(ggplot2)

G1;H1;Errorh: unexpected symbol in:
"library(ggplot2
library"
Error during wrapup: not that many frames on the stack
Error: no more error handlers available (recursive errors?); invoking 'abort' restart
g

ggplot(data) +
 aes(x = age) +
 geom_histogram(bins = 30L, fill = "#228B22") +
 labs(title = "HISTOGRAM", 
 caption = "Source: OKAYO") +
 theme_minimal() +
 theme(plot.title = element_text(size = 16L, face = "bold", 
 hjust = 0.5), plot.caption = element_text(face = "italic"))

G2;H2;Warningh: Removed 11 rows containing non-finite outside the scale range (`stat_bin()`).g

)

G1;H1;Errorh: unexpected ')' in ")"
Error during wrapup: not that many frames on the stack
Error: no more error handlers available (recursive errors?); invoking 'abort' restart
g

#esquisser(data)
library(ggplot2)
library(ggplot2)

ggplot(data) +
 aes(x = income, y = degree, fill = degree) +
 geom_boxplot() +
 scale_fill_hue(direction = 1) +
 labs(x = "income", y = "Degree", title = "BOXPLOT", caption = "Source : OKAYO") +
 ggthemes::theme_pander() +
 theme(axis.text.y = element_text(size = 11L), axis.text.x = element_text(size = 12L))

library(GWalkR)
gwalkr(data)

plot_1 <- ggsave("plot_1.png")

Saving 7 x 7 in image