parameterised.R

#################################################

# un-parameterised

require(dplyr)

df = iris[,sapply(X = iris
                , function(X) is.numeric(X))]

df.cluster = df %>% kmeans(x = .
                           , centers = 4)
  
df %>% plot(main = '4 Cluster Solution'
                , col = df.cluster$cluster)

#################################################

# partially parameterised

require(dplyr)

nClust = 4

df = iris[,sapply(X = iris
                  , function(X) is.numeric(X))]

df.cluster = df %>% kmeans(x = .
                           , centers = nClust)

df %>% plot(main = paste(nClust, 'Cluster Solution')
            , col = df.cluster$cluster)

#################################################

# parameterised

find_clusters = function(inputData, nClust){
  df = inputData[,sapply(X = inputData
                    , function(X) is.numeric(X))]
  
  df.cluster = df %>% kmeans(x = .
                             , centers = nClust)
  
  df %>% plot(main = paste(nClust, 'Cluster Solution')
              , col = df.cluster$cluster)
}

find_clusters(inputData = iris, nClust = 3)