1

I was trying to totate x-axis value (45 degree) in dendogram using fviz_dend function from factoextra package, but nothing works.

enter image description here

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")
Improve this question

1 Answer 1

Reset to default
2

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

Improve this answer
Sign up to request clarification or add additional context in comments.

Comments

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.