K-means Clustering
K-means algorithm :
\[\hat{\cal{S}} = \arg \min_{\cal{S}}
\sum_{j=1}^k \sum_{i \in \cal{S}_j} \| x_i - \mu_j \|^2\]
演算法目標為極小化組內變異和，其中\(\cal{S}
= \{ S_1, \ldots, S_k\}\)，\(\bigcup_{j=1}^{k} S_j = \{1, 2, \ldots, n
\}\)，\(S_j\)代表第\(j\)個子集合內的觀察值，而\(\mu_j\)為子集合的平均中心，\(k\)是使用者自訂的群集數，\(n\)則為觀察值總數。
data<- read.csv("~/110_2/（學）計量/final presentation/unique_version2.csv", fileEncoding = "big5")
names(data)<- enc2utf8(names(data))
N<- nrow(data)
data<- data[-which(data$品名 == "擂茶鬆餅"),]
name<- data$品名 %>% as.character() %>% enc2utf8()
data$品名<- NULL
uni_inc<- dummy_cols(data, remove_first_dummy = T, remove_selected_columns = T)
na_column<- uni_inc %>% lapply(function(x) var(x)==0) %>% unlist(use.names = F)
final_data<- uni_inc[, !na_column]
# no NAs afer standardization
scale_inc<- scale(final_data) %>% data.frame()
##########
d<- dist(scale_inc)
# screeplot
fviz_nbclust(scale_inc,
diss = d,
FUNcluster = kmeans, # k-means
method = "wss", # total within sum of square
k.max = 15) +
labs(title="Elbow Method for kmeans") +
theme(text = element_text(size = 20))
Clusters =4
K<- 4
k4 <- kmeans(scale_inc, centers = K, nstart = 25)
name4 <- data.frame(label = name, cluster = k4$cluster)
grouped_name<- lapply(1:4, function(c) name4$label[which(name4$cluster==c)] %>%
as.character)
fviz_cluster(k4, data = scale_inc, repel = T, labelsize = 5) +
theme(text = element_text(size = 20))
# 4
kable(grouped_name, "html", caption = "Table 1. Data outlook (K = 4)") %>%
kable_styling(bootstrap_options = c("striped", "hover", "responsive"),
position = "center") %>%
scroll_box(width = "900px", height = "300px")
Table 1. Data outlook (K = 4)
|
x
|
|
咖啡小西餅
|
|
檸檬酥餅
|
|
焦糖悌納餅
|
|
榛果巧克力餅
|
|
小農地瓜餅
|
|
檸檬鑽石餅
|
|
洋蔥餅
|
|
辣起司餅
|
|
芝麻脆圈圈餅
|
|
法式曲奇餅(厚黑芝麻)
|
|
法式曲奇餅(奶油原味)
|
|
法式曲奇餅(醇厚可可)
|
|
檸檬蛋糕
|
|
抹茶普蘭三明治
|
|
77哈哈球代可可脂巧克力
|
|
杏仁巧克力醬
|
|
77乳加
|
|
77乳加-益生菌+
|
|
77乳加-LIGHT
|
|
77乳加-LIGHT(迷你)
|
|
77黑金剛花生乳加(迷你)
|
|
77黑金剛花生乳加
|
|
77牛奶杏仁乳加(迷你)
|
|
77牛奶杏仁乳加
|
|
77黑巧杏仁乳加(迷你)
|
|
77黑巧杏仁乳加
|
|
巧菲斯夾心酥(牛奶口味)
|
|
77新貴派(花生白巧風味)
|
|
77新貴派(乳酸)
|
|
77新貴派(檸檬)
|
|
77新貴派(草莓)
|
|
77新貴派(藍莓)
|
|
77新貴派(綠茶)
|
|
77新貴派(花生)
|
|
巧克力夾心酥
|
|
花生夾心酥
|
|
檸檬夾心酥
|
|
新貴派大格酥(焙烤花生口味)
|
|
歐維氏單粒榛果
|
|
77巧菲斯夾心酥(牛奶口味)
|
|
新貴派大格酥(芝麻豆奶口味)
|
|
新貴派大格酥(烤焙花生口味)
|
|
新貴派大格酥(經典巧克力口味)
|
|
新貴派小格酥(宇治抹茶口味)
|
|
77新貴派(抹茶)-
|
|
新貴派大格酥(酸甜草莓口味)
|
|
歐維氏榛果
|
|
新貴派大格酥(檸檬口味)
|
|
新貴派小格酥(紅玉紅茶口味)
|
|
歐維氏草莓牛奶威化(迷你)
|
|
新貴派小格酥(迦納巧克力口味)
|
|
迷你新貴派(花生)
|
|
松露巧克力球
|
|
77榛子杯巧克力
|
|
歐維氏85%醇黑巧克力
|
|
歐維氏70%醇黑巧克力
|
|
歐維氏77%醇黑巧克力
|
|
77%黑巧克力
|
|
77代可可脂巧克力(黑色)
|
|
77新台幣代可可脂巧克力
|
|
77牛來運轉迷你波露代可可脂巧克力
|
|
77牛奶巧克力
|
|
77脆可(榖麥)
|
|
大波露代可可脂巧克力
|
|
歐維氏43%牛奶巧克力(益生菌)
|
|
歐維氏43%牛奶巧克力(添加益生菌)
|
|
歐維氏72%醇黑巧克力
|
|
歐維氏跳跳糖代可可脂巧克力(薄荷口味)
|
|
歐維氏跳跳糖代可可脂巧克力
|
|
歐維氏跳跳糖代可可脂巧克力(莓果派對)
|
|
歐維氏跳跳糖代可可脂巧克力(草莓口味)
|
|
鮮乳坊牛奶餅
|
|
蜜蘭諾醇黑千層
|
|
蜜蘭諾杏仁鬆塔
|
|
蛋黃餅
|
|
本味誠現瑞士牛奶餅
|
|
小農鮮乳餅
|
|
蜜蘭諾醇黑鬆塔
|
|
MINI牛奶餅
|
|
MINI本味誠現牛奶餅
|
|
本味誠現蘇格蘭乳酥餅
|
|
蜜蘭諾楓糖葡萄鬆塔
|
|
一口派-法式奶油
|
|
蜜蘭諾黑巧酥
|
|
蜜蘭諾千層鬆塔
|
|
牛奶餅
|
|
乳酥餅
|
|
一口派-焦糖鹽之花
|
|
穀香燕麥餅
|
|
77乳加(迷你)
|
|
莓果塔魯多
|
|
法式奶油雪茄捲(黑森林摩卡)
|
|
法式奶油雪茄捲(宇治抹茶)
|
|
|
x
|
|
巧克力葡萄達克瓦滋
|
|
抹茶紅豆達克瓦滋
|
|
百香果達克瓦滋
|
|
覆盆子達克瓦滋
|
|
堅果蛋白餅
|
|
法式磅蛋糕(7種蜜釀水果)
|
|
法式水果磅蛋糕
|
|
法式磅蛋糕(蜜漬橙香紅茶)
|
|
法式洛神普蘭三明治
|
|
法式鳳梨普蘭三明治
|
|
|
x
|
|
乳加可可球(黑糖珍奶)
|
|
乳加可可球(黑糖珍珠)
|
|
芋頭牛奶可可球
|
|
草莓牛奶可可球
|
|
|
x
|
|
脆加-唐辛子-玉米四層胚
|
|
脆加-柚子胡椒-玉米四層胚
|
|
脆加-椒香辣雞翅口味-玉米四層胚
|
|
脆加-辣雞翅-玉米四層胚
|
|
脆加-切達起司-玉米四層胚
|
|
脆加-法式奶油-玉米四層胚
|
|
Clusters =5
K<- 5
k5 <- kmeans(scale_inc, centers = K, nstart = 25)
name5 <- data.frame(label = name, cluster = k5$cluster)
grouped_name<- lapply(1:5, function(c) name5$label[which(name5$cluster==c)] %>%
as.character)
fviz_cluster(k5, data = scale_inc, repel = T, labelsize = 5) +
theme(text = element_text(size = 20))
# 5
kable(grouped_name, "html", caption = "Table 2. Data outlook (K = 5)") %>%
kable_styling(bootstrap_options = c("striped", "hover", "responsive"),
position = "center") %>%
scroll_box(width = "900px", height = "300px")
Table 2. Data outlook (K = 5)
|
x
|
|
乳加可可球(黑糖珍奶)
|
|
乳加可可球(黑糖珍珠)
|
|
芋頭牛奶可可球
|
|
草莓牛奶可可球
|
|
|
x
|
|
巧克力葡萄達克瓦滋
|
|
抹茶紅豆達克瓦滋
|
|
百香果達克瓦滋
|
|
覆盆子達克瓦滋
|
|
堅果蛋白餅
|
|
法式磅蛋糕(7種蜜釀水果)
|
|
法式水果磅蛋糕
|
|
法式磅蛋糕(蜜漬橙香紅茶)
|
|
法式洛神普蘭三明治
|
|
法式鳳梨普蘭三明治
|
|
|
x
|
|
咖啡小西餅
|
|
檸檬酥餅
|
|
焦糖悌納餅
|
|
榛果巧克力餅
|
|
小農地瓜餅
|
|
檸檬鑽石餅
|
|
洋蔥餅
|
|
辣起司餅
|
|
芝麻脆圈圈餅
|
|
法式曲奇餅(厚黑芝麻)
|
|
法式曲奇餅(奶油原味)
|
|
法式曲奇餅(醇厚可可)
|
|
檸檬蛋糕
|
|
抹茶普蘭三明治
|
|
77哈哈球代可可脂巧克力
|
|
杏仁巧克力醬
|
|
77乳加
|
|
77乳加-益生菌+
|
|
77乳加-LIGHT
|
|
77乳加-LIGHT(迷你)
|
|
77黑金剛花生乳加(迷你)
|
|
77黑金剛花生乳加
|
|
77牛奶杏仁乳加(迷你)
|
|
77牛奶杏仁乳加
|
|
77黑巧杏仁乳加(迷你)
|
|
77黑巧杏仁乳加
|
|
巧菲斯夾心酥(牛奶口味)
|
|
77新貴派(花生白巧風味)
|
|
77新貴派(乳酸)
|
|
77新貴派(檸檬)
|
|
77新貴派(草莓)
|
|
77新貴派(藍莓)
|
|
77新貴派(綠茶)
|
|
77新貴派(花生)
|
|
巧克力夾心酥
|
|
花生夾心酥
|
|
檸檬夾心酥
|
|
新貴派大格酥(焙烤花生口味)
|
|
歐維氏單粒榛果
|
|
77巧菲斯夾心酥(牛奶口味)
|
|
新貴派大格酥(芝麻豆奶口味)
|
|
新貴派大格酥(烤焙花生口味)
|
|
新貴派大格酥(經典巧克力口味)
|
|
新貴派小格酥(宇治抹茶口味)
|
|
77新貴派(抹茶)-
|
|
新貴派大格酥(酸甜草莓口味)
|
|
歐維氏榛果
|
|
新貴派大格酥(檸檬口味)
|
|
新貴派小格酥(紅玉紅茶口味)
|
|
歐維氏草莓牛奶威化(迷你)
|
|
新貴派小格酥(迦納巧克力口味)
|
|
迷你新貴派(花生)
|
|
松露巧克力球
|
|
77榛子杯巧克力
|
|
歐維氏85%醇黑巧克力
|
|
歐維氏70%醇黑巧克力
|
|
歐維氏77%醇黑巧克力
|
|
77%黑巧克力
|
|
77代可可脂巧克力(黑色)
|
|
77新台幣代可可脂巧克力
|
|
77牛來運轉迷你波露代可可脂巧克力
|
|
77牛奶巧克力
|
|
77脆可(榖麥)
|
|
大波露代可可脂巧克力
|
|
歐維氏43%牛奶巧克力(益生菌)
|
|
歐維氏43%牛奶巧克力(添加益生菌)
|
|
歐維氏72%醇黑巧克力
|
|
歐維氏跳跳糖代可可脂巧克力(薄荷口味)
|
|
歐維氏跳跳糖代可可脂巧克力
|
|
歐維氏跳跳糖代可可脂巧克力(莓果派對)
|
|
歐維氏跳跳糖代可可脂巧克力(草莓口味)
|
|
鮮乳坊牛奶餅
|
|
蜜蘭諾醇黑千層
|
|
蜜蘭諾杏仁鬆塔
|
|
蛋黃餅
|
|
本味誠現瑞士牛奶餅
|
|
小農鮮乳餅
|
|
蜜蘭諾醇黑鬆塔
|
|
MINI牛奶餅
|
|
MINI本味誠現牛奶餅
|
|
本味誠現蘇格蘭乳酥餅
|
|
蜜蘭諾楓糖葡萄鬆塔
|
|
一口派-法式奶油
|
|
蜜蘭諾黑巧酥
|
|
蜜蘭諾千層鬆塔
|
|
牛奶餅
|
|
乳酥餅
|
|
一口派-焦糖鹽之花
|
|
穀香燕麥餅
|
|
77乳加(迷你)
|
|
莓果塔魯多
|
|
法式奶油雪茄捲(黑森林摩卡)
|
|
法式奶油雪茄捲(宇治抹茶)
|
|
|
x
|
|
脆加-柚子胡椒-玉米四層胚
|
|
脆加-椒香辣雞翅口味-玉米四層胚
|
|
脆加-辣雞翅-玉米四層胚
|
|
脆加-切達起司-玉米四層胚
|
|
脆加-法式奶油-玉米四層胚
|
|
|
Clusters =6
K<- 6
k6 <- kmeans(scale_inc, centers = K, nstart = 25)
name6 <- data.frame(label = name, cluster = k6$cluster)
grouped_name<- lapply(1:K, function(c) name6$label[which(name6$cluster==c)] %>%
as.character)
fviz_cluster(k6, data = scale_inc, repel = T, labelsize = 5) +
theme(text = element_text(size = 20))
# 6
kable(grouped_name, "html", caption = "Table 3. Data outlook (K = 6)") %>%
kable_styling(bootstrap_options = c("striped", "hover", "responsive"),
position = "center") %>%
scroll_box(width = "900px", height = "300px")
Table 3. Data outlook (K = 6)
|
x
|
|
脆加-柚子胡椒-玉米四層胚
|
|
脆加-椒香辣雞翅口味-玉米四層胚
|
|
脆加-辣雞翅-玉米四層胚
|
|
脆加-切達起司-玉米四層胚
|
|
脆加-法式奶油-玉米四層胚
|
|
|
|
x
|
|
咖啡小西餅
|
|
檸檬酥餅
|
|
焦糖悌納餅
|
|
榛果巧克力餅
|
|
小農地瓜餅
|
|
檸檬鑽石餅
|
|
洋蔥餅
|
|
辣起司餅
|
|
芝麻脆圈圈餅
|
|
法式曲奇餅(厚黑芝麻)
|
|
法式曲奇餅(奶油原味)
|
|
法式曲奇餅(醇厚可可)
|
|
檸檬蛋糕
|
|
抹茶普蘭三明治
|
|
77哈哈球代可可脂巧克力
|
|
杏仁巧克力醬
|
|
77乳加
|
|
77乳加-益生菌+
|
|
77乳加-LIGHT
|
|
77乳加-LIGHT(迷你)
|
|
77黑金剛花生乳加(迷你)
|
|
77黑金剛花生乳加
|
|
77牛奶杏仁乳加(迷你)
|
|
77牛奶杏仁乳加
|
|
77黑巧杏仁乳加(迷你)
|
|
77黑巧杏仁乳加
|
|
巧菲斯夾心酥(牛奶口味)
|
|
77新貴派(花生白巧風味)
|
|
77新貴派(乳酸)
|
|
77新貴派(檸檬)
|
|
77新貴派(草莓)
|
|
77新貴派(藍莓)
|
|
77新貴派(綠茶)
|
|
77新貴派(花生)
|
|
巧克力夾心酥
|
|
花生夾心酥
|
|
檸檬夾心酥
|
|
新貴派大格酥(焙烤花生口味)
|
|
歐維氏單粒榛果
|
|
77巧菲斯夾心酥(牛奶口味)
|
|
新貴派大格酥(芝麻豆奶口味)
|
|
新貴派大格酥(烤焙花生口味)
|
|
新貴派大格酥(經典巧克力口味)
|
|
新貴派小格酥(宇治抹茶口味)
|
|
77新貴派(抹茶)-
|
|
新貴派大格酥(酸甜草莓口味)
|
|
歐維氏榛果
|
|
新貴派大格酥(檸檬口味)
|
|
新貴派小格酥(紅玉紅茶口味)
|
|
歐維氏草莓牛奶威化(迷你)
|
|
新貴派小格酥(迦納巧克力口味)
|
|
迷你新貴派(花生)
|
|
松露巧克力球
|
|
77榛子杯巧克力
|
|
歐維氏85%醇黑巧克力
|
|
歐維氏70%醇黑巧克力
|
|
歐維氏77%醇黑巧克力
|
|
77%黑巧克力
|
|
77代可可脂巧克力(黑色)
|
|
77新台幣代可可脂巧克力
|
|
77牛來運轉迷你波露代可可脂巧克力
|
|
77牛奶巧克力
|
|
77脆可(榖麥)
|
|
大波露代可可脂巧克力
|
|
歐維氏43%牛奶巧克力(益生菌)
|
|
歐維氏43%牛奶巧克力(添加益生菌)
|
|
歐維氏72%醇黑巧克力
|
|
歐維氏跳跳糖代可可脂巧克力(薄荷口味)
|
|
歐維氏跳跳糖代可可脂巧克力
|
|
歐維氏跳跳糖代可可脂巧克力(莓果派對)
|
|
歐維氏跳跳糖代可可脂巧克力(草莓口味)
|
|
鮮乳坊牛奶餅
|
|
蜜蘭諾醇黑千層
|
|
蜜蘭諾杏仁鬆塔
|
|
蛋黃餅
|
|
本味誠現瑞士牛奶餅
|
|
小農鮮乳餅
|
|
蜜蘭諾醇黑鬆塔
|
|
MINI牛奶餅
|
|
MINI本味誠現牛奶餅
|
|
本味誠現蘇格蘭乳酥餅
|
|
蜜蘭諾楓糖葡萄鬆塔
|
|
一口派-法式奶油
|
|
蜜蘭諾黑巧酥
|
|
蜜蘭諾千層鬆塔
|
|
牛奶餅
|
|
乳酥餅
|
|
一口派-焦糖鹽之花
|
|
穀香燕麥餅
|
|
77乳加(迷你)
|
|
莓果塔魯多
|
|
法式奶油雪茄捲(黑森林摩卡)
|
|
法式奶油雪茄捲(宇治抹茶)
|
|
|
x
|
|
法式磅蛋糕(7種蜜釀水果)
|
|
法式水果磅蛋糕
|
|
法式磅蛋糕(蜜漬橙香紅茶)
|
|
|
x
|
|
巧克力葡萄達克瓦滋
|
|
抹茶紅豆達克瓦滋
|
|
百香果達克瓦滋
|
|
覆盆子達克瓦滋
|
|
堅果蛋白餅
|
|
法式洛神普蘭三明治
|
|
法式鳳梨普蘭三明治
|
|
|
x
|
|
乳加可可球(黑糖珍奶)
|
|
乳加可可球(黑糖珍珠)
|
|
芋頭牛奶可可球
|
|
草莓牛奶可可球
|
|
Clusters =7
K<- 7
k7 <- kmeans(scale_inc, centers = K, nstart = 25)
name7 <- data.frame(label = name, cluster = k7$cluster)
grouped_name<- lapply(1:K, function(c) name7$label[which(name7$cluster==c)] %>% as.character)
fviz_cluster(k7, data = scale_inc, repel = T, labelsize = 5) +
theme(text = element_text(size = 20))
# 7
kable(grouped_name, "html", caption = "Table 4. Data outlook (K = 7)") %>%
kable_styling(bootstrap_options = c("striped", "hover", "responsive"),
position = "center") %>%
scroll_box(width = "900px", height = "300px")
Table 4. Data outlook (K = 7)
|
x
|
|
脆加-柚子胡椒-玉米四層胚
|
|
脆加-椒香辣雞翅口味-玉米四層胚
|
|
脆加-辣雞翅-玉米四層胚
|
|
脆加-切達起司-玉米四層胚
|
|
脆加-法式奶油-玉米四層胚
|
|
|
x
|
|
芋頭牛奶可可球
|
|
草莓牛奶可可球
|
|
77脆可(榖麥)
|
|
歐維氏跳跳糖代可可脂巧克力(薄荷口味)
|
|
歐維氏跳跳糖代可可脂巧克力
|
|
歐維氏跳跳糖代可可脂巧克力(莓果派對)
|
|
歐維氏跳跳糖代可可脂巧克力(草莓口味)
|
|
|
x
|
|
巧克力葡萄達克瓦滋
|
|
抹茶紅豆達克瓦滋
|
|
百香果達克瓦滋
|
|
覆盆子達克瓦滋
|
|
堅果蛋白餅
|
|
|
x
|
|
咖啡小西餅
|
|
檸檬酥餅
|
|
焦糖悌納餅
|
|
榛果巧克力餅
|
|
小農地瓜餅
|
|
檸檬鑽石餅
|
|
洋蔥餅
|
|
辣起司餅
|
|
芝麻脆圈圈餅
|
|
法式磅蛋糕(7種蜜釀水果)
|
|
法式水果磅蛋糕
|
|
法式磅蛋糕(蜜漬橙香紅茶)
|
|
法式曲奇餅(厚黑芝麻)
|
|
法式曲奇餅(奶油原味)
|
|
法式曲奇餅(醇厚可可)
|
|
抹茶普蘭三明治
|
|
法式洛神普蘭三明治
|
|
法式鳳梨普蘭三明治
|
|
鮮乳坊牛奶餅
|
|
蛋黃餅
|
|
本味誠現瑞士牛奶餅
|
|
小農鮮乳餅
|
|
MINI牛奶餅
|
|
MINI本味誠現牛奶餅
|
|
本味誠現蘇格蘭乳酥餅
|
|
一口派-法式奶油
|
|
牛奶餅
|
|
乳酥餅
|
|
一口派-焦糖鹽之花
|
|
穀香燕麥餅
|
|
莓果塔魯多
|
|
法式奶油雪茄捲(黑森林摩卡)
|
|
法式奶油雪茄捲(宇治抹茶)
|
|
|
x
|
|
檸檬蛋糕
|
|
77哈哈球代可可脂巧克力
|
|
杏仁巧克力醬
|
|
77乳加
|
|
77乳加-益生菌+
|
|
77乳加-LIGHT
|
|
77乳加-LIGHT(迷你)
|
|
77黑金剛花生乳加(迷你)
|
|
77黑金剛花生乳加
|
|
77牛奶杏仁乳加(迷你)
|
|
77牛奶杏仁乳加
|
|
77黑巧杏仁乳加(迷你)
|
|
77黑巧杏仁乳加
|
|
巧菲斯夾心酥(牛奶口味)
|
|
77新貴派(花生白巧風味)
|
|
77新貴派(乳酸)
|
|
77新貴派(檸檬)
|
|
77新貴派(草莓)
|
|
77新貴派(藍莓)
|
|
77新貴派(綠茶)
|
|
77新貴派(花生)
|
|
巧克力夾心酥
|
|
花生夾心酥
|
|
檸檬夾心酥
|
|
新貴派大格酥(焙烤花生口味)
|
|
歐維氏單粒榛果
|
|
77巧菲斯夾心酥(牛奶口味)
|
|
新貴派大格酥(芝麻豆奶口味)
|
|
新貴派大格酥(烤焙花生口味)
|
|
新貴派大格酥(經典巧克力口味)
|
|
新貴派小格酥(宇治抹茶口味)
|
|
77新貴派(抹茶)-
|
|
新貴派大格酥(酸甜草莓口味)
|
|
歐維氏榛果
|
|
新貴派大格酥(檸檬口味)
|
|
新貴派小格酥(紅玉紅茶口味)
|
|
歐維氏草莓牛奶威化(迷你)
|
|
新貴派小格酥(迦納巧克力口味)
|
|
迷你新貴派(花生)
|
|
松露巧克力球
|
|
77榛子杯巧克力
|
|
歐維氏85%醇黑巧克力
|
|
歐維氏70%醇黑巧克力
|
|
歐維氏77%醇黑巧克力
|
|
77%黑巧克力
|
|
77代可可脂巧克力(黑色)
|
|
77新台幣代可可脂巧克力
|
|
77牛來運轉迷你波露代可可脂巧克力
|
|
77牛奶巧克力
|
|
大波露代可可脂巧克力
|
|
歐維氏43%牛奶巧克力(益生菌)
|
|
歐維氏43%牛奶巧克力(添加益生菌)
|
|
歐維氏72%醇黑巧克力
|
|
蜜蘭諾醇黑千層
|
|
蜜蘭諾杏仁鬆塔
|
|
蜜蘭諾醇黑鬆塔
|
|
蜜蘭諾楓糖葡萄鬆塔
|
|
蜜蘭諾黑巧酥
|
|
蜜蘭諾千層鬆塔
|
|
77乳加(迷你)
|
|
|
x
|
|
乳加可可球(黑糖珍奶)
|
|
乳加可可球(黑糖珍珠)
|
|
|
Clusters =10
K<- 10
k10 <- kmeans(scale_inc, centers = K, nstart = 25)
name10 <- data.frame(label = name, cluster = k10$cluster)
grouped_name<- lapply(1:K, function(c) name10$label[which(name10$cluster==c)] %>% as.character)
fviz_cluster(k10, data = scale_inc, repel = T, labelsize = 5) +
theme(text = element_text(size = 20))
# 10
kable(grouped_name, "html", caption = "Table 1. Data outlook (K = 10)") %>%
kable_styling(bootstrap_options =c("striped", "hover", "responsive"),
position = "center") %>%
scroll_box(width = "900px", height = "300px")
Table 1. Data outlook (K = 10)
|
x
|
|
乳加可可球(黑糖珍奶)
|
|
乳加可可球(黑糖珍珠)
|
|
|
x
|
|
咖啡小西餅
|
|
榛果巧克力餅
|
|
辣起司餅
|
|
芝麻脆圈圈餅
|
|
法式曲奇餅(厚黑芝麻)
|
|
法式曲奇餅(奶油原味)
|
|
法式曲奇餅(醇厚可可)
|
|
檸檬蛋糕
|
|
77哈哈球代可可脂巧克力
|
|
杏仁巧克力醬
|
|
77乳加
|
|
77乳加-益生菌+
|
|
77乳加-LIGHT
|
|
77乳加-LIGHT(迷你)
|
|
77黑金剛花生乳加(迷你)
|
|
77黑金剛花生乳加
|
|
77牛奶杏仁乳加(迷你)
|
|
77牛奶杏仁乳加
|
|
77黑巧杏仁乳加(迷你)
|
|
77黑巧杏仁乳加
|
|
巧菲斯夾心酥(牛奶口味)
|
|
77新貴派(花生白巧風味)
|
|
77新貴派(乳酸)
|
|
77新貴派(檸檬)
|
|
77新貴派(草莓)
|
|
77新貴派(藍莓)
|
|
77新貴派(綠茶)
|
|
77新貴派(花生)
|
|
巧克力夾心酥
|
|
花生夾心酥
|
|
檸檬夾心酥
|
|
新貴派大格酥(焙烤花生口味)
|
|
歐維氏單粒榛果
|
|
77巧菲斯夾心酥(牛奶口味)
|
|
新貴派大格酥(芝麻豆奶口味)
|
|
新貴派大格酥(烤焙花生口味)
|
|
新貴派大格酥(經典巧克力口味)
|
|
新貴派小格酥(宇治抹茶口味)
|
|
77新貴派(抹茶)-
|
|
歐維氏榛果
|
|
新貴派大格酥(檸檬口味)
|
|
新貴派小格酥(紅玉紅茶口味)
|
|
歐維氏草莓牛奶威化(迷你)
|
|
新貴派小格酥(迦納巧克力口味)
|
|
迷你新貴派(花生)
|
|
松露巧克力球
|
|
77榛子杯巧克力
|
|
歐維氏85%醇黑巧克力
|
|
歐維氏70%醇黑巧克力
|
|
歐維氏77%醇黑巧克力
|
|
77%黑巧克力
|
|
77代可可脂巧克力(黑色)
|
|
77新台幣代可可脂巧克力
|
|
77牛來運轉迷你波露代可可脂巧克力
|
|
77牛奶巧克力
|
|
大波露代可可脂巧克力
|
|
歐維氏43%牛奶巧克力(益生菌)
|
|
歐維氏43%牛奶巧克力(添加益生菌)
|
|
歐維氏72%醇黑巧克力
|
|
蜜蘭諾醇黑千層
|
|
蜜蘭諾杏仁鬆塔
|
|
蛋黃餅
|
|
蜜蘭諾醇黑鬆塔
|
|
本味誠現蘇格蘭乳酥餅
|
|
蜜蘭諾楓糖葡萄鬆塔
|
|
一口派-法式奶油
|
|
蜜蘭諾黑巧酥
|
|
蜜蘭諾千層鬆塔
|
|
乳酥餅
|
|
一口派-焦糖鹽之花
|
|
77乳加(迷你)
|
|
法式奶油雪茄捲(黑森林摩卡)
|
|
法式奶油雪茄捲(宇治抹茶)
|
|
|
x
|
|
檸檬酥餅
|
|
焦糖悌納餅
|
|
檸檬鑽石餅
|
|
洋蔥餅
|
|
法式磅蛋糕(7種蜜釀水果)
|
|
法式水果磅蛋糕
|
|
法式磅蛋糕(蜜漬橙香紅茶)
|
|
抹茶普蘭三明治
|
|
法式洛神普蘭三明治
|
|
法式鳳梨普蘭三明治
|
|
鮮乳坊牛奶餅
|
|
本味誠現瑞士牛奶餅
|
|
小農鮮乳餅
|
|
MINI牛奶餅
|
|
MINI本味誠現牛奶餅
|
|
牛奶餅
|
|
穀香燕麥餅
|
|
莓果塔魯多
|
|
|
x
|
|
巧克力葡萄達克瓦滋
|
|
抹茶紅豆達克瓦滋
|
|
百香果達克瓦滋
|
|
覆盆子達克瓦滋
|
|
堅果蛋白餅
|
|
|
|
|
x
|
|
77脆可(榖麥)
|
|
歐維氏跳跳糖代可可脂巧克力(薄荷口味)
|
|
歐維氏跳跳糖代可可脂巧克力
|
|
歐維氏跳跳糖代可可脂巧克力(莓果派對)
|
|
歐維氏跳跳糖代可可脂巧克力(草莓口味)
|
|
|
|
x
|
|
脆加-柚子胡椒-玉米四層胚
|
|
脆加-椒香辣雞翅口味-玉米四層胚
|
|
脆加-辣雞翅-玉米四層胚
|
|
脆加-切達起司-玉米四層胚
|
|
脆加-法式奶油-玉米四層胚
|
|
|
Clusters =15
K<- 15
k15 <- kmeans(scale_inc, centers = K, nstart = 25)
name15 <- data.frame(label = name, cluster = k15$cluster)
grouped_name<- lapply(1:K, function(c) name15$label[which(name15$cluster==c)] %>% as.character)
fviz_cluster(k15, data = scale_inc, repel = T, labelsize = 5) +
theme(text = element_text(size = 20))
# 15
kable(grouped_name, "html", caption = "Table 2. Data outlook (K = 15)") %>%
kable_styling(bootstrap_options = c("striped", "hover", "responsive"),
position = "center") %>%
scroll_box(width = "900px", height = "300px")
Table 2. Data outlook (K = 15)
|
x
|
|
巧克力葡萄達克瓦滋
|
|
抹茶紅豆達克瓦滋
|
|
百香果達克瓦滋
|
|
堅果蛋白餅
|
|
|
|
|
x
|
|
乳加可可球(黑糖珍奶)
|
|
乳加可可球(黑糖珍珠)
|
|
|
|
x
|
|
77乳加
|
|
77乳加-益生菌+
|
|
77乳加-LIGHT
|
|
77乳加-LIGHT(迷你)
|
|
77黑金剛花生乳加(迷你)
|
|
77黑金剛花生乳加
|
|
77牛奶杏仁乳加(迷你)
|
|
77牛奶杏仁乳加
|
|
77黑巧杏仁乳加(迷你)
|
|
77黑巧杏仁乳加
|
|
歐維氏榛果
|
|
77乳加(迷你)
|
|
|
|
x
|
|
檸檬蛋糕
|
|
77新貴派(花生白巧風味)
|
|
77新貴派(乳酸)
|
|
77新貴派(檸檬)
|
|
77新貴派(草莓)
|
|
77新貴派(藍莓)
|
|
77新貴派(綠茶)
|
|
檸檬夾心酥
|
|
新貴派小格酥(宇治抹茶口味)
|
|
77新貴派(抹茶)-
|
|
新貴派大格酥(檸檬口味)
|
|
歐維氏草莓牛奶威化(迷你)
|
|
蜜蘭諾千層鬆塔
|
|
|
x
|
|
77脆可(榖麥)
|
|
歐維氏跳跳糖代可可脂巧克力(薄荷口味)
|
|
歐維氏跳跳糖代可可脂巧克力
|
|
歐維氏跳跳糖代可可脂巧克力(莓果派對)
|
|
歐維氏跳跳糖代可可脂巧克力(草莓口味)
|
|
|
x
|
|
焦糖悌納餅
|
|
法式磅蛋糕(蜜漬橙香紅茶)
|
|
法式洛神普蘭三明治
|
|
法式鳳梨普蘭三明治
|
|
莓果塔魯多
|
|
|
x
|
|
脆加-柚子胡椒-玉米四層胚
|
|
脆加-椒香辣雞翅口味-玉米四層胚
|
|
脆加-辣雞翅-玉米四層胚
|
|
脆加-切達起司-玉米四層胚
|
|
|
|
x
|
|
咖啡小西餅
|
|
檸檬酥餅
|
|
榛果巧克力餅
|
|
檸檬鑽石餅
|
|
洋蔥餅
|
|
辣起司餅
|
|
芝麻脆圈圈餅
|
|
法式曲奇餅(厚黑芝麻)
|
|
法式曲奇餅(奶油原味)
|
|
法式曲奇餅(醇厚可可)
|
|
抹茶普蘭三明治
|
|
77哈哈球代可可脂巧克力
|
|
杏仁巧克力醬
|
|
巧菲斯夾心酥(牛奶口味)
|
|
77新貴派(花生)
|
|
巧克力夾心酥
|
|
花生夾心酥
|
|
新貴派大格酥(焙烤花生口味)
|
|
歐維氏單粒榛果
|
|
77巧菲斯夾心酥(牛奶口味)
|
|
新貴派大格酥(芝麻豆奶口味)
|
|
新貴派大格酥(烤焙花生口味)
|
|
新貴派大格酥(經典巧克力口味)
|
|
新貴派小格酥(紅玉紅茶口味)
|
|
新貴派小格酥(迦納巧克力口味)
|
|
迷你新貴派(花生)
|
|
松露巧克力球
|
|
77榛子杯巧克力
|
|
歐維氏85%醇黑巧克力
|
|
歐維氏70%醇黑巧克力
|
|
歐維氏77%醇黑巧克力
|
|
77%黑巧克力
|
|
77代可可脂巧克力(黑色)
|
|
77新台幣代可可脂巧克力
|
|
77牛來運轉迷你波露代可可脂巧克力
|
|
77牛奶巧克力
|
|
大波露代可可脂巧克力
|
|
歐維氏43%牛奶巧克力(益生菌)
|
|
歐維氏43%牛奶巧克力(添加益生菌)
|
|
歐維氏72%醇黑巧克力
|
|
鮮乳坊牛奶餅
|
|
蜜蘭諾醇黑千層
|
|
蜜蘭諾杏仁鬆塔
|
|
蛋黃餅
|
|
本味誠現瑞士牛奶餅
|
|
小農鮮乳餅
|
|
蜜蘭諾醇黑鬆塔
|
|
MINI牛奶餅
|
|
MINI本味誠現牛奶餅
|
|
本味誠現蘇格蘭乳酥餅
|
|
蜜蘭諾楓糖葡萄鬆塔
|
|
一口派-法式奶油
|
|
蜜蘭諾黑巧酥
|
|
牛奶餅
|
|
乳酥餅
|
|
一口派-焦糖鹽之花
|
|
穀香燕麥餅
|
|
法式奶油雪茄捲(黑森林摩卡)
|
|
法式奶油雪茄捲(宇治抹茶)
|
|
|
|