2

数日前に書いた質問のフォローアップとして、クリップボードにコピーして他のアプリケーションに貼り付ける方法をついに理解しました（Excelを読んでください）。

ただし、この関数を使用してコピーアンドペーストすると、貼り付け時に変数の列ヘッダーが正しく整列しません。

データ（私がたまたま見ていたフローデータの例から取得）：

data <- read.csv("http://datasets.flowingdata.com/post-data.txt")

コピー機能：

write.table(file = pipe("pbcopy"), data, sep = "\t")

ロードされると、データは次のようになります。

    id  views comments               category
1 5019 148896       28 Artistic Visualization
2 1416  81374       26          Visualization
3 1416  81374       26               Featured
4 3485  80819       37               Featured
5 3485  80819       37                Mapping
6 3485  80819       37           Data Sources

列変数名のない行番号があります（1、2、3、4、...）

このread.table(pipe("pbpaste"))関数を使用すると、正常にロードされRます。

Excelただし、またはに貼り付けるとTextEdit、2番目の変数の列名は次のように最初の変数の列名スロットになります。

id  views   comments    category    
1   5019    148896      28          Artistic Visualization
2   1416    81374       26          Visualization
3   1416    81374       26          Featured
4   3485    80819       37          Featured
5   3485    80819       37          Mapping
6   3485    80819       37          Data Sources

これにより、列名なしで末尾の列が残ります。

にコピーされたデータclipboardが正しく整列され、ラベル付けされていることを確認する方法はありますか？

4

2 に答える 2

4

行番号には、R data.frame の列名がありません。それらは元のデータセットにはありませんでしたが、抑制しない限り、クリップボードへの出力に入れられます。そのオプションのデフォルトは TRUE に設定されていますが、オーバーライドできます。そのような列を名前付き列として使用する場合は、作成する必要があります。Excelに送信するときにこれを試してください。

df$rownums <- rownames(df)
edf <- df[ c( length(df), 1:(length(df)-1))]   # to get the rownums/rownames first
write.table(file = pipe("pbcopy"), edf, row.names=FALSE, sep = "\t")
于 2012-02-03T17:36:29.607 に答える
1

col.names=NAへの呼び出しに引数を追加したいだけかもしれませんwrite.table()。最初の列のヘッダー行に空の文字列 (空白の列名) を追加する効果があります。

write.table(file = pipe("pbcopy"), data, sep = "\t", col.names=NA)

違いを確認するには、次の 2 つの関数呼び出しを比較します。

write.table(data[1:2,], sep="\t")
# "id"    "views" "comments"      "category"
# "1"     5019    148896  28      "Artistic Visualization"
# "2"     1416    81374   26      "Visualization"

write.table(data[1:2,], sep="\t", col.names=NA)
# ""      "id"    "views" "comments"      "category"
# "1"     5019    148896  28      "Artistic Visualization"
# "2"     1416    81374   26      "Visualization"
于 2012-02-03T17:37:33.890 に答える