需要有关flippingHorizo​​ntal任务的帮助

Question

我试图用用户输入变量翻转图片内的方形图像。运行代码后根本没有任何事情发生。在其他尝试中，我能够制作一个小的薄矩形。我该如何解决这个问题？

karate <- graph.famous("Zachary")
E(karate)$weight <- 2
adjacency<-get.adjacency(karate, 
              attr="weight", edges=FALSE, names=TRUE)
for (i in 1:vcount(karate)){
      adjacency[i,i]<-1
    }
karate2<-graph.adjacency(adjacency, mode="directed", weighted=TRUE)