mat <- matrix(nrow = 5, ncol = 4, data = NA)
rownames(mat) <- c('Ind1','Ind2','Ind3', 'Ind4' ,'Group judgement')
colnames(mat) <- c('Tumor_expression','Normal_expression','Frequency','Epitopes')
mat[1,] <- c(0.4915181, 0.3058879, 0.12487821, 0.07771583)
mat[2,] <- c(0.3060687, 0.4949012, 0.12868606, 0.07034399)
mat[3,] <- c(0.4627138, 0.3271881, 0.13574662, 0.07435149)
mat[4,] <- c(0.6208484, 0.2414021, 0.07368481, 0.06406465)
mat[5,] <- c(0.4697298, 0.3406738, 0.11600194, 0.07359445)
dplot(mat, xlab = 'Coordinate 1', ylab = 'Coordinate 2', main = 'Distance plot')
Run the code above in your browser using DataLab