功能生成的數據框與姓名

Question

我想創建一個函數，生成一個數據框並以編程方式添加colnames。

x是一個矢量

foo <- function(x){ 
    dfoo <- data.frame(Mts = 1:12) 
    for (i in 1:length(x)){ 
    dfoo[i + 1] <- 1:12*i 
    } 
    colnames(dfoo) <- c("Months", paste(x, "BAR" sep = " ")) 
    return(dfoo) 
} 

但引發此錯誤Error: unexpected '}' in "}"

Answer 1

那是因爲你在這個行業缺少逗號「BAR」和sep之間的paste 函數內：

c("Months", paste(x, "BAR" sep = " ")) 

它應該成爲：

c("Months", paste(x, "BAR",sep = " "))