カスタム関数を使用して、いくつかのデータフレームのリストをインポートしています。インポートされたファイルの名前(たとえばfile1
from file1.csv
)を取得し、そのデータフレーム内のすべての列名に追加したいと思います。この例では、すべての列名は次のようになります。
# Column names as they are
q1 q2 q3
# Column names with added name of the file they come from
q1_file1 q2_file1 q3_file1
これは私が試したものですが、機能しません(リストのデータフレームは0になります)。
my_function<- function (x) {
df <- read.csv(x)
tag <- sub('\\.csv$', '', x)
colnames(df) <- paste0(tag, colnames(df))
}
lapply(my_list, my_function)
ありがとう!
かもね:
#Code
tucson_function<- function (x) {
df <- read.csv(x)
tag <- sub('\\.csv$', '', x)
df$tag <- tag
}
または:
#Code
tucson_function<- function (x) {
df <- read.csv(x)
tag <- sub('\\.csv$', '', x)
names(df) <- paste0(tag,'.',names(df))
return(df)
}
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加