Jeu de diagonale d'une matrice à zéro dans la R

J'ai essayé quelques une proposition de solution ici. Mais il ne fonctionnait pas pour mon cas.
J'ai un code, ici:

a <- read.table("Whirr_127.csv", header=T, sep=",", row.names=1) # task assignment /people vs task
b <- read.table("Files_Whirr_127.csv", header=T, sep=",", row.names=1) #task vs files 
a
b

#calc cr , cr = ta * tf * transpose(ta)
cr <- as.matrix(a) %*% (as.matrix(b) %*% as.matrix(t(b)) %*% as.matrix(t(a)))
cr

#set value to 1, to initialize table
cr[cr>=1]<-1
cr

#identify diagonal matrix, set to zero
cr<-as.matrix(0,ncol=ncol(cr),nrow=nrow(cr))
cr<-diag(cr,x=0)

Je veux mettre de la diagonale de la valeur à zéro. Il semble que le code utilisé dans les deux dernières lignes ne sont pas de travail pour mon cas.

Aussi, j'aimerais utilisé le nom du fichier à a, et enregistré comme AB_Files_Whirr_127.csv
J'ai essayé d'utiliser

write.csv(cr,file = paste("CR_", a,".csv")

mais rien n'apparaît dans mon répertoire.

exemple de sortie pour le cr:

               Adrian Cole Alison Wong Andrei Savu Bruno Dumon Edward J. Yoon Eugene Koontz Jakob Homan Kelvin Kakugawa Kirk True Lars George Soren Macbeth Stu Hood
Adrian Cole               0           0           0           0              0             0           0               0         0           0             0        0
Alison Wong               0           0           0           0              0             0           0               0         0           0             0        0
Andrei Savu               0           0           1           0              0             0           0               0         0           1             1        0
Bruno Dumon               0           0           0           0              0             0           0               0         0           0             0        0
Edward J. Yoon            0           0           0           0              0             0           0               0         0           0             0        0
Eugene Koontz             0           0           0           0              0             0           0               0         0           0             0        0
Jakob Homan               0           0           0           0              0             0           0               0         0           0             0        0
Kelvin Kakugawa           0           0           0           0              0             0           0               0         0           0             0        0
Kirk True                 0           0           0           0              0             0           0               0         0           0             0        0
Lars George               0           0           1           0              0             0           0               0         0           1             1        0
Soren Macbeth             0           0           1           0              0             0           0               0         0           1             1        0
Stu Hood                  0           0           0           0              0             0           0               0         0           0             0        0
Tibor Kiss                0           0           0           0              0             0           0               0         0           0             0        0
Tom White                 0           0           1           0              0             0           0               0         0           1             1        0
Unassigned                0           0           0           0              0             0           0               0         0           0             0        0
Tibor Kiss Tom White Unassigned
Adrian Cole              0         0          0
Alison Wong              0         0          0
Andrei Savu              0         1          0
Bruno Dumon              0         0          0
Edward J. Yoon           0         0          0
Eugene Koontz            0         0          0
Jakob Homan              0         0          0
Kelvin Kakugawa          0         0          0
Kirk True                0         0          0
Lars George              0         1          0
Soren Macbeth            0         1          0
Stu Hood                 0         0          0
Tibor Kiss               0         0          0
Tom White                0         1          0
Unassigned               0         0          0
InformationsquelleAutor user1676484 | 2012-09-18
  1. 12

    a ne peut pas être utilisé dans le nom du fichier de sortie que ce n'est pas une variable de caractère, c'est une trame de données.

    infile <- "Whirr_127.csv"
a <- read.table(infile, header=T, sep=",", row.names=1)
....
diag(cr) <- 0
write.csv(cr, file = paste0("CR_", infile, ".csv")

    La syntaxe de la diag ligne a tendance à regarder drôle de nouvelle R des utilisateurs, mais il est en fait juste une autre syntaxe pour appeler la fonction affectation diag<-, c'est à dire diag(x) <- 0 est interprété comme diag<-(x, 0).

    Mise à jour: Plusieurs fichiers

    Si vous voulez répéter l'opération pour couplé à plusieurs fichiers, vous pouvez le faire.

    a.files <- grep("^Whirr", dir(), value=TRUE)
b.files <- paste0("Files_", a.files)
for(i in length(a.files)){
a <- read.table(a.files[i], ...)
b <- read.table(b.files[i], ...)
...
write.csv(cr, paste0("CR_", a.files[i], ".csv"))
}
    • merci, la diagonale de la solution de travail pour moi, mais le fichier n'est pas apparaître dans mon répertoire de travail...
    • J'ai édité le post en même temps que vous lisez probablement. La solution avec paste0("CR_", infile, ".csv") devrait definatelly travail. Si pas, assurez-vous que le paste0 commande renvoie un caractère scalaire.
    • c'est juste une solution simple pour le diag. je suis bête! de toute façon, laissez-le dire, j'ai plusieurs fichier, c'est moyen je dois remplacer infile (fichier = paste0("CR_", infile, ".csv") avec le chemin d'accès? EST-il correct?
    • Faire une boucle et de définir infile de fichiers différents dans chaque itération. Je soupçonne les fichiers viennent en paires de "Whirr_###.csv" et correspondant "Files_Whirr_###.csv" cependant, est-ce que le droit?
    • oui, vous avez raison
    • J'ai essayé d'exécuter le script de mon utilisation de plusieurs fichiers. Mais, j'ai eu cette erreur:Erreur dans le fichier(fichier, "rt") : impossible d'ouvrir la connexion En plus: le message d'Avertissement: Dans le fichier(fichier, "rt") : impossible d'ouvrir le fichier 'Files_ Whirr_128.csv': Aucun fichier ou répertoire
    • il fonctionne maintenant. Je dois utiliser la coller à la place de paste0. Je vous remercie pour votre aide.

    InformationsquelleAutor Backlin