R语言关联规则可视化

     items                                 
[1]  {通里,少冲,心俞}                      
[2]  {列缺,百会,心俞,神门,中脘,足三里,少海}
[3]  {列缺,心俞,神门,中脘,足三里,少海}     
[4]  {列缺,神道,膏肓,幽门}                 
[5]  {神门,支正}                           
[6]  {列缺,心俞,神门,少海}                 
[7]  {通里,少冲,心俞}                      
[8]  {少冲,神门,少海,风府}                 
[9]  {列缺,百会,心俞,神门,中脘,足三里,少海}
[10] {关元,天枢}                           
[11] {神门,足三里}                         
[12] {液门,膏肓,神门,内关,解溪}            
[13] {列缺,膏肓}                           
[14] {列缺,天府,百会,曲池}    

为什么关联规则分析后inspect变成这样,为什么不显示文字?

> inspect(rules)
      lhs           rhs  support   confidence coverage  lift     count
[1]   {1}        => {2}  0.1428571 1          0.1428571 4.666667 2    
[2]   {1}        => {10} 0.1428571 1          0.1428571 2.333333 2    
[3]   {6}        => {3}  0.2142857 1          0.2142857 2.000000 3    
[4]   {12}       => {13} 0.2142857 1          0.2142857 3.500000 3    
[5]   {12}       => {10} 0.2142857 1          0.2142857 2.333333 3    
[6]   {12}       => {3}  0.2142857 1          0.2142857 2.000000 3    
[7]   {12}       => {11} 0.2142857 1          0.2142857 1.750000 3    
[8]   {13}       => {11} 0.2857143 1          0.2857143 1.750000 4    
[9]   {14}       => {11} 0.2857143 1          0.2857143 1.750000 4    
[10]  {1,2}      => {10} 0.1428571 1          0.1428571 2.333333 2    
[11]  {1,10}     => {2}  0.1428571 1          0.1428571 4.666667 2    
[12]  {2,10}     => {1}  0.1428571 1          0.1428571 7.000000 2    
[13]  {6,12}     => {13} 0.1428571 1          0.1428571 3.500000 2    
[14]  {6,13}     => {12} 0.1428571 1          0.1428571 4.666667 2    
[15]  {6,12}     => {14} 0.1428571 1          0.1428571 3.500000 2    
[16]  {6,14}     => {12} 0.1428571 1          0.1428571 4.666667 2    
[17]  {12,14}    => {6}  0.1428571 1          0.1428571 4.666667 2    
[18]  {6,12}     => {10} 0.1428571 1          0.1428571 2.333333 

代码是这样,请问大神是哪里出错了?

library("arules")
b<-read.transactions("789.csv")
inspect(b)
rules=apriori(data,parameter = list(supp=0.1,conf=1,maxlen=40,minlen=1,target="rule"))
inspect(rules)

你好,我是有问必答小助手,非常抱歉,本次您提出的有问必答问题,技术专家团超时未为您做出解答

本次提问扣除的有问必答次数,将会以问答VIP体验卡(1次有问必答机会、商城购买实体图书享受95折优惠)的形式为您补发到账户。

​​​​因为有问必答VIP体验卡有效期仅有1天,您在需要使用的时候【私信】联系我,我会为您补发。