Я пытаюсь выделить основные взаимодействия в plotweb ().
Глядя здесь: Как изменить цвет взаимодействий, основываясь на значении взаимодействия, с помощью оператора ifelse () в двухстороннем элементе plotweb? , он почти работает должным образом, но по какой-то причине один из основных взаимодействий (Apidae с номером строки 22) не распознается как beign. Если я создаю фрейм данных с помощью функции, используемой в col.interaction (т. Е. «Col.interaction = t (ifelse (data [,] <10, Adjustcolor ('Grey80', alpha.f = 0,5), Adjustcolor ('Darkturquoise') , alpha.f = 0.5))) "), показывает, что цвета изменились в соответствии с тем, что я просил, но график не верный. Я не знаю, что не так ... </p>
data=structure(list(Apidae = c(1, 1, 0, 27, 1, 10, 0, 2, 0, 0, 0,
1, 4, 0, 0, 0, 0, 2, 0, 0, 0, 40, 0, 3, 0, 0, 0, 1, 0, 0, 3,
0, 3, 1, 8, 0, 0, 8, 3, 0, 1, 0, 0, 6, 0, 0, 1, 0, 0, 0, 2, 0,
21, 2, 12, 0, 0, 1, 6), Bombylidae = c(0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0), Chrysomelidae = c(0, 0, 0, 1, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Curculionidae = c(0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 11, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0), Formicidae = c(0,
2, 0, 45, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 4, 0, 2,
3, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 16, 0, 0, 0, 0,
0, 0, 0, 0, 11, 0, 0, 0, 1, 0, 2, 0, 1, 1, 0, 0, 0, 2), Halictidae = c(0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 1, 1, 1, 0, 0, 0, 0,
0, 0, 5, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0,
0, 0, 0, 0, 1, 0, 0, 1, 5, 0, 0, 1, 0, 0, 0, 0), Megachilidae = c(0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0,
1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0), Sarcophagidae = c(0,
0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0), Sphecidae = c(0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0), Sphingidae = c(0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Staphylinidae = c(0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Syrphidae = c(0,
0, 1, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0,
0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0), Tachinidae = c(0,
0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Vespidae = c(0,
0, 0, 3, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 1, 5, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 4, 1, 0, 0, 0, 0, 0,
1, 0, 1, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0)), class = "data.frame", row.names = c(NA,
59L)) ## the data frame
plotweb(data, text.rot=90, arrow="down.center", y.lim=c(-1,2.5), bor.col.interaction= NA, col.interaction= t(ifelse(data[,]<10, adjustcolor('grey80', alpha.f = 0.5), adjustcolor('darkturquoise', alpha.f = 0.5)))) ## the plot that for some reason is not changing some colors it should
col.interaction.table= col.interaction= t(ifelse(data[,]<10, adjustcolor('grey80', alpha.f = 0.5), adjustcolor('darkturquoise', alpha.f = 0.5))) ## the data frame showing the functiong apparently is working properly
Итак, я хочу, чтобы все взаимодействия выше 10 были "выделены".
Спасибо за любую помощь.