Как построить сеть из файла ребер

Question

У меня есть следующий файл:

Apple Pear 

Apple Raspberry 

Raspberry Pear 

Lemon Pear 

Lime Plum 

Pineapple Grape 

Как выход, я хотел бы список цепочек фруктов - на каждой строке, связать две любые фрукты, когда-либо появлялись вместе на линии, например, одна строка была бы «Ананас», «Виноград», потому что каждый появляется один раз и только один раз вместе.

Я ищу следующий вывод:

Apple Pear Raspberry Lemon 

Lime Plum 

Pineapple Grape 

Кто-нибудь есть какие-либо предложения?

Спасибо!

Answer 1

Кажется, вы в основном создали сеть фруктов, поэтому вам лучше всего использовать пакет network (о котором я только что узнал, отвечая на этот вопрос, поэтому он, вероятно, получил всевозможные функциональные возможности, пока не понимаю).

Чтобы прочитать этот текст, используйте read.table(text=...):

x<-read.table(text="Apple Pear 

Apple Raspberry 

Raspberry Pear 

Lemon Pear 

Lime Plum 

Pineapple Grape") 

Тогда просто создать network объект из x:

library(network) 
net<-network(x) 

Например, вы можете построить сеть:

plot(net) 

Не совсем поняли, как получить ваш желаемый результат, но вы можете видеть в сюжете выше, что мы достигли той ассоциации, которую вы хотели. Не уверен в своей конечной цели, но ознакомьтесь с некоторыми учебниками для network.