在R中的函数中创建新的数据框

Question

I've been trying to write a function which creates new object based on the previous one (after few changes). However, I didn't manage to do it. Here's my data frame:

 Names <- c("Tom", "Alex", "James", "John", "Wayne", "Harry") 
 a <- c(1,3,6,8, NA, 5) 
 b <- c(3,6,9,1, NA,1)  
 c <- c(7,3,1,6,NA,6) 
 d <- c(1,4,7,2,NA,8) 
 data <- data.frame(Names,a,b,c,d)

And here's my function

NAvalues <- function(x,object, y){
    object[sample(seq_len(nrow(object)), x, replace = FALSE),-1] <- NA   
    summary(object)   
    y <- data.frame(object) 
} 

The first part works fine, but I'm struggling to create a new object, which would have a name specified by y.

NAvalues(2, data, new)

When I use this, I get an error that there is no such an object as new . Can someone tell me why is it so?

Answer 1

From what I understood, the objective of your task is to create a data.frame named as defined by the argument y by executing the function NAvalues() .

NAvalues <- function(x,object, y){
        object[sample(seq_len(nrow(object)), x, replace = FALSE),-1] <- NA   
        summary(object)
        assign(paste(y), data.frame(object), envir = .GlobalEnv)
} 

NAvalues(x = 2, object = data, y = "new")  #y must be a character because it is the name of the new data.frame

The key of the solution is

assign(paste(y), data.frame(object), envir = .GlobalEnv)

which allows to create a variable named as the string parameter y and assign that variable to the global.environment