keyword1  keyword2  keyword3
  art1    0          1        0
  art2    1          1        0
  art3    0          0        1

library(igraph)
    df1<-data.frame(keyword1=c(0,1,0),keyword2=c(1,1,0),keyword3=c(0,0,1),row.names=c("art1","art2","art3"))
  df1.mt <- as.matrix(df1)
  df1.adj <- t(df1.mt) %*% df1.mt
    diag(df1.adj) <- 0
    g <- graph.adjacency(df1.adj)
    plot(g)

keyword1  keyword2  keyword3 act
  artA      0          1        0      act1
  artA      1          1        0      act2
  artB      0          0        1      act3
  artB      1          1        0      act4
  artC      1          1        0      act5