从R读取csv文件

3 回答

• 1

  您可以通过以下几个简单步骤完成此操作：

  d = read.csv('path/to/test.csv') # import the data
  row.names(d) = make.unique(as.character(d[, 1])) # create the row names from the first column
  d = d[, -1] # remove the first column now that you don't need it anymore
  

  这保持了你的方阵：

  dim(d) # still a 15x15 matrix
  

  回复于 2024-04-29T03:08:15+08:00
• 0

  R不支持重复的行名，请参阅 ?row.names ：

  所有数据框都有一个行名属性，一个长度为行数的字符向量，没有重复，也没有缺失值 .

  鉴于此，您可以导入数据，然后使用 make.names 函数使行名称唯一 . 这有点难看，但我认为它解决了你的问题 . 请参阅下面的示例以及您提供的数据 .

  table <- read.csv("data.csv", row.names = NULL)
  
  ### Save row names in a separte object:
  rows <- table$X
  
  ### Remove the colunm with row.names:
  table <- table[,-1]
  
  ### Create unique Row.names with the function `make.names`
  rownames(table) <- make.names(rows, unique=TRUE)
  
  ### Check results:
  dim(table)
  #> [1] 15 15
  head(table)
  #>             Zbot Sirefef Fareit Winwebsec FakeSysdef Winwebsec.1
  #> Zbot           0     134     45       651        182         245
  #> Sirefef      142       0    124       679        200         273
  #> Fareit        48     124      0       644        166         234
  #> Winwebsec    651     499    470         0        575         556
  #> FakeSysdef   178     172    143       535          0         311
  #> Winwebsec.1  245     199    168       478        229           0
  #>             Winwebsec.2 Winwebsec.3 Fareit.1 Fareit.2 Sirefef.1
  #> Zbot                986          64       63       34       134
  #> Sirefef            1018         156      125      122       164
  #> Fareit              978          82       64       51       135
  #> Winwebsec          1087         525      490      485       501
  #> FakeSysdef         1052         196      163      152       204
  #> Winwebsec.1         997         217      186      183       199
  #>             Winwebsec.4 Winwebsec.5 Winwebsec.6 Winwebsec.7
  #> Zbot                166          52         337         225
  #> Sirefef             198         120         371         257
  #> Fareit              167          49         338         224
  #> Winwebsec           511         483         600         582
  #> FakeSysdef          234         154         405         285
  #> Winwebsec.1         209         183         348         272
  as.dist(table)
  #>             Zbot Sirefef Fareit Winwebsec FakeSysdef Winwebsec.1
  #> Sirefef      142                                                
  #> Fareit        48     124                                        
  #> Winwebsec    651     499    470                                 
  #> FakeSysdef   178     172    143       535                       
  #> Winwebsec.1  245     199    168       478        229            
  #> Winwebsec.2  986     752    719       821        784         727
  #> Winwebsec.3   80     160     85       506        179         204
  #> Fareit.1      65      95     32       468        141         164
  #> Fareit.2      52     122     51       468        143         166
  #> Sirefef.1    136     118     85       449        150         147
  #> Winwebsec.4  164     138    105       449        170         145
  #> Winwebsec.5   52     116     51       466        143         166
  #> Winwebsec.6  335     267    234       496        301         246
  #> Winwebsec.7  225     204    171       519        228         217
  #>             Winwebsec.2 Winwebsec.3 Fareit.1 Fareit.2 Sirefef.1
  #> Sirefef                                                        
  #> Fareit                                                         
  #> Winwebsec                                                      
  #> FakeSysdef                                                     
  #> Winwebsec.1                                                    
  #> Winwebsec.2                                                    
  #> Winwebsec.3         757                                        
  #> Fareit.1            715          78                            
  #> Fareit.2            717          68       40                   
  #> Sirefef.1           696         123       83       83          
  #> Winwebsec.4         696         143      103      103        80
  #> Winwebsec.5         717          66       42       32        83
  #> Winwebsec.6         745         272      232      234       213
  #> Winwebsec.7         774         207      169      169       150
  #>             Winwebsec.4 Winwebsec.5 Winwebsec.6
  #> Sirefef                                        
  #> Fareit                                         
  #> Winwebsec                                      
  #> FakeSysdef                                     
  #> Winwebsec.1                                    
  #> Winwebsec.2                                    
  #> Winwebsec.3                                    
  #> Fareit.1                                       
  #> Fareit.2                                       
  #> Sirefef.1                                      
  #> Winwebsec.4                                    
  #> Winwebsec.5         103                        
  #> Winwebsec.6         213         234            
  #> Winwebsec.7         160         169         291
  

  回复于 2024-04-29T03:08:15+08:00
• 1

  第一行以空白字段开头，因此使用 skip = 1 参数可能很方便，因为 read.csv 不能将输入函数理解为矩形数组 .

  回复于 2024-04-29T03:08:15+08:00