Блог

Главная - Вопросы по программированию - Как я могу пометить точки на этом графике симуляции исчезновения?

Как я могу пометить точки на этом графике симуляции исчезновения?

#r

#r

Вопрос:

Можете ли вы помочь мне с нанесением меток на следующий график:

введите описание изображения здесь

Код, который я использую: 

 ext <- read.table("C:/Users/AngieLee/Dropbox/TESIS/total_ex.txt", header=T, sep="t", row.names=1, dec=",", na.strings="NA")

#total_ex.txt is a adjacency matrix with birds species in the columns and plant species in the rows.

ex<-second.extinct(ext, 
           participant="higher",
           method="degree",
           details="FALSE",
           nrep=50,
           ext.row=NULL, 
           ext.col=NULL)

slope.bipartite(ex, plot.it=TRUE, ann=FALSE)

С помощью этого кода я получаю график, который я прикрепляю.

По этой ссылке вы можете найти матрицу, которую я использую: https://www.dropbox.com/s/vfu6m3bvkdwrjq9/total_ex.csv?dl=0

Пакет, который я использовал, является двудольным.

Комментарии:

1. где определены ваши функции second.extinct и slope.bipartite?

2. Они являются функциями пакета, состоящими из двух частей. cran.r-project.org/web/packages/bipartite/bipartite.pdf

Ответ №1:

Вы можете попробовать что-то вроде следующего:

 slope.bipartite(ex, plot.it=TRUE, ann=TRUE)
if (all(ex[-nrow(ex), 2] == 1)) {
  y <- -ex[, 3]
} else {
  y <- -ex[, 2]
}
y <- (sum(y) - cumsum(y))/sum(y)
x <- (ex[, "no"]/max(ex[, "no"]))
text(x,y-0.02,labels=names(y), cex=0.5)

введите описание изображения здесь