rdendrogram
How to replicate this graph like this (single linkage)?
library(stats)
d <- matrix(0,5,5)
d[lower.tri(d)] <- c(9,3,6,11,7,5,10,9,2,8)
d <- d+t(d)
d <- as.dist(d)
hc.s <- hclust(d, "single")
plot(hc.s,hang=-1)
This graph is okay, but the axis is ugly. In my textbook, the figure is as below: How to make my graph in the same way as the textbook?
Solution
You can add your own axes
par( mar=c(5,5,8,16) )
plot( hc.s,hang=-1, axes=F, labels=F )
axis( 1, 1:length(hc.s$order), labels=hc.s$order, col=NA, pos=0.2 )
axis( 2, 0:max(hc.s$height), las=1 )
points( 1:5, rep(0,5), pch=19 )
- Matching pair-wise columns from left to right across rows in one dataframe to another dataframe and adding new columns with matching values
- color mapping in geom_conn_bundle not showing correctly
- Print R package startup message AFTER automatic package conflict messages instead of before
- Summing a set of R dataframe rows (column-wise), while retaining the first n columns
- Added variable / partial regression plots for groups in an interaction?
- how to make a topoplot in R with coordinates variable distribution
- List of all functions in base R?
- Plotting multiple plots for different initial conditions in one graph
- Printing repetitively on the same line in R
- Generating UI/Server based on initial selection
- Subset dataframe based on pickerInput
- How to let user pick the data in R-shiny?
- Couldn't show my simple bar charts separately on Shiny R dashboardBody
- How to programmatically filter contents of a second shiny app displayed via iframe
- How to select specific interesting groups for the boxplot in R Shiny app?
- Crosstable and Plot grouping with reactive values
- Is there a way to make multiple Shiny picker inputs where the selections must be disjoint?
- Delay/avoid duplication of shiny server side functions until after credentials
- Predictions only returns value "1"
- How to display a busy indicator in a shiny app?
- Append doesn't work when writing to CSV in R
- Changing the start date of a gantt chart in DiagrammeR
- Check for installed packages before running install.packages()
- Compare two columns element-wise
- For loop is several times faster in R than in Python using the rpy2 library
- Setting a flag based on two samples' dates
- How to bring pop-ups for long text string selection items forward in front of modal they are rendered from when using virtualSelectInput()?
- R data.table update join by reference the, but updating the RIGHT table
- How to add tooltip labels in R Sparkline?
- How to draw circles (circular dots) from linetype in ggplot2