R语言自定义列值翻倍函数运行后未显示第三列求解

你的col_double函数运行后无法展示翻倍结果列，核心原因是缺少返回修改后完整数据框的语句：

• R函数默认返回内部最后一行表达式的求值结果，当前函数最后一行是列赋值操作，执行后仅会返回翻倍计算得到的列向量，不会返回整个数据框对象
• 同时函数内的修改仅在函数内部环境生效，如果不把函数返回结果重新赋值，全局环境中的原始df_dummy不会被修改

仅需要在函数末尾增加1行返回数据框的代码即可，同时记得把函数运行结果赋值回原始变量，完整可运行代码如下：

df_dummy = data.frame(ID = c(1001:1010), 
                      INT1 = sample(x = c(1:200), size = 10, replace = T)
)

col_double = function(df, col){
   df[,'double'] = df[,col]*2
   # 缺失的关键代码：返回修改后的完整数据框
   df
}

# 将函数返回结果赋值回原变量，即可得到包含翻倍列的完整数据
df_dummy = col_double(df = df_dummy, col = 'INT1')

如果你偏好显式返回的写法，也可以把函数最后一行的df替换为return(df)，效果完全一致。

运行后直接打印df_dummy就能看到ID、INT1、double三列内容，double列即为INT1列值翻倍的计算结果。

内容的提问来源于stack exchange，提问作者Data Newbie