library(networkD3)
library(treemap)
library(GGally)

## Įkeliamas reikalingas paketas: ggplot2

## Registered S3 method overwritten by 'GGally':
##   method from   
##   +.gg   ggplot2

getwd()

## [1] "C:/Users/skirmantas/OneDrive/Desktop"

setwd("C:/Users/skirmantas/OneDrive/Desktop")
duom <- read.csv2("C:/Users/skirmantas/OneDrive/Desktop/Duomenys/DPP.csv", header = TRUE, sep = ";", dec = ".")

Treemap

duom1 <- as.data.frame(table(duom[,2]))

treemap(duom1,
        index="Var1",
        vSize="Freq",
        type="index",
        title="Treemap"
)

# Matrix of scatterplots

 mat1=duom[,5:7]
 pairs(mat1)

print(anyNA.data.frame(duom1))

## [1] FALSE

duom1[duom1 == "?"] <- NA
duom1 <- na.omit(duom1)

parallel plot

ggparcoord(duom,
           columns = c(1,5:9), groupColumn = 3,
           showPoints = TRUE, 
           title = "Attribute values of diamond color",
           alphaLines = 1
) + 
  scale_color_discrete()

 library(GGally)

ggparcoord(data = duom)