印刷data.frame構造文字

Question

ように私はこのようになりますdata.frameあります

df <- data.frame(
    y = c(0.348, 0.099, 0.041, 0.022, 0.015, 0.010, 0.007, 0.005, 0.004, 0.003), 
    x = c(458, 648, 694, 724, 756, 790, 818, 836, 848, 876)) 

私はdata.frameを印刷するときI（明らかに）この出力を得る：

df 
#  y x 
# 1 0.348 458 
# 2 0.099 648 
# 3 0.041 694 
# 4 0.022 724 
# 5 0.015 756 
# 6 0.010 790 
# 7 0.007 818 
# 8 0.005 836 
# 9 0.004 848 
# 10 0.003 876 

はありますが私がdata.frameをcharacter string（またはそれに類似した）として印刷することができる関数はありますか？

magic_function(df) 
# output 
"df <- data.frame(
y = c(0.348, 0.099, 0.041, 0.022, 0.015, 0.010, 0.007, 0.005, 0.004, 0.003), 
x = c(458, 648, 694, 724, 756, 790, 818, 836, 848, 876))" 

私は、文字通り、私は出力をコピーして（再現性ため）stackoverflowの質問にそれを貼り付けることができるように"df <- data.frame(x = c(...), y = (...))"のようなものをプリントアウトしたいです！

Answer 1

私はちょうどこれを最近しなければなりませんでした。その答えのコアは確かdputですが、capture.outputがcharacterにそれを変換したい：

df.as.char <- paste(deparse(df)), collapse = "") 
df.as.char 
# [1] "structure(list(y = c(0.348, 0.099, 0.041, 0.022, 0.015, 0.01, 0.007, 0.005, 0.004, 0.003), x = c(458, 648, 694, 724, 756, 790, 818, 836, 848, 876)), .Names = c(\"y\", \"x\"), row.names = c(NA, -10L), class = \"data.frame\")" 

あなたは、私は、あなたがこれを通じ割り当てることができなかった心の中で同じもの持っていれば：

を

df.from.char <- eval(parse(text = df.as.char)) 
df.from.char 
# y x 
# 1 0.348 458 
# 2 0.099 648 
# 3 0.041 694 
# 4 0.022 724 
# 5 0.015 756 
# 6 0.010 790 
# 7 0.007 818 
# 8 0.005 836 
# 9 0.004 848 
# 10 0.003 876 
identical(df.from.char, df) 
# [1] TRUE 

そして、あなたは本当に

Answer 2

1つのオプションを使用することであることをcharacterの一部だけpaste0ように割り当て矢印が必要な場合：

の

dput(df) 

リターン：

structure(list(y = c(0.348, 0.099, 0.041, 0.022, 0.015, 0.01, 
0.007, 0.005, 0.004, 0.003), x = c(458, 648, 694, 724, 756, 790, 
818, 836, 848, 876)), .Names = c("y", "x"), row.names = c(NA, 
-10L), class = "data.frame") 

Answer 3

私は私が何かを得たと思います！

df4so <- function(df) { 
    # collapse dput 
    # shout out to KonradRudolph, Roland and MichaelChirico 
    a <- paste(capture.output(dput(df)), collapse = "") 
    # remove structure junk 
    b <- gsub("structure\\(list\\(", "", a) 
    # remove everything after names 
    c <- gsub("\\.Names\\s.*","",b) 
    # remove trailing whitespace 
    d <- gsub("\\,\\s+$", "", c) 
    # put it all together 
    e <- paste0('df <- data.frame(', d) 
    # return 
    print(e) 
} 

df4so(df) 

出力：

StackOverflowのためのコピーと貼り付けに適し

[1] "df <- data.frame(y = c(0.348, 0.099, 0.041, 0.022, 0.015, 0.01, 0.007, 0.005, 0.004, 0.003), x = c(458, 648, 694, 724, 756, 790, 818, 836, 848, 876))" 

！