data.frame内のレベルをcsvにエクスポート

Question

#creating dataframe  
df1=data.frame(c("Mary","Sarah","Linda","Mark","Shaun","Jo"),c(1,2,3,4,5,6),c(2,2,2,1,1,2)) 
names(df1)=c("a","b","c") 
#setting levels and labels for questions b and c 
blevels=c(1,2,3,4,5,6) 
blabels=c("bike","walk","car","bus","train","subway") 
clevels=c(1,2) 
clabels=c("male","female") 
#creating labelled data.frame 
df2=df1 
#applying labels 
df2$b<-factor(df1$b,blevels,blabels) 
df2$c<-factor(df1$c,clevels,clabels) 

私は調査回答用の頻度表を作成し、値ラベルを使用してより有用な頻度のタブを作成しています。

頻度テーブルを作成して無効な値を削除する前にRのデータを編集し、write.csvを使用してdata.frameをエクスポートして参照します。

エクスポートされたdata.frameに、ラベルではなく各質問のコーディングが表示されます。現在、これを行うために、周波数の新しいラベル付きdata.frameを作成し、元のdata.frameをエクスポートします。

これは、参照データと解析データのフレームが異なる可能性があります。

ラベルではなくレベルをCSVファイルにエクスポートする方法はありますか？

Answer 1

単一のベクターからレベルを除去する機能を作成します。

f <- function(x) { 
    if(is.factor(x)) { 
     return(as.numeric(x)) 
    } else { 
     return(x) 
    } 
} 

はdata.frameにその関数を適用します。

df <- sapply(f,df)