It is not working somehow,
dat <- read.csv("F:/Files_Figures/mfa_file.csv", stringsAsFactors = F)
colnames(dat)[1] = "sample_name"
dat1 <- subset(dat, select = c(1,23:31,34:41,43))
rownames(dat1) <- dat1$col1
Here is data:
squaads <- tibble::tribble(
~ss, ~Yellow_A, ~Purple_A, ~Dullness_A, ~Smoothness_A, ~Gritty_A, ~SweetAromatics_AR, ~MustyEarthy_AR,
"Rus", 6, 0, 9, 4, 2, 1.5, 3.5,
"Von", 0, 1.5, 9, 8, 0, 0, 4,
"Made", 6, 0, 12, 11, 0, 0, 4,
"Rido", 1.5, 0, 11.5, 1.5, 1.5, 0, 0,
"P-3", 12, 0, 9.5, 9, 2, 0, 0,
"Vry", 13, 0, 9, 12, 0, 2, 0,
"COR", 2, 0, 12, 12.5, 0, 0, 0,
"CO0RU", 1.5, 0, 11, 12, 0, 0, 0,
"Cant", 2, 0, 12, 12, 0, 0, 2.5,
"AC99", 11, 0, 11, 9, 2, 1.5, 0,
"Atlic", 2.5, 0, 11, 12, 0, 0, 0,
"Purpy", 0, 7, 11, 11, 1.5, 0, 3.5
)
head(squads)
#> Error in head(squads): object 'squads' not found
Created on 2020-10-12 by the reprex package (v0.3.0)