I was trying to totate x-axis value (45 degree) in dendogram using fviz_dend function from factoextra package, but nothing works.
I also tried to follow the answer in this post rotating dendogram x axis label in R, but no luck either. The following is my code:
library(factoextra)
res.dist <- dist(data, method = "euclidean")
res.hc <- hclust(d = res.dist, method = "ward.D2")
dendogram <- fviz_dend(res.hc, k = 2, cex = 0.5, k_colors = c("#1B9E77", "#7570B3"),
color_labels_by_k = FALSE)
This is my data:
structure(list(TPACK = c(4.35714285714286, 4.07142857142857,
4.30952380952381, 3.92857142857143, 4.5952380952381, 4.30952380952381,
3.57142857142857, 3.80952380952381, 3.69047619047619, 3.71428571428571,
4.16666666666667, 4.5, 3.78571428571429, 4.30952380952381, 4.28571428571429,
3.78571428571429, 4.30952380952381, 3.9047619047619, 3.26190476190476,
3.71428571428571, 2.85714285714286, 4.14285714285714, 4.4047619047619,
4.23809523809524, 4.35714285714286, 4.28571428571429, 4, 4.97619047619048,
3.66666666666667, 4.0952380952381, 4.92857142857143, 4.33333333333333,
4.85714285714286, 4.33333333333333, 4.04761904761905, 4.85714285714286,
4.11904761904762, 4.5, 3.69047619047619, 3.11904761904762, 3.92857142857143,
4.80952380952381, 4.69047619047619, 4.04761904761905, 3.80952380952381,
4.14285714285714, 4.38095238095238, 3.83333333333333, 4.9047619047619,
4.88095238095238, 3.4047619047619, 4.78571428571429, 3.5952380952381,
3.69047619047619, 4.33333333333333, 4.07142857142857, 4.33333333333333,
4.11904761904762, 4.54761904761905, 3.04761904761905, 4.97619047619048,
3.42857142857143, 4, 4.28571428571429, 3.23809523809524, 3.92857142857143,
4.21428571428571, 3.45238095238095, 3.80952380952381, 3.66666666666667,
4.88095238095238, 3.5952380952381, 3.69047619047619, 3.78571428571429,
4.21428571428571, 4.02380952380952, 3.85714285714286, 3.42857142857143,
4.54761904761905, 4.35714285714286, 4.11904761904762, 3.92857142857143,
3.80952380952381, 3.23809523809524, 3.4047619047619, 4.52380952380952,
3.97619047619048, 4.38095238095238, 4.14285714285714, 3.85714285714286,
4.66666666666667, 3.97619047619048, 3.11904761904762, 4.02380952380952,
3.54761904761905, 4.95238095238095, 4.9047619047619, 4.28571428571429,
4.85714285714286, 3.76190476190476, 3.42857142857143, 2.66666666666667,
4.33333333333333, 4.69047619047619, 3.0952380952381, 4.76190476190476,
3.80952380952381, 4.45238095238095, 4.07142857142857, 4.64285714285714,
3.64285714285714, 4.30952380952381, 3.97619047619048, 4.23809523809524,
3.5952380952381, 4.30952380952381, 2.5, 3.92857142857143, 3.14285714285714,
3.83333333333333, 3.69047619047619, 4.07142857142857, 4.28571428571429,
4.5952380952381, 3.5, 4.57142857142857, 3.5, 3.85714285714286,
3.95238095238095, 3.9047619047619, 3.57142857142857, 3.52380952380952,
3.02380952380952, 3.52380952380952, 4.54761904761905, 3.95238095238095,
4.78571428571429, 3.88095238095238, 3.80952380952381, 4.5, 4.16666666666667,
3.45238095238095, 4.42857142857143, 3.95238095238095, 2.83333333333333,
4.97619047619048, 3.83333333333333, 4.19047619047619, 3.5, 3.83333333333333,
4.78571428571429, 3.85714285714286, 4.4047619047619, 4.80952380952381,
4.80952380952381, 4.14285714285714, 4.28571428571429, 4.47619047619048,
3.83333333333333, 4.16666666666667, 4.23809523809524, 3.85714285714286,
3.61904761904762, 4.85714285714286, 4.5952380952381, 4.88095238095238,
3.78571428571429, 4.11904761904762, 4.21428571428571, 4.14285714285714,
4.11904761904762, 4.19047619047619, 3.5, 3.61904761904762, 4.28571428571429,
3.85714285714286, 4.4047619047619, 3.69047619047619, 4.23809523809524,
4.42857142857143, 3.83333333333333, 3.4047619047619, 3.5952380952381,
3.88095238095238, 3.83333333333333, 3.95238095238095, 4.5952380952381,
3.71428571428571, 4.78571428571429, 4, 4, 3.73809523809524, 3.47619047619048,
2.07142857142857, 3.9047619047619, 4.92857142857143, 4.4047619047619,
4.30952380952381, 4.4047619047619, 4.30952380952381, 4.21428571428571,
4.07142857142857, 3.5952380952381, 4.26190476190476, 4.30952380952381,
4, 4.45238095238095, 4.54761904761905, 3.95238095238095, 4.26190476190476,
4.23809523809524, 3.76190476190476, 4.85714285714286, 3.30952380952381,
4.02380952380952)), row.names = c("PST1", "PST2", "PST3", "PST4",
"PST5", "PST6", "PST7", "PST8", "PST9", "PST10", "PST11", "PST12",
"PST13", "PST14", "PST15", "PST16", "PST17", "PST18", "PST19",
"PST20", "PST21", "PST22", "PST23", "PST24", "PST25", "PST26",
"PST27", "PST28", "PST29", "PST30", "PST31", "PST32", "PST33",
"PST34", "PST35", "PST36", "PST37", "PST38", "PST39", "PST40",
"PST41", "PST42", "PST43", "PST44", "PST45", "PST46", "PST47",
"PST48", "PST49", "PST50", "PST51", "PST52", "PST53", "PST54",
"PST55", "PST56", "PST57", "PST58", "PST59", "PST60", "PST61",
"PST62", "PST63", "PST64", "PST65", "PST66", "PST67", "PST68",
"PST69", "PST70", "PST71", "PST72", "PST73", "PST74", "PST75",
"PST76", "PST77", "PST78", "PST79", "PST80", "PST81", "PST82",
"PST83", "PST84", "PST85", "PST86", "PST87", "PST88", "PST89",
"PST90", "PST91", "PST92", "PST93", "PST94", "PST95", "PST96",
"PST97", "PST98", "PST99", "PST100", "PST101", "PST102", "PST103",
"PST104", "PST105", "PST106", "PST107", "PST108", "PST109", "PST110",
"PST111", "PST112", "PST113", "PST114", "PST115", "PST116", "PST117",
"PST118", "PST119", "PST120", "PST121", "PST122", "PST123", "PST124",
"PST125", "PST126", "PST127", "PST128", "PST129", "PST130", "PST131",
"PST132", "PST133", "PST134", "PST135", "PST136", "PST137", "PST138",
"PST139", "PST140", "PST141", "PST142", "PST143", "PST144", "PST145",
"PST146", "PST147", "PST148", "PST149", "PST150", "PST151", "PST152",
"PST153", "PST154", "PST155", "PST156", "PST157", "PST158", "PST159",
"PST160", "PST161", "PST162", "PST163", "PST164", "PST165", "PST166",
"PST167", "PST168", "PST169", "PST170", "PST171", "PST172", "PST173",
"PST174", "PST175", "PST176", "PST177", "PST178", "PST179", "PST180",
"PST181", "PST182", "PST183", "PST184", "PST185", "PST186", "PST187",
"PST188", "PST189", "PST190", "PST191", "PST192", "PST193", "PST194",
"PST195", "PST196", "PST197", "PST198", "PST199", "PST200", "PST201",
"PST202", "PST203", "PST204", "PST205", "PST206", "PST207", "PST208",
"PST209", "PST210", "PST211", "PST212", "PST213", "PST214", "PST215"
), class = "data.frame")
>Solution :
The label are added via a geom_text layer and from inspection of the source code the angle for the labels is hard-coded.
But you can achieve your desired result by manipulating the returned ggplot object, i.e. in your case the geom_text is the second layer and hence the angle for the labels can be set using dendogram$layers[[2]]$aes_params$angle <- 45.
library(factoextra)
res.dist <- dist(data, method = "euclidean")
res.hc <- hclust(d = res.dist, method = "ward.D2")
dendogram <- fviz_dend(res.hc,
k = 2, cex = 0.5, k_colors = c("#1B9E77", "#7570B3"),
color_labels_by_k = FALSE
)
#> Warning: The `<scale>` argument of `guides()` cannot be `FALSE`. Use "none" instead as
#> of ggplot2 3.3.4.
#> ℹ The deprecated feature was likely used in the factoextra package.
#> Please report the issue at <https://github.com/kassambara/factoextra/issues>.
#> This warning is displayed once every 8 hours.
#> Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
#> generated.
dendogram$layers[[2]]$aes_params$angle <- 45
dendogram
