Question

作为Coursera的推荐系统课程的一部分，我在R（https://github.com/eponkratova/projects-recommender-system/blob/master/recommender_knit.Rmd）做作业，到目前为止，我得到了N个结果。

在我按列（var dataset_mean_1）计算平均值的步骤中，有没有办法更优雅地重命名col（var renamed_mean_1）？

install.packages('gsheet', repos="http://cran.rstudio.com/")
library('gsheet')
url <- 'https://docs.google.com/spreadsheets/d/1XDBRCYFTxsw27AivxJ5pWxDHN0WA6GqSP46PVe2BCQ4/edit?usp=sharing'
dataset <- gsheet2tbl(url)
dataset_mean_1 <- data.frame(colMeans(dataset, na.rm = TRUE))
install.packages('plyr', repos="https://cran.r-project.org")
library('plyr')
renamed_mean_1 <- rename(dataset_mean_1,c('colMeans.dataset..na.rm...TRUE.'='Mean'))
ordered_mean_1 <- head(renamed_mean_1[order(-renamed_mean_1$Mean),,drop=FALSE],n=4)

我对R没有多少经验，因此我的代码有点笨重。

你能帮我吗？

Answer 1

试试这个：

dataset_mean_1 <- data.frame(colMeans(dataset, na.rm = TRUE))
colnames(dataset_mean_1) <- "renamed_mean_1"

或只是一个电话：

dataset_mean_1 <- data.frame(renamed_mean_1 =colMeans(dataset, na.rm = TRUE))

更改输出列的名称

1 个答案: