R Notebook

DATA VISUALISATION WITHOUT CODING

setwd("~/R.TRAINING")

library(gganimate)       
library(ggstatsplot)     

G3;You can cite this package as:
     Patil, I. (2021). Visualizations with statistical details: The 'ggstatsplot' approach.
     Journal of Open Source Software, 6(61), 3167, doi:10.21105/joss.03167
g

library(patchwork)     
library(plotly)        

G3;
Attaching package: ‘plotly’

gG3;The following object is masked from ‘package:ggplot2’:

    last_plot

gG3;The following object is masked from ‘package:stats’:

    filter

gG3;The following object is masked from ‘package:graphics’:

    layout

g

library(gifski)        
library(GWalkR)        
library(esquisse)

LOAD DATASET

data <- read.csv("GSSsubset.csv")
head(data)

Data visualisation using esquisse

library(esquisse)
#squisser(data)
library(ggplot2)

P1 = ggplot(data) +
 aes(x = age, y = income) +
 geom_point(colour = "#21CFBA") +
 labs(x = "Age of respondents", 
 y = "income in ksh", title = "scatterplot", subtitle = "source is Kim") +
 theme_minimal() +
 theme(plot.title = element_text(size = 16L, 
 face = "bold", hjust = 0.5), plot.subtitle = element_text(size = 12L, face = "italic", hjust = 1), 
 axis.text.y = element_text(size = 12L), axis.text.x = element_text(size = 12L))

#esquisser(data)
library(ggplot2)

P2 = ggplot(data) +
 aes(x = degree, fill = degree) +
 geom_bar() +
 scale_fill_hue(direction = 1) +
 labs(x = "Education level", 
 title = "BARCHART", caption = "Source : Kim") +
 theme_light() +
 theme(plot.title = element_text(size = 15L, 
 face = "bold", hjust = 0.5), axis.text.y = element_text(size = 13L), axis.text.x = element_text(size = 13L))

#esquisser(data)
library(ggplot2)

ggplot(data) +
 aes(x = weight, y = height) +
 geom_point(colour = "#B00FC3") +
 labs(title = "scatterplot") +
 theme_minimal() +
 theme(plot.title = element_text(face = "bold", hjust = 0.5), axis.text.y = element_text(size = 13L), 
 axis.text.x = element_text(size = 13L))

#esquisser(data)

library(ggplot2)

ggplot(data) +
 aes(x = degree, y = income, fill = degree) +
 geom_col() +
 scale_fill_hue(direction = 1) +
 labs(title = "barchat") +
 theme_minimal() +
 theme(legend.position = "top", plot.title = element_text(hjust = 0.5), 
 axis.title.y = element_text(size = 14L), axis.title.x = element_text(size = 13L), axis.text.y = element_text(face = "italic", 
 size = 13L), axis.text.x = element_text(face = "italic", size = 13L), legend.text = element_text(size = 12L), 
 legend.title = element_text(size = 14L))

library(patchwork)
combine <- (P1| P2) + 
  plot_annotation(title = "Combined Plots Example")

print(combine)

plot_pppp <- ggsave("plot_1.png")

Saving 7 x 7 in image

library(GWalkR)
#gwalkr(data)