Introduction

The main objective of this analysis is to create visual representation of body fat present in each human within given 253 records.

Set working directory and load data

setwd("C:/Users/Sanjiv/Desktop/Data_Visualization/Data")

R = read.csv("data.csv")

# Analyzing Data

str(R)

## 'data.frame':    252 obs. of  14 variables:
##  $ BODYFAT: num  12.6 6.9 24.6 10.9 27.8 20.6 19 12.8 5.1 12 ...
##  $ AGE    : int  23 22 22 26 24 24 26 25 25 23 ...
##  $ WEIGHT : num  154 173 154 185 184 ...
##  $ HEIGHT : num  67.8 72.2 66.2 72.2 71.2 ...
##  $ NECK   : num  36.2 38.5 34 37.4 34.4 39 36.4 37.8 38.1 42.1 ...
##  $ CHEST  : num  93.1 93.6 95.8 101.8 97.3 ...
##  $ ABDOMEN: num  85.2 83 87.9 86.4 100 94.4 90.7 88.5 82.5 88.6 ...
##  $ HIP    : num  94.5 98.7 99.2 101.2 101.9 ...
##  $ THIGH  : num  59 58.7 59.6 60.1 63.2 66 58.4 60 62.9 63.1 ...
##  $ KNEE   : num  37.3 37.3 38.9 37.3 42.2 42 38.3 39.4 38.3 41.7 ...
##  $ ANKLE  : num  21.9 23.4 24 22.8 24 25.6 22.9 23.2 23.8 25 ...
##  $ BICEPS : num  32 30.5 28.8 32.4 32.2 35.7 31.9 30.5 35.9 35.6 ...
##  $ FOREARM: num  27.4 28.9 25.2 29.4 27.7 30.6 27.8 29 31.1 30 ...
##  $ WRIST  : num  17.1 18.2 16.6 18.2 17.7 18.8 17.7 18.8 18.2 19.2 ...

library(GGally)

# Plotting scatterplot matrix
ggpairs(R[,1:14])

Setting radius for the circles

radius <- sqrt( R$BODYFAT/ pi )

Creating bubble plot

symbols(R$CHEST, R$ABDOMEN, circles=radius, inches=0.35, fg="white", bg="blue", 
        xlab="CHEST", ylab="ABDOMEN")

Plotting scatterplot