écrire.csv() une liste de inégalement des données de taille.images

Je voudrais pomper une liste de données.image() des objets dans un fichier csv afin que je puisse travailler sur elle pour la présentation. Je trouve que c'est de répondre avec un message d'erreur: 

In write.csv(tmp[i], file = "Output.csv", append = T) :
  attempt to set 'append' ignored

J'ai enregistré les sorties à une liste (qui peuvent être contraints à faire un df), voici un exemple:

outputs <- list() 
outputs$fivenum <- fivenum(rnorm(100))
outputs$summary <- as.data.frame(as.vector(summary(rnorm(100))))

tmp <- lapply(outputs, as.data.frame)

write.csv(tmp, file="Output.csv",append=T)

Chaque ajout d'action doivent avoir le même nombre de colonnes?

Oui, si vous utilisez write.csv. Je pense que vous pouvez contourner cela en utilisant write.table(..., sep=",", append=TRUE) - mais je n'ai pas testé récemment.
vous ne pouvez pas ajouter write.csv jamais. Tout comme vous ne pouvez pas modifier col.names, sep, dec, ou qmethod.
C'est ce que je pensais, je l'ai dit, mais bien le sens a été perdu dans la traduction.
Je pensais que vous étiez répondre à "est-ce que chaque ajout d'action doivent avoir le même nombre de colonnes?". Vous pouvez toujours ajouter, même si les objets n'ont pas le même nombre de colonnes, mais qui crée un funky fichier.
Pourquoi ne pas rbind.les remplir au préalable?

OriginalL'auteur Brandon Bertelsen | 2011-09-08

  1. 13

    C'est un avertissement, pas une erreur. Vous ne pouvez pas modifier append=FALSE avec write.csv. ?write.csv dit:

    Les tentatives de changer le ‘ajouter’, ‘col.les noms’, ‘sep’, ‘déc’ ou ‘qmethod’
    sont ignorés, avec un avertissement.

    Utilisation write.table avec sep="," à la place.

    Ah, merci Josh, totalement raté.
    +1 ouais, c'est ce que j'avais à l'esprit dans mon commentaire à la question principale.
    est-il un travail? J'ai quelques clients qui aiment faire les choses dans excel. J'ai donc besoin de pomper un fichier excel des sorties (avec des éléments dans les cellules plutôt que dans la première cellule et ayant pour convertir du texte en colonnes)
    que diriez -sapply(tmp, write.table, file="Output.csv", append=TRUE, sep=",")?
    Ah, nous y voilà. Merci pour cela.

    OriginalL'auteur Joshua Ulrich

  2. 2

    Vous pouvez maintenant exporter plusieurs dataframes dans un seul CSV à l'aide de sheetr

    install.packages("devtools")
library(devtools)

# Install package from github
install_github('d-notebook/sheetr')
library(sheetr)

# Create a list of dataframes
iris_dataframe = list()
iris_dataframe[["Setosa subset"]] = head(iris[iris$Species == "setosa",])
iris_dataframe[["Versicolor subset"]] = head(iris[iris$Species == "versicolor",])

# Write the list of dataframes to CSV file
write_dataframes_to_csv(iris_dataframe, "exmaple_csv.csv")

    Qui sera à l'exportation:

    écrire.csv() une liste de inégalement des données de taille.images

    .

    .

    Ou, si vous préférez le faire manuellement, vous pouvez utiliser sink fichiers:

    # Sample dataframes:
df1 = iris[1:5, ]
df2 = iris[20:30, ]

# Start a sink file with a CSV extension
sink('multiple_df_export.csv')

 # Write the first dataframe, with a title and final line separator 
cat('This is the first dataframe')
write.csv(df1)
cat('____________________________')

cat('\n')
cat('\n')

# Write the 2nd dataframe to the same sink
cat('This is the second dataframe')
write.csv(df2)
cat('____________________________')

# Close the sink
sink()

    OriginalL'auteur Deena