write.csv() một danh sách các dữ liệu có kích thước không đồng đều

Question

Tôi muốn bơm ra một danh sách các đối tượng data.frame() vào tệp csv để tôi có thể làm việc trên nó để trình bày. Tôi thấy rằng nó trả lời với một lỗi:

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

tôi đã lưu các đầu ra vào một danh sách (tất cả đều có thể được buộc thành df), đây là một ví dụ:

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) 

Mọi hành động nối thêm phải có cùng số cột không?

Answer 1

Đó là cảnh báo chứ không phải lỗi. Bạn không thể thay đổi append=FALSE với write.csv. ?write.csv nói:

Attempts to change ‘append’, ‘col.names’, ‘sep’, ‘dec’ or ‘qmethod’ are ignored, with a warning.

Sử dụng write.table với sep="," để thay thế.

Answer 2

Bây giờ bạn có thể xuất khẩu nhiều dataframes trong một CSV đơn sử dụng 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") 

nào sẽ xuất khẩu:

.
.

Hoặc, nếu bạn thích để làm điều đó bằng tay, bạn có thể sử dụng sink file:

# 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()