在R中创建图表

Question

我想知道是否可以从类似的数据集创建图表，比如下面的数据表：

col0                       col1                        col2          col3
name                       <NA>                        <NA>          <NA>      
name   cat, centipede, milipede, snail, flay, worm    cat          vertebrates     
name   cat, centipede, milipede, snail, flay, worm    centipede    arthropods    
name   cat, centipede, milipede, snail, flay, worm    milipede     arthropods      
name   cat, centipede, milipede, snail, flay, worm    snail        mollusc      
name   cat, centipede, milipede, snail, flay, worm    fly          insect    
name   cat, centipede, milipede, snail, flay, worm    worm         invertebrates  

并使用R创建图，与下面的图片大致相似：

​

​

Answer 1

请尝试从以下df开始：

library(igraph)   
df
   col0                                   col1          col2          col3
1  name                                   <NA>          <NA>          <NA>
2  name cat,centipede,milipede,snail,flay,worm   vertebrates        animal
3  name cat,centipede,milipede,snail,flay,worm invertebrates        animal
4  name cat,centipede,milipede,snail,flay,worm           cat   vertebrates
5  name cat,centipede,milipede,snail,flay,worm     centipede    arthropods
6  name cat,centipede,milipede,snail,flay,worm      milipede    arthropods
7  name cat,centipede,milipede,snail,flay,worm    arthropods invertebrates
8  name cat,centipede,milipede,snail,flay,worm       mollusc invertebrates
9  name cat,centipede,milipede,snail,flay,worm         snail       mollusc
10 name cat,centipede,milipede,snail,flay,worm        insect invertebrates
11 name cat,centipede,milipede,snail,flay,worm           fly        insect
12 name cat,centipede,milipede,snail,flay,worm          worm invertebrates

df <- df[df$col1 != '<NA>',]
species <- union(df$col3, df$col2)
df <- df[c('col3', 'col2')]
names(df) <- c('from', 'to')
g <- graph.data.frame(df, directed = TRUE, vertices = species)
plot(g,vertex.size=2, vertex.label.dist=0.5, vertex.color="cyan", 
     edge.arrow.size=0.5, layout=layout.reingold.tilford(g, root='animal'))

​

​